excel多标签显示工具栏(Excel如何设置显示隐藏功能)

No.1

一个应用软件,有些功能是显示在可见状态,有些隐藏,由于显示器大小的局限和使用界面清洁性的需求,有些不重要的功能在不使用的情况下,无需显示出来。

同理,Excel有一些功能显示在界面中,更多地隐藏起来,需要的时候使用某种方法进行显示。

excel多标签显示工具栏(Excel如何设置显示隐藏功能)(1)

本节介绍几种常见功能的隐藏和显示方法,都是以VBA代码形式来进行操作。

介绍内容如下:

  • 全屏显示模式 DisplayFullScreen
  • 显示滚动条 DisplayScrollBars
  • 显示状态栏 DisplayStatusBar
  • 显示最近打开文件 DisplayRecentFiles
  • 显示编辑栏 DisplayFormulaBar
  • 显示剪贴板 DisplayClipboardWindow
  • 显示 4.0 版的菜单栏 DisplayExcel4Menus

如下图所示:

excel多标签显示工具栏(Excel如何设置显示隐藏功能)(2)

上述属性都是Application对象下的,所以使用的时候要加Application.

如:Application.DisplayFullScreen=true'全屏显示

这些属性均可返回,可设置,也就是说属性值可以读也可以写。

如:SetX=Application.DisplayFullScreen

Msgbox setX

输出当前显示模式值:True或False

True为全屏显示,False为正常模式。

其它属性同样的道理,布尔值真或假来定义模式不同。

excel多标签显示工具栏(Excel如何设置显示隐藏功能)(3)

No.2

下面用具体代码来进行演示,可根据代码进行学习不同属性的功能。

简单方法代码:

Private Sub ToggleButton1_Click() If Me.ToggleButton1.Value Then Application.DisplayFullScreen = True'设置属性值 Me.ToggleButton1.Caption = "窗体最大" Else Application.DisplayFullScreen = False Me.ToggleButton1.Caption = "窗体正常" End If End Sub

函数调用方法代码:

Private Sub ToggleButton2_Click() Dim btn As ToggleButton Set btn = Me.ToggleButton2 Dim St As String, Sf As String St = "显示滚动条" Sf = "隐藏滚动条" showDisplay btn, St, Sf'调用函数 End Sub

函数:

Private Sub showDisplay(btn As ToggleButton, St, Sf) Select Case VBA.Right(btn.Name, 1) Case 1'全屏 If btn.Value Then Application.DisplayFullScreen = True btn.Caption = St Else Application.DisplayFullScreen = False btn.Caption = Sf End If Case 2'滚动条 If btn.Value Then Application.DisplayScrollBars = True btn.Caption = St Else Application.DisplayScrollBars = False btn.Caption = Sf End If Case 3'状态栏 If btn.Value Then Application.DisplayStatusBar = True btn.Caption = St Else Application.DisplayStatusBar = False btn.Caption = Sf End If Case 4'打开文件 If btn.Value Then Application.DisplayRecentFiles = True btn.Caption = St Else Application.DisplayRecentFiles = False btn.Caption = Sf End If Case 5'编辑栏 If btn.Value Then Application.DisplayFormulaBar = True btn.Caption = St Else Application.DisplayFormulaBar = False btn.Caption = Sf End If End Select End Sub

严格来说,这此只是Excel应用的工具显示和隐藏功能,是应用设置的一些简单操作,通常在项目设置里都有这部分的内容。由于其不太容易被发现,所以使用的时候无从查找,这里列出来,可自由实现显示或隐藏功能,自己用着还是有一定的便利。

欢迎关注、收藏

---END---

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页