Giúp mình cách thoát khỏi hộp msgbox khi chạy code

[qtm1987]

Code mình viết thế này và khi chạy code thì không thể thoát khỏi hộp msgbox. Có cách nào để dừng code đang chạy khi không muốn xem msgbox nữa hok mọi người?

Sub thongbao()
Dim i As Long, sArray, arr As String
With Sheet1
sArray = .Range(.[A2], .[a51]).Resize(, 2).Value
For i = 1 To UBound(sArray, 1)
    If sArray(i, 2) = "" Then
        .Range("B" & i + 1).Select
        MsgBox "Vui long nhap vao ngay chung tu tai o B" & i + 1, , "Thong bao"
    End If
Next
End With
End Sub

 

[viehoai]

Code mình viết thế này và khi chạy code thì không thể thoát khỏi hộp msgbox. Có cách nào để dừng code đang chạy khi không muốn xem msgbox nữa hok mọi người?

Sub thongbao()
Dim i As Long, sArray, arr As String
With Sheet1
sArray = .Range(.[A2], .[a51]).Resize(, 2).Value
'redim arr =
For i = 1 To UBound(sArray, 1)
    If sArray(i, 2) = "" Then
        .Range("B" & i + 1).Select
        MsgBox "Vui long nhap vao ngay chung tu tai o B" & i + 1, , "Thong bao"
    End If
Next
End With
End Sub

Đọc lại kỹ bạn vẫn có thể dùng Exit sub hoặc Exit For sau MsgBox

 

[ndu96081631]

Có cách nào để dừng code đang chạy khi không muốn xem msgbox nữa hok mọi người?

Không muốn xem MsgBox nữa, hãy bấm tổ hợp phím Ctrl + Break rồi bấm nút End

 

[qtm1987]

Đọc lại kỹ bạn vẫn có thể dùng Exit sub hoặc Exit For sau MsgBox

nếu mình thêm vbyesno vào hộp msgbox

MsgBox "Vui long nhap vao ngay chung tu tai o B" & i + 1, vbYesNo, "Thong bao"

thì sẽ hiện thêm 2 nút Yes/ No. Có cách nào gắn vào nút No lệnh Exit Sub để khi ấn vào No thì mới thoát ra khỏi hộp thông báo không nhỉ.

 

[ndu96081631]

nếu mình thêm vbyesno vào hộp msgbox

MsgBox "Vui long nhap vao ngay chung tu tai o B" & i + 1, vbYesNo, "Thong bao"

thì sẽ hiện thêm 2 nút Yes/ No. Có cách nào gắn vào nút No lệnh Exit Sub để khi ấn vào No thì mới thoát ra khỏi hộp thông báo không nhỉ.

Đương nhiên được

Sub thongbao()
  Dim i As Long, sArray, arr As String, Msg As Long
  With Sheet1
    sArray = .Range(.[A2], .[a51]).Resize(, 2).Value
    For i = 1 To UBound(sArray, 1)
      If sArray(i, 2) = "" Then
        .Range("B" & i + 1).Select
        Msg = MsgBox("Vui long nhap vao ngay chung tu tai o B" & i + 1, vbYesNo, "Thong bao")
        If Msg = vbNo Then Exit Sub
      End If
    Next
  End With
End Sub

 

[qtm1987]

hj. cám ơn anh Ndu. cách này thật đúng ý em.

 

[OverAC]

Có cách nào message box vẫn hiện nhưng code vẫn chạy tiếp. Tất nhiên nếu dùng form thì không nói làm gì

 

[sealand]

Có cách nào message box vẫn hiện nhưng code vẫn chạy tiếp. Tất nhiên nếu dùng form thì không nói làm gì

Mình thấy bài này có thể, http://www.giaiphapexcel.com/forum/showthread.php?44585-Hộp-thông-báo-tự-động-đóng-lại&p=289044#post289044

Ta cải tiến 1 chút

Option Explicit
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
'=====================================
Private Sub CommandButton2_Click()
Dim i
For i = 1 To 10

'Su ly cai gi tuy ban

Msg "Dang su ly lam " & i & Chr(10) & "Xin chao!"
Next
End Sub