範囲の値をVBAオブジェクトに格納する

Question

指定した範囲（A1:B2）にある値にパラメータとして渡された値（セルに書き込まれた値D1）を乗算するプロシージャを作成しました。

元の値を操作する別のパラメータを使用して同じマクロを再度実行するにはどうすればよいですか？マクロが少なくとも1回実行されている（私はそれを行う方法を見つけました）が、元の値を格納する方法と場所はわかりません。

例えば、私は

Range("A1").Value = 1 
    Range("A2").Value = 1 
    Range("B1").Value = 1 
    Range("B2").Value = 1 
    Range("D1").Value = 2  

を持つマクロボタンをクリックして、手動で3に2からRange("D1").Valueを編集した後、ここで、次の

Range("A1").Value = 2 
    Range("A2").Value = 2 
    Range("B1").Value = 2 
    Range("B2").Value = 2 

として範囲Range("A1:B2")の値を取得し、もう一度マクロボタンをクリックして私のプロシージャは、次の値を返すようにしたい

Range("A1").Value = 3 
    Range("A2").Value = 3 
    Range("B1").Value = 3 
    Range("B2").Value = 3 

最小限の手順では、私はこれが良い例であると思います。この

dim rng as Range 
    dim MyRange as Range 
    set MyRange = Range("A1:B2") 

    For each rng in MyRange 
      rng.value = rng.value*Range("D1").Value 
    next rng 

ような構造である可能性があります。おかげ

フランチェスコ

Answer 1

私はよく理解した場合、何が欲しいのは毎回あなたがボタンを使用してサブと呼ばれ、これは非常にサブ以内にこのデータを使用を追跡する方法です。

（私は通常、私のプロジェクトに変数モジュールを作成します）モジュールに公開変数を作成し、ボタンを使って呼び出すサブメニューでこのデータを更新することが1つの方法です。

'Your public variable inside a module (VariablesModule) 

Public param() As Variant 

'Your general code 

Call procedure(VariablesModule.param) 

'Inside your sub 

Sub procedure(byVal paramVal as Variant) 
'(your code) 
ReDim param(0 To n) As Variant 
Set param(1) = ABCDEFG 
End sub 

第2の方法は、このデータを範囲内に保存してサブ内で使用/更新することです。