如何在excel中將列重置爲0每月第一天

我正在構建一個工作表，我希望能夠在本月的第一天將列I重置爲0。我使用=NOW()公式將日期存儲在K196中。有人能幫我找到一個適合我的情況的代碼。我在這裏找到一個，但不知道如何修改它以支持我的需求。我在這裏找到的配方是如何在excel中將列重置爲0每月第一天

Private Sub Workbook_Open() 
    if Sheets("Output").Range("Z4").value > 0 then 
     If Month(Sheets("Output").Range("A4")) <> Sheets("Output").Range("Z4") Then 
      Range("B4:T4").ClearContents 
      Sheets("Output").Range("Z4") = Month(Sheets("Output").Range("A4")) 
     End If 
    End IF 
End Sub

坦克的幫助！

來源

2016-11-28 will

只需使用上日期值或K196細胞VBA的Day()功能。以下使用Sheet1作爲目標工作表。

Private Sub Workbook_Open() 
    Dim lastrow As Long 

    lastrow = Sheets(1).Cells(Sheets(1).Rows.Count, "I").End(xlUp).Row 

    If Day(Date) = 1 Then 
     Sheets(1).Range("I1:I" & lastrow) = 0 
    End If 

    ' ALTERNATIVELY USING K196 CELL VALUE 
    If Day(Sheets(1).Range("K196")) = 1 Then 
     Sheets(1).Range("I1:I" & lastrow) = 0 
    End If 
End Sub

來源

2016-11-29 02:31:51 Parfait

如何在excel中將列重置爲0每月第一天

回答

相關問題