VBAで列の並びが変動する可能性があるため、変数(定数?)にして列の指定をしたいと考えております。 数字やアルファベットで指定はできるのですが、変数でも指定できるのでしょうか。
VBAで列の並びが変動する可能性があるため、変数(定数?)にして列の指定をしたいと考えております。 数字やアルファベットで指定はできるのですが、変数でも指定できるのでしょうか。 Const col_No As Long = 1 Const col_担当 As Long = 2 Const col_顧客 As Long = 3 Const col_商品1 As Long = 4 Const col_商品2 As Long = 5 Const col_商品3 As Long = 6 Const col_商品4 As Long = 7 Const col_商品5 As Long = 8 Const col_商品6 As Long = 9 Const col_備考 As Long = 10 Range("B:B,D:D,F:H,J:J").EntireColumn.Hidden = True Range("2:2,4:4,6:8,10:10").EntireColumn.Hidden = True
Visual Basic | Excel・72閲覧・50
ベストアンサー
変動の度にConstを書き換えるよりは、 Findで検索する方法だとメンテナンスフリーになりますよ。 Sub Sample() Dim fnd1 As Range, fnd2 As Range, fnd3 As Range, fnd4 As Range With Rows(1) Set fnd1 = .Find("担当", LookAt:=xlWhole) Set fnd2 = .Find("顧客", LookAt:=xlWhole) Set fnd3 = .Find("商品1", LookAt:=xlWhole) Set fnd4 = .Find("商品2", LookAt:=xlWhole) End With Union(fnd1, fnd2, fnd3, fnd4).EntireColumn.Hidden = True End Sub 添付は、.Hidden = True を .Select で実行したものです。
1人がナイス！しています
この返信は削除されました
