1. Location:
  2. / Computer learning >> Datamaskin læring >> Kontor-Programvare >> Microsoft excel >> excel Komplekset >>

Slik holder excel vinduet alltid på topp?

Hold Excel-vinduet alltid på topp med VBA-kode
Amazing! Bruke Tabs i Excel som Firefox, Chrome, Internet Explore 10!

Hint
Hvordan bli mer effektive og spare tid ved bruk av Excel? Følgende VBA-kode kan hjelpe deg til å holde Excel-vinduet alltid på topp , koden er brukt til både kontor 32-bit og kontor 64-bit.
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Hold Excel-vinduet alltid på topp
'Update 20140909 # Hvis Win64 Så Offentlig erklære PtrSafe Funksjons SetWindowPos _ Lib "User32" (_ ByVal hwnd Som LongPtr , _ ByVal hwndInsertAfter Som LongPtr, _ ByVal x As Long, ByVal y As Long, _ ByVal CX As Long, ByVal cy As Long, _ ByVal wFlags As Long) _ As Long # Else Offentlig erklære Funksjons SetWindowPos _ Lib "User32" ( _ ByVal hwnd As Long, _ ByVal hwndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, _ ByVal cx Som Long, ByVal cy As Long, _ ByVal wFlags As Long) _ As Long # End IfPublic Const SWP_NOSIZE = & H1Public Const SWP_NOMOVE = & H2Public Const HWND_TOPMOST = -1Public Const HWND_NOTOPMOST = -2Sub ShowXLOnTop (ByVal OnTop As Boolean) Dim xStype As Long # Hvis Win64 Så Dim xHwnd Som LongPtr #else Dim xHwnd As Long #END Hvis Hvis OnTop Så xStype = HWND_TOPMOST Else xStype = HWND_NOTOPMOST End If Call SetWindowPos (Application.hwnd, xStype, 0, 0, 0, 0, SWP_NOSIZE Eller SWP_NOMOVE) End SubSub SetXLOnTop () ShowXLOnTop TrueEnd SubSub SetXLNormal () ShowXLOnTop FalseEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og makroer dialogboks vil vises, velger SetXLOnTop alternativet, og klikk på Kjør-knappen.
4. Og deretter Excel-vinduet vil være alltid på toppen av andre programmer
Merk:.. Hvis du ønsker å returnere Excel-vinduet til vanlig, bare trykk F5 for å åpne dialogboksen Makroer, velger SetXNormal og klikk Kjør