No.1

由于顯示大小限制和接口清潔性要求，一些不重要的功能在不使用時(shí)不需要顯示的應(yīng)用程序軟件。

同樣，Excel具有界面中顯示的一些功能，如果需要，可以使用任何方法顯示。

本節(jié)介紹如何隱藏和顯示用VBA代碼工作的一些常用功能。

介紹如下。

全屏模式顯示DisplayFullScreen滾動(dòng)條顯示DisplayScrollBars狀態(tài)欄顯示DisplayStatusBar顯示最近打開的文件顯示DisplayRecentFiles顯示編輯欄顯示DisplayFormulaBar剪貼板顯示displayclipboardwindowindows

上述所有屬性都位于Application對(duì)象下，因此使用時(shí)Application .

例如：a；全屏

這些屬性都可以返回，并且可以設(shè)置。也就是說，可以讀取和寫入屬性值。

示例：SetX=A

Msgbox setX

輸出當(dāng)前顯示模式值：True或False

True是全屏顯示，F(xiàn)alse是正常模式。

其他屬性也是如此。布爾值將模式定義為真或假。

盧。2

下面使用具體的代碼進(jìn)行演示，根據(jù)代碼可以學(xué)習(xí)各種屬性的功能。

簡(jiǎn)單的方法代碼：

Private Sub ToggleButton1_Click()

If Me。ToggleBu Then

設(shè)置“A=True”屬性值

Me。ToggleBu='表格最大值'

Else

A=False

Me。ToggleBu='表格正常'

End If

End Sub函數(shù)調(diào)用方法代碼：

Private Sub ToggleButton2_Click()

Dim BTN As ToggleButton

Set BTN=Me。ToggleButton2

Dim St As String、Sf As String

St='顯示滾動(dòng)條'

Sf='隱藏滾動(dòng)條'

“ShowDisplay btn，St，Sf”調(diào)用函數(shù)

End Sub函數(shù)：

private subshow display(BTN as toggle button、ST和SF)

Select Case VBA。Rig，1)

' Case 1 '全屏

If b Then

A=真

B=St

Else

A=False

B=Sf

End If

“Case 2”滾動(dòng)條

If b Then

A=真

B=St

Else

A=False

B=Sf

End If

“Case 3”狀態(tài)欄

If b Then

A=真

B=St

Else

A=False

B=Sf

End If

打開“Case 4”文件

If b Then

A=真

B=St

Else

A=False

B=Sf

End If

“Case 5”編輯列

If b Then

A=真

B=St

Else

A=False

B=Sf

End If

End Select

End Sub嚴(yán)格地說只是Excel應(yīng)用程序中的工具顯示和隱藏功能，是應(yīng)用設(shè)置的簡(jiǎn)單任務(wù)，通常包含在項(xiàng)目設(shè)置中。因?yàn)椴蝗菀装l(fā)現(xiàn)，所以使用的時(shí)候找不到。在這里列出，可以自由顯示或隱藏。自己用的東西有一定的方便。(大衛(wèi)亞設(shè))。

歡迎關(guān)注，所長(zhǎng)。

-結(jié)束-