Excelウィンドウを常に上に保つ方法は？

Excelウィンドウを常に一番上に置き、他のウィンドウで覆われないようにしたいと思ったことはありませんか？ 残念ながら、Excelにはこのタスクを解決するための機能がありません。 しかし、ここでは、このジョブを処理するためのVBAコードを提供できます。

Excelウィンドウを常にVBAコードで一番上に保つ

Excelウィンドウを常にVBAコードで一番上に保つ

次のVBAコードは、Excelウィンドウを常に一番上に保つのに役立ちます。このコードは、Office32ビットとOffice64ビットの両方に適用されます。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：Excelウィンドウを常に一番上に保つ

'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。 次に、 F5 このコードを実行するためのキー、および マクロ ダイアログボックスが表示されたら、を選択します SetXLonTop オプションをクリックして ラン

4. そして、Excelウィンドウは常に他のアプリケーションの上に表示されます。

Note：Excelウィンドウを通常の状態に戻したい場合は、 F5 キーを開く マクロ ダイアログで選択 SetXNormal をクリックし ラン.