對於內部不運行的循環如果語句Excel VBA

Question

我正在編寫一個代碼，以在每個月的第一天更新清單電子表格。我對VBA知之甚少，但我理解編程的基本知識。請原諒我糟糕的代碼。

問題是，在初始If語句檢查後，如果它爲true，它將只運行直接在它下面的行（添加一個新行），並且在編輯數據後不執行For Loops。

Sub Auto_Open() 
Dim stock(21) 



If Date - Day(Date) + 1 = Date Then 

Range("'Monthly Office Inventory'!A2").EntireRow.Insert 

For i = 0 To 21 
stock(i) = Range("Current Office Inventory'!A2").Offset(0, i).value 
Next i 

For x = 0 To 21 
Range("'Monthly Office Inventory'!B14").Offset(0, x).value = stock(x) 
Next x 

End If 

End Sub 

Answer 1

嘗試使用此行工作表（「月度辦公室清單」）範圍（「B14：W14」）。值=工作表（「當前辦公室清單」）。範圍（「A2：V2」）。循環

@simoco

https://stackoverflow.com/users/3067523/simoco

Answer 2

可能做到這一點，最簡單的方式將被改變，你條件：

If Day(Date) = 1 Then

現在，我在Mac上書面方式，但我想你會明白我的意思（如果某些細節錯誤，請更正它）。