Conas an fhuinneog barr feabhais a choinneáil i gcónaí?
Ar mhian leat riamh go gcoinneofaí do chuid fuinneoga Excel i gcónaí agus nach gclúdódh fuinneoga eile iad? Ar an drochuair, ní sholáthraíonn Excel gné chun an tasc seo a réiteach. Ach, anseo, is féidir liom cód VBA a thabhairt duit chun déileáil leis an bpost seo.
Coinnigh fuinneog Excel i gcónaí ar an mbarr le cód VBA
Coinnigh fuinneog Excel i gcónaí ar an mbarr le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhuinneog Excel a choinneáil ar barr i gcónaí, cuirtear an cód i bhfeidhm ar oifig 32-giotán agus 64-giotán oifige.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Coinnigh an fhuinneog Excel ar an mbarr i gcónaí
'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. Ansin brúigh F5 eochair chun an cód seo a rith, agus a Macraí beidh bosca dialóige le feiceáil, roghnaigh SetXLOnTop rogha, agus cliceáil Rith cnaipe.
4. Agus ansin beidh d’fhuinneog Excel i gcónaí ar bharr feidhmchlár eile.
nótaí: Más mian leat an fhuinneog Excel a chur ar ais ina gnáthriocht, ní gá ach brú F5 eochair chun an Macraí dialóg, roghnaigh SocraighXNormálta agus cliceáil Rith.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
