快被逼疯了，救救孩子！

悲离乐相知

目标：让每次运行这个程式的时候可以自动更新日报的期数，并且在同一天多次更新数据视为加密监测按期数-1，-2，-3这样叠加，如果隔天再次加密监测期数就又从-1，-2，-3开始往上加，求大佬解惑。
Sub 更新日报期数()
Dim a!, b!, c!, d, f
a = Worksheets("监测日报").Range("d16").Value   'd16单元格为本次监测时间
b = Worksheets("监测日报").Range("c16").Value   'c16单元格为上次监测时间
c = Int(Worksheets("监测日报").Range("d16").Value) - 43955
If Int(a) - Int(b) < 1 Then
f=f+1
d = "【xx站】" & "监测日报（第" & c & "-" & f & "期）加密监测"
Else
d = "【xx站】" & "监测日报（第" & c & "期）"
End If
Worksheets("封面").Range("a7:i7").Value = d
End Sub

悲离乐相知

发错版了，麻烦版主删除一下