Kako ohraniti okno Excela vedno na vrhu?
Ste si kdaj zaželeli, da bi bila vaša okna Excel vedno na vrhu in naj jih ne bi pokrivala druga okna? Na žalost Excel ne ponuja funkcije za reševanje te naloge. Tukaj pa vam lahko dam kodo VBA za reševanje tega posla.
Okno Excel naj bo vedno na vrhu s kodo VBA
Okno Excel naj bo vedno na vrhu s kodo VBA
Naslednja koda VBA vam lahko pomaga, da je okno Excel vedno na vrhu, koda se uporablja tako za 32-bitno pisarno kot za 64-bitno pisarno.
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: Excelovo okno naj bo vedno na vrhu
'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. Nato pritisnite F5 tipko za zagon te kode in a Makri odpre se pogovorno okno, izberite SetXLonTop in kliknite Run gumb.
4. In potem bo vaše Excelovo okno vedno na vrhu drugih aplikacij.
Opombe: Če želite okno Excel vrniti v normalno stanje, samo pritisnite F5 ključ, da odprete Makri pogovorno okno, izberite NastaviXNormal in kliknite Run.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!