Hộp thông báo tự động đóng lại.

[sealand]

Trong thực tế sử dụng VBA nhiều khi ta viết MsgBox để có thông báo cho người dùng nhưng nó cứ chình ình ra và phải tự tay đóng lại nó mới chạy tiếp Code. Giờ mình sưu tầm được 1 cách cũng hay cho việc hiện thông báo trong thời gian tuỳ chọn rồi tự đóng lại (Chả hiểu sao tài liệu là 1 giây, nhưng mình đặt 1 mà nó ra đến vài giây). Mình gửi lên đây chia sẻ cùng anh em

1/Ta viết 1 code nhỏ để dùng chung hoặc viết trực tiếp vào đây tuỳ bạn

Sub Msg(Tb As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup Tb, 1, "THONG BAO TU DONG LAI"
Set objShell = Nothing
End Sub

2/Khi sử dụng

Private Sub CommandButton1_Click()
Msg "Ban nhan nut 1. Xin chao!" ' Thay vi Msgbox "Ban nhan nut 1. Xin chao!"
End Sub

Chú ý: Thời gian hiện phụ thuộc vào con số 1 (Bạn thay đổi nó để có thời gian phù hợp)

 

[ndu96081631]

Trong thực tế sử dụng VBA nhiều khi ta viết MsgBox để có thông báo cho người dùng nhưng nó cứ chình ình ra và phải tự tay đóng lại nó mới chạy tiếp Code. Giờ mình sưu tầm được 1 cách cũng hay cho việc hiện thông báo trong thời gian tuỳ chọn rồi tự đóng lại (Chả hiểu sao tài liệu là 1 giây, nhưng mình đặt 1 mà nó ra đến vài giây). Mình gửi lên đây chia sẻ cùng anh em

1/Ta viết 1 code nhỏ để dùng chung hoặc viết trực tiếp vào đây tuỳ bạn

Sub Msg(Tb As String)
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup Tb, 1, "THONG BAO TU DONG LAI"
Set objShell = Nothing
End Sub

2/Khi sử dụng

Private Sub CommandButton1_Click()
Msg "Ban nhan nut 1. Xin chao!" ' Thay vi Msgbox "Ban nhan nut 1. Xin chao!"
End Sub

Chú ý: Thời gian hiện phụ thuộc vào con số 1 (Bạn thay đổi nó để có thời gian phù hợp)

Cái WScript.Shell này ngoài việc tự đóng lại còn hổ trợ tiếng Việt Unicode nữa đấy
Cú pháp:

With CreateObject("WScript.Shell")
  .Popup Nội dung, [thời gian đợi], [Tiêu đề], [kiểu MsgBox]
End With

[Nội dung] có thể hiển thị tiếng Việt Unicde, còn phần [Tiêu đề] và [Kiểu MsgBox] thì vẫn tuân thủ đúng như quy định của MsgBox thông thường
Dạng Control này đã từng đề cập nhiều lần trên diễn đàn rồi anh à! Chẳng hạn tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?38289-Hàm-ChrW-hiển-thị-không-chính-xác&