Hogyan lehet az excel ablakot mindig a tetején tartani?
Kívánta már, hogy az Excel ablakai mindig fent legyenek, és ne fedjék le őket más ablakok? Sajnos az Excel nem nyújt funkciót ennek a feladatnak a megoldására. De itt adhatok egy VBA kódot ennek a munkának a kezelésére.
Tartsa az Excel ablakot mindig a tetején VBA kóddal
Tartsa az Excel ablakot mindig a tetején VBA kóddal
A következő VBA-kód segíthet abban, hogy az Excel ablak mindig fent legyen, a kódot mind az irodai 32 bites, mind az 64 bites irodákra alkalmazzák.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Az Excel ablak mindig legyen felül
'Update 20140909
#If Win64 Then
Public 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
#Else
Public 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 If
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Sub ShowXLOnTop(ByVal OnTop As Boolean)
Dim xStype As Long
#If Win64 Then
Dim xHwnd As LongPtr
#Else
Dim xHwnd As Long
#End If
If OnTop Then
xStype = HWND_TOPMOST
Else
xStype = HWND_NOTOPMOST
End If
Call SetWindowPos(Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub
Sub SetXLOnTop()
ShowXLOnTop True
End Sub
Sub SetXLNormal()
ShowXLOnTop False
End Sub
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a makrók párbeszédpanel jelenik meg, válassza a lehetőséget SetXLOnTop opciót, és kattintson rá futás gombot.
4. Ekkor az Excel ablak mindig a többi alkalmazás tetején lesz.
Megjegyzések: Ha vissza akarja állítani az Excel ablakot a normál állapotba, egyszerűen nyomja meg a gombot F5 kulcs megnyitásához makrók párbeszédablakban válassza ki SetXNormal és kattintson futás.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
