excel隐藏功能怎么设置（Excel如何设置显示隐藏功能）

No.1

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

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

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

介绍内容如下：

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

如下图所示：

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

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

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

如：SetX=Application.DisplayFullScreen

Msgbox setX

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

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

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

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