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

作者：绿色风分类：时间：2022-08-18 浏览：168

楼主 xmyjk	Q:如何运用VBA窗体设计职工请假记录生成工具？ A:其中，生成请假记录的代码如下： Private Sub 返回行按钮_Click() Dim xm As String, ts As Single, rq As Date, i&, arr, BRR, j& ts = 休假天数.Value xm = 姓名.Caption rq = Year(Date) & "-" & Replace(休假日期.Text, ".", "-") If 休假时间段.Text = "上午" Then arr = Array("上午", "下午"): j = 0 Else arr = Array("下午", "上午"): j = 1 ReDim BRR(1 To ts * 2, 1 To 4) For i = 1 To ts * 2 BRR(i, 2) = xm BRR(i, 3) = rq + j \ 2: j = j + 1 BRR(i, 4) = arr((i - 1) Mod 2) Next [b65536].End(3).Offset(1, -1).Resize(ts * 2, 4) = BRR With Sheets("录入表").[a1].CurrentRegion .Borders.LineStyle = 1 '为最后一行添加表格边框(列范围为a列到d列) .Font.Name = "黑体" '字体 .HorizontalAlignment = 3 '水平居中 End With MsgBox "查询信息已成功录入" '提示录入信息成功简码输入框.SetFocus '上条信息输入成功后,光标继续返回简码输入框可继续查询输入 '消除上回信息 Me.简码输入框.Text = "" '接上步操作,光标返回到拼音简码处后,消除简码输入框中的内容,重新输入(其中的Me是表示本窗体中的) Me.姓名.Caption = "" '注意后缀名 Me.休假日期.Text = "" Me.休假天数.Text = "" Me.休假时间段.Value = "" 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总版主之一

评论列表