Hvordan holder Excel-vinduet altid øverst?
Har du nogensinde ønsket, at dine Excel-vinduer altid skal være på toppen og ikke bliver dækket af andre vinduer? Desværre indeholder Excel ikke en funktion til løsning af denne opgave. Men her kan jeg give dig en VBA-kode til at håndtere dette job.
Hold Excel-vinduet altid øverst med VBA-kode
Hold Excel-vinduet altid øverst med VBA-kode
Følgende VBA-kode kan hjælpe dig med at holde Excel-vinduet altid øverst, koden anvendes på både office 32-bit og office 64-bit.
1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Hold Excel-vinduet altid øverst
'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. Tryk derefter på F5 nøgle til at køre denne kode, og en Makroer dialogboks vises, vælg SetXLOnTop valgmulighed og klik Kør .
4. Og så vil dit Excel-vindue altid være oven på andre applikationer.
Bemærk: Hvis du vil bringe Excel-vinduet tilbage til det normale, skal du bare trykke på F5 nøgle til at åbne Makroer dialog, vælg SetXNormal og klik Kør.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!