엑셀 VBA msgbox 저절로 닫히는 코드

 

코드 txt 파일

엑셀 VBA 코드 msgbox 저절로 닫히는 코드.txt

0.00MB

방법1

Dim WSH As Object      Set WSH = CreateObject("WScript.Shell")      WSH.Popup "정답!!", 1, "Title", vbInformation '1은 1초 시간이다.     Set WSH = Nothing

 

 

---

 

 

방법2

출처 : 지식인

 

윈도우스크립트의 팝업를 사용 

MsgBox와 같은 효과낼 수 있다.

Sub MessageBoxTimer()     Dim AckTime As Integer, InfoBox As Object     Set InfoBox = CreateObject("WScript.Shell")          '여기에 시간을 설정하세요.     AckTime = 1          Select Case InfoBox.Popup("이 메시지박스는" & AckTime & "초 후에 닫힙니다.", _                                AckTime, "VBA 팀", 0)     Case 1, -1             Exit Sub     End Select   End Sub