一個應用軟件，有些功能是顯示在可見狀态，有些隐藏，由于顯示器大小的局限和使用界面清潔性的需求，有些不重要的功能在不使用的情況下，無需顯示出來。

同理，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為正常模式。

其它屬性同樣的道理，布爾值真或假來定義模式不同。

下面用具體代碼來進行演示，可根據代碼進行學習不同屬性的功能。

簡單方法代碼：

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---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!