求助高人通过VBA帮做个简单地加班统计表。

y1983y · 发表于 2018-10-5 20:32

sir5 发表于 2018-10-5 20:06
谢谢老师，老师辛苦了。我的意思是把加班费对应到每个人，如A加班3小时，录入后，直接加到A对应的列内。 ...

做一个样表，告知要的结果和过程，这样才会制作高效的工作簿。

sir5 · 发表于 2018-10-5 22:33

朱荣兴发表于 2018-10-5 11:45
这个问题非常繁琐，关键是很多细节不是很明白，要想得到完美解决，可以加我QQ：705664849.详谈

已解决，谢谢老师

朱荣兴 · 发表于 2018-10-5 23:20

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2018-10-5 23:21

提示: 作者被禁止或删除内容自动屏蔽

一指禅62 · 发表于 2018-10-6 09:14

本帖最后由一指禅62 于 2018-10-6 09:18 编辑

sir5 发表于 2018-10-5 20:06
谢谢老师，老师辛苦了。我的意思是把加班费对应到每个人，如A加班3小时，录入后，直接加到A对应的列内。 ...

修改过了。请重新下载

加班费统计表.rar (15.55 KB, 下载次数: 28)

一指禅62 · 发表于 2018-10-6 09:16

本帖最后由一指禅62 于 2018-10-6 09:37 编辑

误餐费不是必选吧？

Private Sub 加班费()
Dim 时长, 类别%, 误餐
时长 = Val(TextBox2.Text)
类别 = IIf(Option1.Value, 1, IIf(Option2.Value, 2, IIf(Option3.Value, 3, 0)))
误餐 = IIf(Check1.Value, 10, 0) + IIf(Check2.Value, 15, 0) + IIf(Check3.Value, 15, 0)
TextBox3.Text = IIf(类别 = 0, 0, 时长 * 12 * 类别 + 误餐)
End Sub

复制代码

lgl8196 · 发表于 2018-10-6 10:16

我也学习一下！~

sir5 · 发表于 2018-10-6 19:49

朱荣兴发表于 2018-10-5 23:20
Private Sub CommandButton1_Click()
Dim rng As Range
If OptionButton1.Value = True Then

谢谢老师！

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-10-5 23:20 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-10-5 23:21 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 求助高人通过VBA帮做个简单地加班统计表。