如何使Excel窗口始終位于最前面？

您是否曾經(jīng)希望將Excel窗口始終放在最前面，而不會被其他窗口覆蓋？ 不幸的是，Excel沒有提供解決此任務(wù)的功能。 但是，在這里，我可以給您一個VBA代碼來處理此工作。

使用VBA代碼使Excel窗口始終位于最前面

使用VBA代碼使Excel窗口始終位于最前面驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標(biāo)單擊！

下面的VBA代碼可以幫助您始終將Excel窗口保持在頂部，該代碼適用于Office 32位和Office 64位。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊窗口.

VBA代碼：始終將Excel窗口置于頂部

Update 20140909#If Win64 ThenPublic Declare PtrSafe Function SetWindowPos _Lib "user32" ( _ByVal hwnd As LongPtr, _ByVal hwndInsertAfter As LongPtr, _ByVal x As Long, ByVal y As Long, _ByVal cx As Long, ByVal cy As Long, _ByVal wFlags As Long) _As Long#ElsePublic Declare Function SetWindowPos _Lib "user32" ( _ByVal hwnd As Long, _ByVal hwndInsertAfter As Long, _ByVal x As Long, ByVal y As Long, _ByVal cx As Long, ByVal cy As Long, _ByVal wFlags As Long) _As Long#End IfPublic Const SWP_NOSIZE = &H1Public Const SWP_NOMOVE = &H2Public Const HWND_TOPMOST = -1Public Const HWND_NOTOPMOST = -2Sub ShowXLonTop(ByVal onTop As Boolean)Dim xStype As Long#If Win64 ThenDim xHwnd As LongPtr#ElseDim xHwnd As Long#End IfIf onTop ThenxStype = HWND_TOPMOSTElsexStype = HWND_NOTOPMOSTEnd IfCall SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)End SubSub SetXLonTop()ShowXLonTop TrueEnd SubSub SetXLNormal()ShowXLonTop FalseEnd SubCopy

3。 然后按 F5 運行此代碼的關(guān)鍵，以及 宏 出現(xiàn)對話框，選擇 設(shè)置XLOnTop 選項，然后單擊 運行 按鈕。

4. 然后，您的Excel窗口將始終位于其他應(yīng)用程序的頂部。

備注：如果要使Excel窗口恢復(fù)正常，只需按 F5 鍵打開 宏 對話框中，選擇 設(shè)置X正常 并點擊 運行.

最佳辦公生產(chǎn)力工具

將小時轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel