Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe blijf je het Excel-venster altijd bovenaan?

Heb je ooit gewenst dat je Excel-vensters altijd bovenaan staan ​​en niet worden afgedekt door andere vensters? Helaas biedt Excel geen functie om deze taak op te lossen. Maar hier kan ik je een VBA-code geven om met deze baan om te gaan.

Houd Excel-venster altijd bovenaan met VBA-code


pijl blauwe rechterbel Houd Excel-venster altijd bovenaan met VBA-code


De volgende VBA-code kan u helpen om het Excel-venster altijd bovenaan te houden, de code wordt zowel op kantoor 32-bit als op kantoor 64-bit toegepast.

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de Module venster.

VBA-code: houd het Excel-venster altijd bovenaan

'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. Druk vervolgens op F5 toets om deze code uit te voeren, en a Macro's dialoogvenster verschijnt, selecteer SetXLOnTop optie en klik op lopen knop.

doc-keep-excel-on-top-1

4. En dan staat uw Excel-venster altijd bovenaan andere applicaties.

Notes: Als u het Excel-venster normaal wilt retourneren, drukt u gewoon op F5 sleutel om het te openen Macro's dialoogvenster, kies SetXNormal en klik op lopen.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Freediv · 1 years ago
    Hello

    It seems that xHwnd defined to store Application.hWnd before calling SetWindowPos as below:

    xHwnd = Application.hWnd
    Call SetWindowPos(xHwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

    Thanks
  • To post as a guest, your comment is unpublished.
    Prof. LI · 1 years ago
    Absolute genius. Exactly what I needed. Thanks!!!
  • To post as a guest, your comment is unpublished.
    David Conger-Eldeen · 1 years ago
    Thanks so much for this! I needed to keep my automated system stats sheet up at all times while I did other things based on what it was showing me. Very helpfull! :D
  • To post as a guest, your comment is unpublished.
    Kels · 2 years ago
    Thanks .. God Bless..!
  • To post as a guest, your comment is unpublished.
    Sam · 3 years ago
    Thanks for this. Very helpful when transposing data from multiple systems onto a spread sheet. Appreciate the code!
  • To post as a guest, your comment is unpublished.
    Clark · 3 years ago
    Thanks for the help!!! I had to use this as a workaround because you cant have two workpages open at the same time. Appreciate you sharing your code :)
  • To post as a guest, your comment is unpublished.
    Eric H · 5 years ago
    Love this!! Great code. Thanks! I'm a beginning programmer, I just barely know what it does.

    Where would I change in the code if I wanted the window to jump to a certain size, hide the ribbon, and/or jump to a certain sheet or cell range?
  • To post as a guest, your comment is unpublished.
    JennyRae · 5 years ago
    Thanks for providing this code! So helpful. I've been using Judy ten key for this feature but now I can use excel. Awesome, thank you!!