Jak udržet okno aplikace Excel vždy nahoře?
Přáli jste si někdy, aby vaše okna aplikace Excel byla vždy nahoře a nebyla překryta jinými okny? Excel bohužel neposkytuje funkci pro řešení tohoto úkolu. Ale tady vám mohu dát kód VBA, který vám pomůže s touto prací.
Udržujte okno aplikace Excel vždy nahoře s kódem VBA
Udržujte okno aplikace Excel vždy nahoře s kódem VBA
Následující kód VBA vám pomůže udržet okno aplikace Excel vždy nahoře, kód se použije jak pro kancelářský 32bitový, tak pro kancelářský 64bitový.
1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
2, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Udržujte okno aplikace Excel vždy nahoře
'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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a makra Zobrazí se dialogové okno, vyberte SetXLOnTop a klepněte na tlačítko Běh .
4. A pak bude vaše okno aplikace Excel vždy nad ostatními aplikacemi.
Poznámka: Pokud chcete vrátit okno aplikace Excel do normálu, jednoduše stiskněte F5 klávesa pro otevření makra dialog, zvolte SetXNormal a klepněte na tlačítko Běh.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!