Wie hält man Excel-Fenster immer oben?
Haben Sie sich jemals gewünscht, dass Ihre Excel-Fenster immer im Vordergrund bleiben und nicht von anderen Fenstern abgedeckt werden? Leider bietet Excel keine Funktion zum Lösen dieser Aufgabe. Aber hier kann ich Ihnen einen VBA-Code geben, um diesen Job zu erledigen.
Halten Sie das Excel-Fenster mit VBA-Code immer oben
Halten Sie das Excel-Fenster mit VBA-Code immer oben
Der folgende VBA-Code kann Ihnen dabei helfen, das Excel-Fenster immer im Vordergrund zu halten. Der Code wird sowohl auf Office 32-Bit als auch auf Office 64-Bit angewendet.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Halten Sie das Excel-Fenster immer oben
'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. Dann drücken F5 Schlüssel zum Ausführen dieses Codes und a Makros Dialogfeld wird angezeigt, wählen Sie SetXLOnTop Option und klicken Sie auf Führen Sie .
4. Und dann ist Ihr Excel-Fenster immer über anderen Anwendungen.
Note: Wenn Sie das Excel-Fenster wieder normalisieren möchten, drücken Sie einfach F5 Schlüssel zum Öffnen des Makros Dialog wählen SetXNormal und klicken auf Führen Sie.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
