请假录入程序

lianebin · 发表于 2021-7-25 16:58

本帖最后由 lianebin 于 2021-7-25 17:04 编辑

当日的请假程序已经写好。现在多日的请假请高手帮我完善。
规则：上班时间 8:00 下班时间： 16：30  中午  11:30 到12：00午饭时间不计入考勤
表格2内可设置节假日日期，用于设置节假日。

现模式：  通过VBA控件填入姓名：张三开始日期：2021-7-16  开始时间：9:00 结束日期：2021-7-19 结束日期：16：30
提交后只能写入一条记录：  张三 2021-7-16 7（小时）  （17号到19号写入不会弄）
当天请假已经可以满足需求。现就是多天请假无法实现。

希望提交后实现：
多天请假，希望提交后在表格内转化为每天的请假明细，并一次写入表格内：
比如：通过VBA控件填入姓名：张三开始日期：2021-7-16  开始时间：9:00 结束日期：2021-7-19 结束日期：16：30
提交后一次写入到表格内如下：
张三 2021-7-16 9：00 16：30 7（小时）
张三 2021-7-17 8：00 16：30 8 (小时 )
张三 2021-7-19 8：00 16：30 8 (小时 )
2021-7-18日为节假日，不写入。
  以上目的就是想知道每个人那些天请了假，那些天请了多少时间。

附件为表格，请大神帮忙。。。附件excel我增加了日期控件，需win10系统才支持。

zpy2 · 发表于 2021-7-25 17:22

17号到19号写入不会弄）

不是不会吧，是觉得写3条有点麻烦吧？
如果一个人填工作量太大，可以让请假的人填写。可以用钉钉考勤或在线表单分散一下。

lianebin · 发表于 2021-7-25 17:31

zpy2 发表于 2021-7-25 17:22
17号到19号写入不会弄）

不是不会吧，是觉得写3条有点麻烦吧？

多谢回复。

一指禅62 · 发表于 2021-7-25 17:33

本帖最后由一指禅62 于 2021-7-25 17:38 编辑

曾为别人定制过的

请假.png

lianebin · 发表于 2021-7-25 17:45

一指禅62 发表于 2021-7-25 17:33
曾为别人定制过的

你这个我会弄。我现在不会弄的是多天请假的写入每天的数据。

lianebin · 发表于 2021-7-25 19:40

求大神帮忙

一指禅62 · 发表于 2021-7-26 08:46

本帖最后由一指禅62 于 2021-7-26 08:59 编辑

lianebin 发表于 2021-7-25 17:45
你这个我会弄。我现在不会弄的是多天请假的写入每天的数据。

这个是按规则逐日计算得到的。

规则.png

这个会弄的话，那就没有问题了。

3190496160 · 发表于 2021-7-26 11:28

Private Sub CommandButton1_Click()
Dim s As Date
If ComboBox1.Text = "" Then MsgBox "姓名不能为空！": Exit Sub
If TextBox1.Text = "" Then MsgBox "开始日期不能为空！": Exit Sub
If TextBox2.Text = "" Then MsgBox "结束日期不能为空！": Exit Sub
If ComboBox2.Text = "" Or ComboBox4.Text = "" Then MsgBox "开始时间不能为空！": Exit Sub
If ComboBox3.Text = "" Or ComboBox5.Text = "" Then MsgBox "结束时间不能为空！": Exit Sub
With Sheets("请假")
ts = DateDiff("d", TextBox1.Text, TextBox2.Text)
If ts = 0 Then
      r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(r, 1) = ComboBox1.Text
      .Cells(r, 2) = TextBox1.Text
      .Cells(r, 3) = CDate(ComboBox2.Text & ":" & ComboBox4.Text)
      .Cells(r, 4) = CDate(ComboBox3.Text & ":" & ComboBox5.Text)
      .Cells(r, 5) = DateDiff("h", .Cells(r, 3), .Cells(r, 4))
ElseIf ts > 0 Then
      ks = TextBox1.Text
      js = TextBox2.Text
      For s = ks To js
         r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(r, 1) = ComboBox1.Text
         .Cells(r, 2) = s
         m = m + 1
         If m = 1 Then
            .Cells(r, 3) = CDate(ComboBox2.Text & ":" & ComboBox4.Text)
            .Cells(r, 4) = CDate("16:30")
            .Cells(r, 5) = DateDiff("h", .Cells(r, 3), .Cells(r, 4))
         ElseIf m > 1 And m <= ts Then
            .Cells(r, 3) = CDate("08:00")
            .Cells(r, 4) = CDate("16:30")
            .Cells(r, 5) = 8
         ElseIf m = ts + 1 Then
            .Cells(r, 3) = CDate(ComboBox3.Text & ":" & ComboBox5.Text)
            .Cells(r, 4) = CDate("16:30")
            .Cells(r, 5) = 8 - DateDiff("h", .Cells(r, 3), .Cells(r, 4))
         End If
      Next s
End If
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2021-7-26 11:29

请假7月控件版.rar (63.94 KB, 下载次数: 18)

3190496160 · 发表于 2021-7-26 11:30

暂时还没有考虑节假日和休息时间，先看看，是不是这样的效果，

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

[求助] 请假录入程序

最新热点 /1