Excel VBA：在當前選擇中編寫公式

Question

我想根據引用的單元格將當前月份寫入當前選擇。這是我的代碼，但我得到錯誤消息：對象變量或未設置塊變量。我不知道問題是什麼 - 任何人都有線索？

Sub SelectionMonthNames() 

Dim Currentrange As Range 

For i = 1 To 3 

    Currentrange = Selection.Address 

    If i = 1 Then 
     Currentrange.Formula = "=DATE(YEAR($B$5);MONTH($B$5);DAY($B$5))" 
    Else 
     Currentrange.Formula = "=DATE(YEAR($B$5);MONTH($B$5)+" & CStr(i - 1) & ";DAY($B$5))" 
    End If 

    Selection.Offset(0, 1).Select 

Next i 
End Sub 

Answer 1

嘗試

Set Currentrange = Selection.Address 

而不是

Currentrange = Selection.Address 

編輯：

所以，在宏的最終版本應該是這樣的：

Sub SelectionMonthNames() 

Dim Currentrange As Range 

For i = 1 To 3 

Set Currentrange = Selection 

If i = 1 Then 
    Currentrange.Formula = "=DATE(YEAR($B$5),MONTH($B$5),DAY($B$5))" 
Else 
    Currentrange.Formula = "=DATE(YEAR($B$5),MONTH($B$5)+" & CStr(i - 1) &",DAY($B$5))" 
End If 

Selection.Offset(0, 1).Select 

Next i 
End Sub