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 ThenApplication.DisplayFullScreen = True'設定屬性值Me.ToggleButton1.Caption = "窗體最大"ElseApplication.DisplayFullScreen = FalseMe.ToggleButton1.Caption = "窗體正常"End IfEnd Sub

函數呼叫方法程式碼：

Private Sub ToggleButton2_Click()Dim btn As ToggleButtonSet btn = Me.ToggleButton2Dim St As String, Sf As StringSt = "顯示滾動條"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 ThenApplication.DisplayFullScreen = Truebtn.Caption = StElseApplication.DisplayFullScreen = Falsebtn.Caption = SfEnd IfCase 2'滾動條If btn.Value ThenApplication.DisplayScrollBars = Truebtn.Caption = StElseApplication.DisplayScrollBars = Falsebtn.Caption = SfEnd IfCase 3'狀態列If btn.Value ThenApplication.DisplayStatusBar = Truebtn.Caption = StElseApplication.DisplayStatusBar = Falsebtn.Caption = SfEnd IfCase 4'開啟檔案If btn.Value ThenApplication.DisplayRecentFiles = Truebtn.Caption = StElseApplication.DisplayRecentFiles = Falsebtn.Caption = SfEnd IfCase 5'編輯欄If btn.Value ThenApplication.DisplayFormulaBar = Truebtn.Caption = StElseApplication.DisplayFormulaBar = Falsebtn.Caption = SfEnd IfEnd SelectEnd Sub

嚴格來說，這此只是Excel應用的工具顯示和隱藏功能，是應用設定的一些簡單操作，通常在項目設定裡都有這部分的內容。由於其不太容易被發現，所以使用的時候無從查詢，這裡列出來，可自由實現顯示或隱藏功能，自己用著還是有一定的便利。

歡迎關注、收藏

---END---