Excel VBA：ワークシートのカスタムデータを使用して、出力を別のワークシートにループする

Question

実行する必要があるたびに、特定のパラメータをカスタマイズするマクロがあります。私が提供する別のワークシートからパラメータ値を取得し、その値をサブドゥ・ループの入力として使用すると効率的です。

以下は、私がマクロをレイアウト言語で行うことを基本的に理解するためのものです。

Dim row as Range 
Dim rowCount As Integer 
Dim input1 as String 
Dim input2 as String 
Set worksheet1=Worksheets("Sheet1") 
Set worksheet2=Worksheets("Sheet2") 
rowCount=worksheet1.Cells(Rows.Count,"A").End(xlUp).row 

For i=2 to worksheet1.rowCount 
    Do 
     input1=worksheet1.row("A" & i).value (value is continuous text) 
     input2=worksheet1.row("B" & i).value (value is integer) 
     worksheet2.activate 
      Do     
      *code that relies on the input1 and input2 values to run. 
    Next i 
End 

Answer 1

マクロにはコードが記述されています。マクロの宣言を変更して、使用/操作したい変数を渡します。

Dim row As Range 
Dim rowCount As Integer 
Dim input1 As String 
Dim input2 As String 
Set worksheet1 = Worksheets("Sheet1") 
Set worksheet2 = Worksheets("Sheet2") 
rowCount = worksheet1.Cells(Rows.Count, "A").End(xlUp).row 

For i = 2 To worksheet1.rowCount 
    Do 
     input1 = worksheet1.row("A" & i).Value '(value is continuous text) 
     input2 = worksheet1.row("B" & i).Value '(value is integer) 
     worksheet2.Activate 
      Do 
       MacroCode input1, input2 
      Next 
    Next i 
End 

Sub MacroCode(input1 As String, input2 As Integer) 

End Sub