指定した行のどの列に特定のデータがあるのかを調べたい(検索したい)場合は次のコードを使用します。
機能.検索.列取得(ワークシート As Worksheet, 行, 検索文字, 検索方向 As 方向定数_左右)
このコードには四つの引数が必要です。
1,ワークシート As Worksheet
検索したい列があるワークシートをここで指定します。
2,行
検索したい行をここで指定します。
3,検索文字
探したい文字列や数字をここで指定します。
4,検索方向 As 方向定数_左右
行を左右どちらから検索するかをここで指定します。
例えば「顧客」シートの一行目の何列に「株式会社トーコン」とあるか調べたい場合は以下のように記述します。
Dim 客先情報列
客先情報列 = 機能.検索.列取得(Worksheets(“顧客”), 1, “株式会社トーコン”, 右から)
※左から検索したい場合は、_左から_ではなく、_右から_としてください。
上記のコードでも問題はないのですが、トーコンとしてはなるべくコードを見ただけでわかるように書こうというルールでしたね。
ですので、二つ目の引数(行)や三つ目の引数(検索文字)は変数に入れたほうがいいかもしれません。
というわけで、
Dim 客先情報列
Dim リピーター企業
Dim 企業名リスト行
リピーター企業 = “株式会社トーコン”
企業名リスト行 = 1
客先情報列 = 機能.検索.列取得(Worksheets(“顧客”), 企業名リスト行, リピーター企業 , 右から)