admin管理员组文章数量:1564701
2024年8月1日发(作者:)
Excel如何设置显示隐藏功能,全屏显示,查看剪贴板,隐藏
编辑栏
No.1
一个应用软件,有些功能是显示在可见状态,有些隐藏,由于显
示器大小的局限和使用界面清洁性的需求,有些不重要的功能在不使
用的情况下,无需显示出来。
同理,Excel有一些功能显示在界面中,更多地隐藏起来,需要的
时候使用某种方法进行显示。
本节介绍几种常见功能的隐藏和显示方法,都是以VBA代码形式
来进行操作。
介绍内容如下:
•
全屏显示模式 DisplayFullScreen
•
显示滚动条 DisplayScrollBars
•
显示状态栏 DisplayStatusBar
•
显示最近打开文件 DisplayRecentFiles
•
显示编辑栏 DisplayFormulaBar
•
显示剪贴板 DisplayClipboardWindow
•
显示 4.0 版的菜单栏 DisplayExcel4Menus
如下图所示:
上述属性都是Application对象下的,所以使用的时候要加
Application.
如:
yFullScreen=true'全屏显示
这些属性均可返回,可设置,也就是说属性值可以读也可以写。
如:SetX=
yFullScreen
Msgbox setX
输出当前显示模式值:True或False
True为全屏显示,False为正常模式。
其它属性同样的道理,布尔值真或假来定义模式不同。
No.2
下面用具体代码来进行演示,可根据代码进行学习不同属性的功
能。
简单方法代码:
Private Sub ToggleButton1_Click()If
Then yFullScreen = True'设置属性值
n
= '窗体正常'End IfEnd Sub
函数调用方法代码:
Private Sub ToggleButton2_Click()Dim btn As
ToggleButtonSet btn = Button2Dim St As String, Sf As
StringSt = '显示滚动条'Sf = '隐藏滚动条'showDisplay btn, St, Sf'调
用函数End Sub
函数:
Private Sub showDisplay(btn As ToggleButton, St, Sf)Select
Case (, 1) Case 1'全屏 If Then
yFullScreen = True n = St Else
yFullScreen = False n = Sf End If
Case 2'滚动条 If Then yScrollBars =
True n = St Else yScrollBars = False
n = Sf End If Case 3'状态栏 If Then
yStatusBar = True n = St Else
yStatusBar = False n = Sf End If Case
4'打开文件 If Then yRecentFiles =
True n = St Else yRecentFiles = False
n = Sf End If Case 5'编辑栏 If Then
yFormulaBar = True n = St Else
yFormulaBar = False n = Sf End
IfEnd SelectEnd Sub
严格来说,这此只是Excel应用的工具显示和隐藏功能,是应用设
= '窗体最大'Else
yFullScreen = False n
置的一些简单操作,通常在项目设置里都有这部分的内容。由于其不
太容易被发现,所以使用的时候无从查找,这里列出来,可自由实现
显示或隐藏功能,自己用着还是有一定的便利。
版权声明:本文标题:Excel如何设置显示隐藏功能,全屏显示,查看剪贴板,隐藏编辑栏_ 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dongtai/1722454768a934023.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论