Excelマクロは変数の値を上書きします

Question

私は変数（利益）をExcelテーブルに保存するマクロを作成しています。これは、複数のシナリオ（価格と割引を変更することにより）です。まず、各シナリオを実行するマクロを用意し、変数の値をそのシナリオで計算された利益に設定します。しかし、マクロを実行すると、私の3つの変数A1 A2とA3のすべてが最後と最後の値を持つように見えます。

私は間違っていると私はこれをどのように修正しますか？

Sub Macro1() 
' 
' Macro1 Macro 
' 

' 
With Sheets("Inputs") 
    .Range("I72").Value = "Base" 

    Dim A1 
    .Range("I5").Value = "Low" 
    .Range("I91").Value = "Reduced 8%" 
    Set A1 = Range("I174") 

    Dim A2 
    .Range("I5").Value = "Low" 
    .Range("I91").Value = "Reduced 4%" 
    Set A2 = Range("I174") 

    Dim A3 
    .Range("I5").Value = "Low" 
    .Range("I91").Value = "Current" 
    Set A3 = Range("I174") 

    MsgBox A1 
    MsgBox A2 
    MsgBox A3 

End With 

Answer 1

を参照している：

Option Explicit 

Sub Macro1() 
    ' 
    ' Macro1 Macro 
    ' 

    ' 
    With Sheets("Inputs") 
     .Range("I72").Value = "Base" 

     Dim A1 As Double 
     .Range("I5").Value = "Low" 
     .Range("I91").Value = "Reduced 8%" 
     A1 = Range("I174").Value 

     Dim A2 As Double 
     .Range("I5").Value = "Low" 
     .Range("I91").Value = "Reduced 4%" 
     A2 = Range("I174").Value 

     Dim A3 As Double 
     .Range("I5").Value = "Low" 
     .Range("I91").Value = "Current" 
     A3 = Range("I174").Value 

     MsgBox A1 
     MsgBox A2 
     MsgBox A3 

    End With 

End Sub 

あなたのコードがVariantタイプのようにそれらを宣言しながら（これごとタイプを保存するためにそれらができるようにする）、その後、あなたはそこにSetキーワードを使用して使用してRangeオブジェクト、およびその範囲は、常にすべての計算で変更同じセルに指摘保存

Answer 2

あなたは範囲を上書きしています。 A1、A2、A3のセルを他のセル値に変更します。すべての3は、あなたがDoubleタイプのようA1、A2およびA3を宣言し、そこ値セルを格納する必要があり、同じ細胞に