Excelで開いている（現在実行中の）すべてのアプリケーションを一覧表示するにはどうすればよいですか？

実際には、VBAコードを実行しているExcelでコンピューターのAlt + Tabキーを押したときにのみ表示されるすべての開いているアプリケーションを一覧表示できます。 記事のメソッドはあなたを助けることができます。

VBAコードを使用して開いている（現在実行中の）すべてのアプリケーションを一覧表示します

VBAコードを使用して開いている（現在実行中の）すべてのアプリケーションを一覧表示します

Excelで開いているすべてのアプリケーションを一覧表示するには、次の手順を実行してください。

1. Excelブックで、を押してください 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、Iを押しますする > モジュール。 次に、VBAコードをコピーして[コード]ウィンドウに貼り付けます。 スクリーンショットを参照してください：

VBAコード：Excelで開いているすべてのアプリケーションを一覧表示します

Private Declare PtrSafe Function apiGetClassName Lib "user32" Alias _
                "GetClassNameA" (ByVal Hwnd As Long, _
                ByVal lpClassname As String, _
                ByVal nMaxCount As Long) As Long
Private Declare PtrSafe Function apiGetDesktopWindow Lib "user32" Alias _
                "GetDesktopWindow" () As Long
Private Declare PtrSafe Function apiGetWindow Lib "user32" Alias _
                "GetWindow" (ByVal Hwnd As Long, _
                ByVal wCmd As Long) As Long
Private Declare PtrSafe Function apiGetWindowLong Lib "user32" Alias _
                "GetWindowLongA" (ByVal Hwnd As Long, ByVal _
                nIndex As Long) As Long
Private Declare PtrSafe Function apiGetWindowText Lib "user32" Alias _
                "GetWindowTextA" (ByVal Hwnd As Long, ByVal _
                lpString As String, ByVal aint As Long) As Long
Private Const mcGWCHILD = 5
Private Const mcGWHWNDNEXT = 2
Private Const mcGWLSTYLE = (-16)
Private Const mcWSVISIBLE = &H10000000
Private Const mconMAXLEN = 255

Sub ListName()
    Dim xRg As Range
    Dim xStr As String
    Dim xStrLen As Long
    Dim xHandle As Long
    Dim xHandleStr As String
    Dim xHandleLen As Long, xHandleStyle As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select a range（single cell）：", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg(1).Activate
    xHandle = apiGetWindow(apiGetDesktopWindow(), mcGWCHILD)
    Do While xHandle <> 0
        xStr = String$(mconMAXLEN - 1, 0)
        xStrLen = apiGetWindowText(xHandle, xStr, mconMAXLEN)
        If xStrLen > 0 Then
            xStr = Left$(xStr, xStrLen)
            xHandleStyle = apiGetWindowLong(xHandle, mcGWLSTYLE)
            If xHandleStyle And mcWSVISIBLE Then
                ActiveCell.Value = xStr
                ActiveCell.Offset(1, 0).Activate
            End If
        End If
        xHandle = apiGetWindow(xHandle, mcGWHWNDNEXT)
    Loop
End Sub

3。 プレス F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、実行中のすべてのアプリケーションを一覧表示するセルを選択し、[ OK ボタン。 スクリーンショットを参照してください：

これで、開いているすべてのアプリケーションが、下のスクリーンショットに示すように、選択した列にすぐに一覧表示されます。

関連記事：

• Excelで値の一致するすべてのインスタンスを一覧表示するにはどうすればよいですか？
• Excelで指定した月の日付としてすべての日を一覧表示するにはどうすればよいですか？