各月の初めにexcelでカラムをゼロにリセットする方法

Question

月の初めにカラムIを0にリセットしたいワークシートを作成しています。私は=NOW()の式でK196に日付を格納しています。私の状況に適したコードを見つけるのに役立つ人がいます。私はここに1つを見つけましたが、私のニーズをサポートするためにそれをどのように変更するのか分かりません。私がここに見つけた公式は、

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 

助けのためのタンクです！

Answer 1

単に日値またはK196セルにVBAのDay()関数を使用します。以下は、ターゲットシートとしてシート1を使用します。

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