EXCEL VBA VLOOKUP 範囲を変数で

質問

Excel VBA で VLookup()の第2引数の範囲を行と列の数値の変数で指定したいのすが
どのように記述すればよいでしょうか。
以下の式がエラーにならないように具体的に直していただけないでしょうか。
よろしくお願いします。
-----------------------------------
Dim d1 As String
Dim d2 As String
Dim r1 As Integer
Dim r2 As Integer
Dim c1 As Integer
Dim c2 As Integer
Dim c3 As Integer
d1 = "愛知"
r1 = 2
r2 = 782
c1 = 3
c2 = 5
c3 = 4
d2 = VLookup(d1, Worksheets("Sheet1").Range(Cells(r1, c1), Cells(r2, c2)), c3, False)

回答No.1

ushi2015 · ベストアンサー

こんにちは
　　With Worksheets("Sheet1")
　　　　.Range(.Cells(r1, c1), .Cells(r2, c2)).Select
　　　　d2 = WorksheetFunction.VLookup( _
　　　　　　d1, .Range(.Cells(r1, c1), .Cells(r2, c2)), c3, False)
　　End With
で、更に、
検索対象範囲が3列しかないのに、c3 = 4となっているのはダメなので、
D列の値を知りたいのなら、c3 = 2
E列の値を知りたいのなら、c3 = 3
にして下さい。

お礼

上記のコードで正しく動作するようになりました。
・VLookupの前にWorksheetFunctionが必要
・Cells()にもWorksheets("Sheet1")が必要
・c3の値
の3つの問題の箇所がありましたが、
親切に教えていただきまして解決することができました。
ありがとうございました。

回答No.3

imogasi

質問に下記を補足したら。
VBAでもＶＬＯＯＫＵＰ関数は使える。その時はApplication.WorkSheetFunction.VLOOKUP
(・・)になることぐらい調べたのだろうね。
範囲指定の、ｃ１、C2、さらにC3はどうして決まるのか質問に書かないで質問しても答えようがない。第３引数C3まで変わるの？
それと範囲はこのモジュール実行中は変わらないのだろうね。
各行処理ごとに何かの要素で変わるなどのケースなら説明が必要だ。
＝＝
動きもしない、コードなどは書かなくてよい。
簡単な実例を挙げて、どういう要素を見て、どういう結果になってほしいいかかくのが当たり前だろう。
ーー
実行中は一定の範囲なら
Rangeの範囲指定にApplication.InputBoxのType 8ｎなんてしていもあるがご存じか。

回答No.2

ushi2015

済みません。
確認用の余計なコード
.Range(.Cells(r1, c1), .Cells(r2, c2)).Select
消し忘れました。
削除して下さい。