VBA设置某代码激活运行各表单中的代码？

chandler本人 · 发表于 2018-6-11 16:59

本帖最后由 chandler本人于 2018-6-11 17:01 编辑

【需求】表单“总”，点击按钮，能自动化运行剩余表单中的代码，麻烦老师看下文件中的代码怎么调整？谢谢。
【素材】在附件，各表单中都有代码

liulang0808 · 发表于 2018-6-11 19:01

楼主需要注意下激活表格

chandler本人 · 发表于 2018-6-12 21:26

liulang0808 发表于 2018-6-11 19:01
楼主需要注意下激活表格

老师，有个小问题，表1表2表3，前后顺序改成表3表2表1，代码结果不一样。是否Sheet()括号里的数字指工作表实际顺序呢？可以改成固定吗，因为有时难免会调整表的顺序，还望老师再伸援手~！

liulang0808 · 发表于 2018-6-13 06:57

chandler本人发表于 2018-6-12 21:26
老师，有个小问题，表1表2表3，前后顺序改成表3表2表1，代码结果不一样。是否Sheet()括号里的数字指工作 ...

Sub hong1()
'
' hong1 宏
'

'
Sheets("1").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End Sub

建议每个按钮对应的代码指定到指定表上

wjc1228@163.com · 发表于 2018-6-13 07:56

版主厉害啊，应该可以那样实现

chandler本人 · 发表于 2018-6-13 09:14

liulang0808 发表于 2018-6-13 06:57
Sub hong1()
'
' hong1 宏

每个表单的按钮代码我会的，就是如何像前问题一键批量运行所有代码的问题，而且表单调整前后顺序，不影响代码结果

liulang0808 · 发表于 2018-6-13 09:19

chandler本人发表于 2018-6-13 09:14
每个表单的按钮代码我会的，就是如何像前问题一键批量运行所有代码的问题，而且表单调整前后顺序，不影 ...

就是在每个分过程里增加对应的表格名称即可啊

chandler本人 · 发表于 2018-6-13 12:33

liulang0808 发表于 2018-6-13 09:19
就是在每个分过程里增加对应的表格名称即可啊

明白了，谢谢老师

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

[求助] VBA设置某代码激活运行各表单中的代码？