文件名称：信息科科室安全检查记录表（vba插入工作日记录）
文件大小：51KB
文件格式：XLS
更新时间：2023-06-23 12:41:52
信息科科室安全检查记录表 安全检查记录表 科室安全检查记录表 安全检查记录
代码很简单，需要启用宏，具体代码如下： Sub Workbook_Open() Range("A3:F25").ClearContents a = 3 monthDays = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) For i = 1 To monthDays date1 = Year(Now()) & "-" & Month(Now()) & "-" & i If workDay(date1) = "○" Then Range("A" & a).Value = date1 Range("B" & a).Value = "李四" Range("C" & a).Value = "同前页" Range("D" & a).Value = "无异常" a = a + 1 End If Next End Sub '判断指定日期是否上班 Function workDay(rq) Dim cel As Range If Weekday(rq) = 1 Or Weekday(rq) = 7 Then temp = "休" For Each cel In Range("节假日表!B2:B17") a = DateDiff("d", cel.Value, rq) If a = 0 Then temp = "○" Exit For End If Next Else temp = "○" For Each cel In Range("节假日表!A2:A37") a = DateDiff("d", cel.Value, rq) If a = 0 Then temp = "休" Exit For End If Next End If workDay = temp End Function