Sub NextMonth()
Dim currentDate As Date
currentDate = Range(“A1”).Value
Range(“A1”).Value = DateAdd(“m”, 1, currentDate)
End Sub
Sub PreviousMonth()
Dim currentDate As Date
currentDate = Range(“A1”).Value
Range(“A1”).Value = DateAdd(“m”, -1, currentDate)
End Sub
利唐i人事HR社区，发布者：hi_ihr，转转请注明出处：https://www.ihr360.com/hrnews/20241212263.html
