다른 애플리케이션에 Msgbox 팝업을 표시하려면 어떻게해야합니까?

여러 테이블에서 수천 줄을 처리하고 복사 / 붙여 넣기 / 분석 / 결합 ... 작업을 수행하는 Excel 매크로가 있습니다. 완전히 실행하는 데 거의 10 분이 걸립니다.

MsgBox "Job Done"끝에 A를 추가 하면 Excel이 활성 창 인 경우에만 팝업이 나타납니다. 예를 들어 Outlook에서 팝업이 나타나지 않으면 팝업의 이점이 크게 제한됩니다.

팝업되도록 무언가를 설정할 수 있습니까?

상자 밖으로 생각. Msgbox 옆에주의를 기울이는 다른 방법이 있습니다

맨 위에 있는 명령 행 창 팝업

Sub Sample()
  RetVal = Shell("CMD /k echo Hello World", vbNormalFocus)
End Sub

^{참고 : VBA 매크로는 중지되지 않습니다. 별도의 프로세스로 실행 중}

재생 비프 음을

Sub Sample()
  Beep
End Sub

^{참고 : 기본 경고음 이 작동하려면 관련된 소리가 있어야합니다.}

주의를 끌기 위해 메모장 열기

Sub Sample()      
  Set WScript = CreateObject("WScript.Shell")
  WScript.Run "%windir%\notepad", 1
End Sub

^{훌륭한 기사 Windows 스크립트 호스트 프로그래밍 에 대해 자세히 알아보십시오 . intWindowStyle로 포커스 동작을 변경할 수 있습니다}

어때요?

vbSystemModal   4096    System modal; all applications are suspended until the user responds to the message box.

MsgBox 함수 참조