用vba生成每月出勤工作表

sahe · 发表于 2023-7-8 21:39

kk1.rar (10.36 KB, 下载次数: 15) 用 vba生成出勤工作表,六日用红字表示,如输7月,生成7月工作表,依次类推
麻烦老师谢谢

liulang0808 · 发表于 2023-7-8 22:27

Sub 按钮1_Click()
dt = InputBox("请输入考勤表年月信息（年四位月两位如：202301)", "输入年月", Format(Date, "yyyymm"))
If Len(dt) <> 6 Or Not VBA.IsNumeric(dt) Then
      MsgBox "输入年月无效"
      Exit Sub
End If
Application.ScreenUpdating = False
Sheets("模板").Copy after:=Sheets(1)
Sheets(2).Name = dt
[b2] = " 工地人员" & Left(dt, 4) & "年" & Right(dt, 2) & "月出勤统计表"
Rows("3:4").Font.ColorIndex = 0
d = CDate(Left(dt, 4) & "-" & Right(dt, 2) & "-1")
For j = 1 To 31
      If Month(d) = Month(d + j - 1) Then
         Cells(3, j + 2) = j
         Z = Right(Format(d + j - 1, "AAA"), 1)
         Cells(4, j + 2) = Z
         If "六" = Z Then
            Cells(3, j + 2).Resize(2, 2).Font.ColorIndex = 3
         End If
      Else
         Exit For
      End If
Next j
For Each shp In ActiveSheet.Shapes
      shp.Delete
Next shp
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2023-7-8 22:28

本帖最后由 liulang0808 于 2023-7-8 22:43 编辑

附件内容供参考。。。。。

limonet · 发表于 2023-7-8 22:31

这个用条件格式就可以，WEEKDAY

shiruiqiang · 发表于 2023-7-8 22:55

本帖最后由 shiruiqiang 于 2023-7-8 23:04 编辑

发错了---------

sahe · 发表于 2023-7-8 23:21

liulang0808 发表于 2023-7-8 22:28
附件内容供参考。。。。。

工地人员2023年8月出勤统计表,表头2023年8月也要更改

黎花埠 · 发表于 2023-7-8 23:55

本帖最后由黎花埠于 2023-7-9 10:47 编辑

供参考供参考

沈默00 · 发表于 2023-7-9 07:38

条件格式好像就可以了，

sahe · 发表于 2023-7-9 16:05

黎花埠发表于 2023-7-8 23:55
供参考供参考

我要将2023年8月,2023减1911 改为112年8月麻烦老师帮忙

		自动登录	找回密码
密码			免费注册

[求助] 用vba生成每月出勤工作表

评分