Excel에서 모든 열린 (현재 실행 중인) 응용 프로그램을 나열하려면 어떻게 해야 하나요?

실제로, 컴퓨터에서 Alt + Tab 키를 눌렀을 때만 표시되는 모든 열린 응용 프로그램을 VBA 코드를 실행하여 Excel에 나열할 수 있습니다. 이 문서의 방법이 도움이 될 것입니다.

VBA 코드를 사용하여 모든 열린 (현재 실행 중인) 응용 프로그램 나열하기

VBA 코드를 사용하여 모든 열린 (현재 실행 중인) 응용 프로그램 나열하기

Excel에서 모든 열린 응용 프로그램을 나열하려면 다음과 같이 하세요.

1. Excel 통합 문서에서 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 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 대화 상자에서 실행 중인 모든 응용 프로그램을 나열하고자 하는 셀을 선택한 후 확인 버튼을 클릭하세요. 스크린샷 보기:

이제 모든 열린 응용 프로그램이 아래 스크린샷과 같이 선택된 열에 즉시 나열됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

관련 문서:

• Excel에서 특정 값의 모든 일치하는 항목을 나열하려면 어떻게 해야 하나요?
• Excel에서 지정된 월의 모든 날짜를 일자로 나열하려면 어떻게 해야 하나요?