vba出勤日报表生成

sahe · 发表于 2023-5-30 01:17

j1.rar (13.17 KB, 下载次数: 18)

这个是2023年5月，我想要用vba生成2023年6月表格,用vba可以输入如2023年6月,就可生成表格,依次类推到2024年也可以使用,也就是万年工作日报表,

麻烦老师帮忙,谢谢

liulang0808 · 发表于 2023-5-30 07:59

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect([y2:y3], Target) Is Nothing Then Exit Sub
If Len([y2]) * Len([y3]) = 0 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
[c3:u4].ClearContents
[c16:n17].ClearContents
If [y3] = 12 Then
      d = 31
Else
      d = Day(CDate([y2] & "-" & [y3] + 1 & "-1") - 1)
End If
r = 3: c = 3
For j = 1 To d
      If j = 20 Then
         r = 16
         c = 3
      End If
      Cells(r, c) = j
      dt = CDate([y2] & "-" & [y3] & "-" & j)
      Cells(r + 1, c) = Right(Format(dt, "AAA"), 1)
      c = c + 1
Next j
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2023-5-30 07:59

年月以及部门可以自己修改的，供参考

zhw79 · 发表于 2023-5-30 08:04

本帖最后由 zhw79 于 2023-5-30 08:06 编辑

用公式就好了

=IFERROR(TEXT(DATE(YEAR($J2),MONTH($J2)-1,D3), "aaa"),"/")

sahe · 发表于 2023-5-30 12:15

liulang0808 发表于 2023-5-30 07:59
年月以及部门可以自己修改的，供参考

六日色不同

liulang0808 · 发表于 2023-5-30 12:54

sahe · 发表于 2023-5-30 13:58

本帖最后由 sahe 于 2023-5-30 15:04 编辑

liulang0808 发表于 2023-5-30 12:54

表头月份也要变,六日颜色也要变

liulang0808 · 发表于 2023-5-30 15:13

sahe 发表于 2023-5-30 13:58
表头月份也要变,六日颜色也要变

楼主自己设置很难吗？

sahe · 发表于 2023-5-30 15:35

liulang0808 发表于 2023-5-30 15:13
楼主自己设置很难吗？

,
麻烦老师帮忙,谢谢,

erorpqitp · 发表于 2023-5-30 15:50

的非非的的的的

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

[求助] vba出勤日报表生成