Sut i gadw ffenestr excel bob amser ar ei ben?
A ydych erioed wedi dymuno cadw'ch ffenestri Excel ar ben bob amser a pheidio â chael eich gorchuddio gan ffenestri eraill? Yn anffodus, nid yw Excel yn darparu nodwedd ar gyfer datrys y dasg hon. Ond, yma, gallaf roi cod VBA i chi ddelio â'r swydd hon.
Cadwch ffenestr Excel bob amser ar ei phen gyda chod VBA
Cadwch ffenestr Excel bob amser ar ei phen gyda chod VBA
Gall y cod VBA canlynol eich helpu i gadw'r ffenestr Excel bob amser ar ben, mae'r cod yn cael ei gymhwyso i swyddfa 32-bit a swyddfa 64-bit.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Cadwch ffenestr Excel bob amser ar ei phen
'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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac a Macros bydd blwch deialog yn ymddangos, dewiswch SetXLOnTop opsiwn, a chlicio Run botwm.
4. Ac yna bydd eich ffenestr Excel bob amser ar ben cymwysiadau eraill.
Nodyn: Os ydych chi am ddychwelyd y ffenestr Excel yn normal, pwyswch F5 allweddol i agor y Macros deialog, dewiswch SetXNormal a chliciwch Run.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!