在Excel VBA中引用間接單元格

Question

因此，我試圖在我的代碼中將單元格引用作為間接引用。 例如，我想更新B列單元格“ X”中的值，其中X在單元格B1中定義。 這是我當前正在嘗試的代碼，但是我不斷遇到超出范圍的異常。 我是VBA的新手，所以我的語法可能很遙遠。

Workbooks("Personal_Finances").Sheets(categoryType).Range("$B($B$1)").Value = ammount

Answer 1

嘗試，

with Workbooks("Personal_Finances").Sheets(categoryType)
    .cells(.Range("B1").Value, "B") = ammount
    'alternate
    .Range("B" & .Range("B1").Value) = ammount
end with

此處.Range（“ B1”）。Value用於.Cells中的行引用。 替代方案更接近您最初的嘗試。

我將工作代碼包裝在With ... End With塊中，以維護父級工作表引用。

除非在一次填充多個單元格的公式中使用，否則在帶引號的字符串單元格引用中不需要$ 。

Answer 2

定義一個新變量，並為其分配單元格$ b $ 1的值。

dim temp_row as integer
temp_row.value =Workbooks("Personal_Finances").Sheets("categoryType").Range("B1").Value
Workbooks("Personal_Finances").Sheets(categoryType).Range("$B" & temp_row).Value = amount

或只在一行中做同樣的事情。

Answer 3

要么：

With Workbooks("Personal_Finances").Sheets(categoryType).Range("B1")
    .Offset(.Value2 - 1) = ammount
End With

其中“ With ... End With”塊引用了通緝工作簿中通緝工作表的單元格B1，並且嵌套語句將其值減去一（以到達通緝行）