VBAで、変数を関数の中で使用する方法について

質問

ＶＢＡにて
１行目：=LOOKUP(R7C3,原紙!R15C5:R15C50,原紙!R16C5:R16C50)
２行目：=LOOKUP(R7C3,原紙!R15C5:R15C50,原紙!R67C5:R67C50)
３行目：=LOOKUP(R7C3,原紙!R15C5:R15C50,原紙!R118C5:R118C50)
　・
　・
　・
とLOOKUP関数の対応範囲の部分を１行目には原紙シートの16行目
２行目には原紙シートの67行目、３行目には原紙シートの118行目・・・
という風に、51行ずつ下の行を対応範囲としてＶＢＡを作成したいのですが
VBAで関数に変数を使用する方法、または他に何かよい方法があれば
教えてください。

よろしくお願い致します。

回答No.1

noname#29107 · ベストアンサー

こんな感じになります。
Sub test()
Dim ix As Long
For ix = 1 To 30
Cells(ix, 1).FormulaR1C1 = "=LOOKUP(R7C3,原紙!R15C5:R15C50,原紙!R" & _
16 + (ix - 1) * 51 & "C5:R" & 16 + (ix - 1) * 51 & "C50)"
Next ix
End Sub
本来、「16 + (ix - 1) * 51」のところは、Cstr関数で文字列に変換する方が正しいのですが、このような場合VBAは自動的に数値を文字列に変換して結果を出してくれますので、手を抜いています。

回答No.2

imogasi

エクセルVBAで関数を使う方法
（１）左辺にFormula=とし、右辺に式を””で囲って書くやり方。””の中はセルに関数をセットするのと同じ表現でよい。（＃１のご回答）
（２）WorksheetFunctionを使う方法。
注意事項は
（A)エクセルで使える関数のうち、WorksheetFunctionでは使えないものがあります。
引数の中で、セル範囲を指定する部分は、Range(・・・）で指定します。Cells（・・）も使えますが、１セルで
ないときは、Range(Cells(・・）,Cells(・・））のような表現になります。
（３）LOOKUP関数はWorksheetFunctionで使えます。（本を見れば、使えるかどうか書いてある本もあります。）
（４）LOOKUP関数は２様式あって、ベクトル形式の方でしょう。
（５）引数は３つで、検査値、検査範囲、対応範囲です。
（６）本件で、検査値はCells(7，3)で変らず。
（７）検査範囲もRange(Sh2.cells(15,5),Sh2.Cells(15,50))
で変らず。
（８）対応範囲は変って行き
Range(Sh2.Cells(x,5),Sh2.Cells(x,50))のXを初期値１６、増分５１で変化させれば良いと思う。
For x=16 to 終値 step 51　のように。
（９）なおセルの前にSh2は
Dim sh2 As Worksheet
Set Sh2=Worksheets("原紙")としておくこと。