在每月开始时将单元格值重置为001-VBA

Question

Sub incr() 
Set C = Range("Y6")    
For Each cc In C
cc.Value = cc.Value + 1
Next
End sub

有人请修改此代码，它会重置为001（每月开始），然后从那里开始计数。

我认为它在公式中是可能的，因为这段代码会覆盖Y6公式是没有用的。

Answer 1

此请求的前提非常简单，您只需要If块来测试日期编号 - 然而 - 您需要仔细考虑这一点，因为如果您依赖在某个日期，代码将重置值，每次在该日期运行。

If Day(Date) = 1 Then
    cc.Value = 1 '// This will happen every time the code is run on day 1
Else
    cc.Value = cc.Value + 1
End If