Come mantenere la finestra di Excel sempre in primo piano?
Hai mai desiderato che le finestre di Excel fossero sempre in primo piano e non fossero coperte da altre finestre? Sfortunatamente, Excel non fornisce una funzionalità per risolvere questa attività. Ma qui, posso darti un codice VBA per affrontare questo lavoro.
Mantieni la finestra di Excel sempre in primo piano con il codice VBA
Mantieni la finestra di Excel sempre in primo piano con il codice VBA
Il seguente codice VBA può aiutarti a mantenere la finestra di Excel sempre in primo piano, il codice viene applicato sia all'ufficio a 32 bit che all'ufficio a 64 bit.
1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.
Codice VBA: mantieni la finestra di Excel sempre in primo piano
'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. Quindi premere F5 chiave per eseguire questo codice e un file Macro apparirà la finestra di dialogo, selezionare Imposta XL in alto opzione e fare clic Correre pulsante.
4. E poi la tua finestra di Excel sarà sempre in primo piano rispetto alle altre applicazioni.
Note:: Se vuoi riportare la finestra di Excel alla normalità, premi semplicemente F5 chiave per aprire il Macro dialogo, scegliere ImpostaXNormale e fare clic su Correre.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!