用宏制作工资条（成绩条）&求助：使之更完美

szqhb · 发表于 2017-1-14 22:44

本帖最后由 szqhb 于 2017-1-15 09:35 编辑

闲来组装成一个工资条（成绩条）制作的东东分享给大家。同时求助，使得在取消“输入表头行数”时终止运行程而不出现运行错误提示，以使程序更完美。或者让这个对话框不出现＂取消＂按钮。

lsc900707 · 发表于 2017-1-14 23:59

感谢分享！
可否变通如下：
If a = False Then
      MsgBox "你取消了输入表头行数,程序将自动按1行表头处理！"
      a = 1
Else
      MsgBox "马上就好！"
End If

szqhb · 发表于 2017-1-15 00:09

若按取消，程序也不运行，返回到当前的工作表即可！怎样修改代码？

任浪漫 · 发表于 2017-1-15 01:21

szqhb 发表于 2017-1-15 00:09
若按取消，程序也不运行，返回到当前的工作表即可！怎样修改代码？

你是要
If a = False Then
exit sub
Else
MsgBox "马上就好！"
End If

lsc900707 · 发表于 2017-1-15 07:33

那就把楼上的a=1改为Exit sub

szqhb · 发表于 2017-1-15 08:01

非常多谢！

szqhb · 发表于 2017-1-15 09:36

任浪漫发表于 2017-1-15 01:21
你是要
If a = False Then
exit sub

十分感谢！

zsyouli · 发表于 2018-9-5 16:57

lsc900707 发表于 2017-1-15 07:33
那就把楼上的a=1改为Exit sub

版主你好，如何可以在原始表的C列中出现离职员工是工资条自动增加一行合并格并输入“本人于XX年X月X日在XX公司自愿离职，离职后的一切行为均属个人行为，如XX公司无关。”样式如附图。

zsyouli · 发表于 2018-9-5 17:34

谢谢，模板不错，不过不知可不可以在原始表的C列出现“离职员工”后工资条自动增加一列合并单元格并输入“本人于XX年X月X日在XX公司自愿离职，离职后的一切行为均属个人行为，如XX公司无关。”。效果如附图，谢谢

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

[分享] 用宏制作工资条（成绩条）&求助：使之更完美