Jak utrzymać okno programu Excel zawsze na wierzchu?
Czy kiedykolwiek chciałeś, aby okna programu Excel były zawsze na wierzchu i nie były zasłaniane przez inne okna? Niestety program Excel nie zapewnia funkcji umożliwiającej rozwiązanie tego zadania. Ale tutaj mogę podać kod VBA, aby poradzić sobie z tą pracą.
Utrzymuj okno Excela zawsze na wierzchu dzięki kodowi VBA
Utrzymuj okno Excela zawsze na wierzchu dzięki kodowi VBA
Poniższy kod VBA może pomóc w utrzymaniu okna programu Excel zawsze na wierzchu, kod jest stosowany zarówno do 32-bitowego pakietu Office, jak i 64-bitowego pakietu Office.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: Zachowaj okno programu Excel zawsze na wierzchu
'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. Następnie naciśnij F5 klucz do uruchomienia tego kodu oraz plik Makra pojawi się okno dialogowe, wybierz Ustaw XLNa górze opcję i kliknij run przycisk.
4. A wtedy okno programu Excel będzie zawsze na wierzchu innych aplikacji.
Note: Jeśli chcesz przywrócić normalne okno programu Excel, po prostu naciśnij F5 klucz, aby otworzyć Makra dialog, wybierz UstawXNormalny i kliknij run.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
