ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Excel VBA > 教你一个按钮执行两个任务

教你一个按钮执行两个任务

作者:绿色风 分类: 时间:2022-08-18 浏览:146
楼主
罗刚君
两个同类型事件,如果用两个按钮是否太占地方?
即使用菜单也不宜过多的菜单.
同一按钮执行多个过程,方法其实不少,常用的是改变按钮的Caption,然后根据Caption选执行哪一个过程
今天教大家利用Shift键来区分执行程序.即按住Shift键后执行一个程序,而直接单击按钮则执行另一个过程.

过程的功能为切换当前工作表的分页符,即让它显示与隐藏.而只需要一个按钮来完成
具体代码如下:


大家可以复制以上代码到模块中,仍然指定一个按钮并执行宏,看看按住Shift键执行宏和不按住Shift键执行宏的区别.
具体请看演示分页符切换.gif
 
2楼
水星钓鱼
学习下,用这样应该也可以吧
  1. Private Sub CommandButton1_Click()
  2. Static i As Long
  3. If i Mod 2 Then
  4.     Sheet1.DisplayPageBreaks = True
  5. Else
  6.     Sheet1.DisplayPageBreaks = False
  7. End If
  8. i = i + 1
  9. End Sub

免责声明

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

评论列表
sitemap