入力ボックスの結果で範囲を掛けようとしています

Question

私は自分のワークブックでワークシートのコピーをとり、変動率で特定の列の数値をモデル化したいと思います。私のコードは以下の通りです。何が起こる

Sub Inflate_Expense() 

    Dim Rate As Integer 
    Dim rngData As Range 

get_Rate: 
    Rate = Application.InputBox("Enter the rate", , , , , , , 1) 

     Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("K103:K256") 
      rngData = Evaluate(rngData.Address & "*Rate") 

End Sub 

は、IM？#NAMEでの私のワークシートの結果の値である、それは結果として「レート」を使用していない文字列として「*レート」を乗算しようとされているのでれる推測入力ボックス。

私は数、すなわちでレートを交換する場合、コードは動作します知っている：

Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("K103:K256") 
      rngData = Evaluate(rngData.Address & "*1.02") 

私は入力ボックスの結果を一致させるには

Evaluate(rngData.Address & "*Rate") 

を交換しているとの難しさを抱えています。

Answer 1

Sub Inflate_Expense() 

Dim Rate As Variant 
Dim rngData As Range 

get_Rate: 
    Rate = Application.InputBox("Enter the rate", , , , , , , 1) 

     Set rngData = ThisWorkbook.Worksheets("Sheet1").Range("K103:K256") 
      rngData = Evaluate(rngData.Address & "*" & Rate) 

End Sub