Πώς να διατηρήσετε το παράθυρο excel πάντα στην κορυφή;

Έχετε ποτέ θελήσει να διατηρείτε τα παράθυρά σας στο Excel πάντα στην κορυφή και να μην καλύπτονται από άλλα παράθυρα; Δυστυχώς, το Excel δεν παρέχει μια δυνατότητα για την επίλυση αυτής της εργασίας. Αλλά, εδώ, μπορώ να σας δώσω έναν κωδικό VBA για την αντιμετώπιση αυτής της εργασίας.

Διατηρήστε το παράθυρο Excel πάντα στην κορυφή με τον κωδικό VBA

Διατηρήστε το παράθυρο Excel πάντα στην κορυφή με τον κωδικό VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να διατηρήσετε το παράθυρο του Excel πάντα στην κορυφή, ο κώδικας εφαρμόζεται τόσο στο Office 32-bit όσο και στο Office 64-bit.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Διατηρήστε πάντα το παράθυρο του Excel στην κορυφή

'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. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, και a Μακροεντολές θα εμφανιστεί ένα παράθυρο διαλόγου, επιλέξτε SetXLOnTop επιλογή και πατήστε τρέξιμο κουμπί.

4. Και τότε το παράθυρο του Excel θα είναι πάντα πάνω από άλλες εφαρμογές.

Σημείωση: Εάν θέλετε να επαναφέρετε το παράθυρο του Excel στο κανονικό, απλώς πατήστε F5 για να ανοίξετε το Μακροεντολές διαλόγου, επιλέξτε SetXNormal και κάντε κλικ στο κουμπί τρέξιμο.