教你设计彩蛋

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

楼主罗刚君	大家都知道很多很多软件有彩蛋的吧？例如PHOTOSHOP，每个版本都有。按下Shift键打开“关于”菜单和不按Shift键再打开结果是不同的。今天也教教如何设计这类一个按钮执行两个不同功能的代码本过程的功能为切换当前工作表的分页符,即让它显示与隐藏.而只需要一个按钮来完成具体代码如下: Declare Function GetKeyState Lib "user32" (ByVal nvirtkey As Long) As Integer Sub Shifts() Const vk_shift As Integer = &H10 If GetKeyState(vk_shift) < 0 Then Call A Else Call B End Sub Sub A() ActiveSheet.DisplayAutomaticPageBreaks = True End Sub Sub B() ActiveSheet.DisplayAutomaticPageBreaks = False End Sub 当然,如果你对VBA够熟,不需要上述三个过程,用以下过程即可: 分页符切换.gif
2楼罗刚君	再说说如何检测Ctrl、Shift、Alt三键的状态 Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer Sub 测试状态() If (GetKeyState(&H10) And &H8000) <> 0 Then MsgBox "Shift键被按下了" If (GetKeyState(&H11) And &H8000) <> 0 Then MsgBox "Ctrl键被按下了" If (GetKeyState(&H12) And &H8000) <> 0 Then MsgBox "Alt键被按下了" End Sub '********************************************************** '作　　者：　罗刚君 '功　　能：　调用Ctrl、Shift、Alt状态 '版　　本：　1.0 '******************************************************** ' ╭⌒╮⌒╮ ︸︷﹀︿ ' ╱◥██◣ Home ﹀︷︸ ' \|田\|田田\|﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏ \| ' ╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬ \| ' Mail:andy_qc@163.com '**********************************************************
3楼 99253415	一直没理解彩蛋是什么意思，现在搞清楚了呵呵。
4楼唱只山歌给狼听	没有搞明白，不顾罗老师的东西一定是好东西
5楼罗刚君	新彩蛋制作更精致效果预览.gif 彩蛋分享.rar
6楼 2004098	留下脚印

免责声明

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

评论列表

楼主罗刚君	大家都知道很多很多软件有彩蛋的吧？例如PHOTOSHOP，每个版本都有。按下Shift键打开“关于”菜单和不按Shift键再打开结果是不同的。今天也教教如何设计这类一个按钮执行两个不同功能的代码本过程的功能为切换当前工作表的分页符,即让它显示与隐藏.而只需要一个按钮来完成具体代码如下: Declare Function GetKeyState Lib "user32" (ByVal nvirtkey As Long) As Integer Sub Shifts() Const vk_shift As Integer = &H10 If GetKeyState(vk_shift) < 0 Then Call A Else Call B End Sub Sub A() ActiveSheet.DisplayAutomaticPageBreaks = True End Sub Sub B() ActiveSheet.DisplayAutomaticPageBreaks = False End Sub 当然,如果你对VBA够熟,不需要上述三个过程,用以下过程即可: 分页符切换.gif
2楼罗刚君	再说说如何检测Ctrl、Shift、Alt三键的状态 Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer Sub 测试状态() If (GetKeyState(&H10) And &H8000) <> 0 Then MsgBox "Shift键被按下了" If (GetKeyState(&H11) And &H8000) <> 0 Then MsgBox "Ctrl键被按下了" If (GetKeyState(&H12) And &H8000) <> 0 Then MsgBox "Alt键被按下了" End Sub '********************************************************** '作　　者：　罗刚君 '功　　能：　调用Ctrl、Shift、Alt状态 '版　　本：　1.0 '******************************************************** ' ╭⌒╮⌒╮ ︸︷﹀︿ ' ╱◥██◣ Home ﹀︷︸ ' \|田\|田田\|﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏﹏ \| ' ╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬ \| ' Mail:andy_qc@163.com '**********************************************************
3楼 99253415	一直没理解彩蛋是什么意思，现在搞清楚了呵呵。
4楼唱只山歌给狼听	没有搞明白，不顾罗老师的东西一定是好东西
5楼罗刚君	新彩蛋制作更精致效果预览.gif 彩蛋分享.rar
6楼 2004098	留下脚印