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.