信息科科室安全检查记录表(vba插入工作日记录)

代码很简单，需要启用宏，具体代码如下： SubWorkbook_Open() Range("A3:F25").ClearContents a=3 monthDays=Day(DateSerial(Year(Date),Month(Date)+1,0)) Fori=1TomonthDays date1=Year(Now())&"-"&Month(Now())&"-"&i IfworkDay(date1)="○"Then Range("A"&a).Va