ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 行业案例 > 人力资源 > 如何运用VBA窗体设计职工请假记录生成工具

如何运用VBA窗体设计职工请假记录生成工具

作者:绿色风 分类: 时间:2022-08-18 浏览:168
楼主
xmyjk
Q:如何运用VBA窗体设计职工请假记录生成工具?

 

 

 

A:其中,生成请假记录的代码如下:
  1. Private Sub 返回行按钮_Click()
  2.     Dim xm As String, ts As Single, rq As Date, i&, arr, BRR, j&
  3.     ts = 休假天数.Value
  4.     xm = 姓名.Caption
  5.     rq = Year(Date) & "-" & Replace(休假日期.Text, ".", "-")
  6.     If 休假时间段.Text = "上午" Then arr = Array("上午", "下午"): j = 0 Else arr = Array("下午", "上午"): j = 1
  7.     ReDim BRR(1 To ts * 2, 1 To 4)
  8.     For i = 1 To ts * 2
  9.         BRR(i, 2) = xm
  10.         BRR(i, 3) = rq + j \ 2: j = j + 1
  11.         BRR(i, 4) = arr((i - 1) Mod 2)
  12.     Next
  13.     [b65536].End(3).Offset(1, -1).Resize(ts * 2, 4) = BRR

  14.     With Sheets("录入表").[a1].CurrentRegion
  15.         .Borders.LineStyle = 1        '为最后一行添加表格边框(列范围为a列到d列)
  16.         .Font.Name = "黑体"           '字体
  17.         .HorizontalAlignment = 3      '水平居中
  18.     End With

  19.     MsgBox "查询信息已成功录入"        '提示录入信息成功
  20.     简码输入框.SetFocus                '上条信息输入成功后,光标继续返回简码输入框可继续查询输入
  21.     '消除上回信息
  22.     Me.简码输入框.Text = ""            '接上步操作,光标返回到拼音简码处后,消除简码输入框中的内容,重新输入(其中的Me是表示本窗体中的)
  23.     Me.姓名.Caption = ""               '注意后缀名
  24.     Me.休假日期.Text = ""
  25.     Me.休假天数.Text = ""
  26.     Me.休假时间段.Value = ""
  27. End Sub

vBA统计请假条.rar
2楼
eliane_lei
进来学习,谢谢分享!
3楼
初学者2012
进来学习,谢谢分享!
4楼
icenotcool


5楼
小飞123
感谢分享
6楼
yeminqiang




免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap