Xin hướng dẫn cách: Tự đóng hộp thoại sau 8 giây, nếu không chọn Yes

[phamvandunghp84]

Mình tìm được code này để tạo hộp thoại tự động đóng lại sau 8 giây. Mình muốn làm sao để hộp thoại này có lời nhắc Yes No. khi nhấn vào Yes thì hộp thoại không tự động đóng lại nữa. mà sẽ tạm dừng chạy VBA.

' Msg tự động đóng thông báo lại sau 8 giây
Sub Msg(Tb As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup Tb, 8, "THONG BAO"
Set objShell = Nothing
End Sub

.............
' Nhờ các bạn giúp cách: làm thế nào để khi nhấn chọn yes để tạm dừng ?
Sub Msg(Tb As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup Tb, 8, "THONG BAO", vbYesNo
Set objShell = Nothing

if Yes... then
Call tam_dung
end if
End Sub

Sub
msgbox("tạm dừng")
End Sub

 

[Excel my love_1]

Mình tìm được code này để tạo hộp thoại tự động đóng lại sau 8 giây. Mình muốn làm sao để hộp thoại này có lời nhắc Yes No. khi nhấn vào Yes thì hộp thoại không tự động đóng lại nữa. mà sẽ tạm dừng chạy VBA.

' Msg tự động đóng thông báo lại sau 8 giây
Sub Msg(Tb As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup Tb, 8, "THONG BAO"
Set objShell = Nothing
End Sub

.............
' Nhờ các bạn giúp cách: làm thế nào để khi nhấn chọn yes để tạm dừng ?
Sub Msg(Tb As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup Tb, 8, "THONG BAO", vbYesNo
Set objShell = Nothing

if Yes... then
Call tam_dung
end if
End Sub

Sub
msgbox("tạm dừng")
End Sub

Bạn chuyển sang làm userform cho tiện mà lại có thể thêm màu sắc cho hộp thoại và các button

 

[huuthang_bd]

Bạn thử code này

Sub Msga(Tb As String)
Dim objShell As Object, selectedButton As Long
Set objShell = CreateObject("Wscript.Shell")
selectedButton = objShell.Popup(Tb, 2, "THONG BAO", vbYesNo)
If selectedButton = 6 Then
    MsgBox "Ban da chon 'Yes'"
ElseIf selectedButton = 7 Then
    MsgBox "Ban da chon 'No'"
ElseIf selectedButton = -1 Then
    MsgBox "Het gio roi, sao ban khong chon"
End If
Set objShell = Nothing
End Sub