Hỏi về MsgBox?

[emgaingayngo]

Mình viết 01 đoạn code như sau :

Sub ChonKhoi()
Dim rng As Range
Dim temp As String, KQ As String
Dim nDong As Long, nCot As Long
ActiveCell.Resize(18, 9).Select
Set rng = ActiveCell.Resize(18, 9)
gtri = Application.InputBox("Chon So can tim", "Chon So", , , , , , 1 + 2)
KQ = Application.WorksheetFunction.CountIf(rng, gtri)
Msg = "Co " & KQ & " so " & gtri & Chr(13) & "ban co muon tiep tuc khong?"
temp = MsgBox(Msg, vbYesNo + vbDefaultButton2, "Xac Dinh Hanh Dong")
If temp = vbYes Then
gtri = Application.InputBox("Chon So can tim", "Chon So", , , , , , 1 + 2)
Msg = "Co " & KQ & " so " & gtri & Chr(13) & "ban co muon tiep tuc khong?"
temp = MsgBox(Msg, vbYesNo + vbDefaultButton2, "Xac Dinh Hanh Dong")
Else
Exit Sub
End If
Set rng = Nothing
End Sub

Nhờ các bạn chỉnh lại giúp theo ý sau :
Khi nào vẫn còn nhấn nút Yes thì vẫn hiện lại InputBox để nhập số cần đếm( đọan code trên chỉ hiện hộp thọai InPutBox 2 lần)

 

[ptm0412]

Dùng vòng lặp Do While - Loop như sau:

Sub ChonKhoi()
Dim rng As Range
Dim temp As String, KQ As String
Dim nDong As Long, nCot As Long, MyAns As String
    'ActiveCell.Resize(18, 9).Select'
    Set rng = ActiveCell.Resize(18, 9)
    MyAns = "Yes"
    Do While MyAns = "Yes"
        gtri = Application.InputBox("Chon So can tim", "Chon So", , , , , , 1 + 2)
        KQ = Application.WorksheetFunction.CountIf(rng, gtri)
        Msg = "Co " & KQ & " so " & gtri & Chr(13) & "ban co muon tiep tuc khong?"
        temp = MsgBox(Msg, vbYesNo + vbDefaultButton2, "Xac Dinh Hanh Dong")
        If temp = vbNo Then                       MyAns = "No"
        
    Loop
Set rng = Nothing
End Sub

 

[phamduylong]

Em đưa vào vòng lặp Do Loop, nếu chọn OK thì tiếp tục, chọn NO thì thoát vòng lặp.

Sub ChonKhoi1()
Dim rng As Range
Dim temp As String, KQ As String
Dim nDong As Long, nCot As Long
ActiveCell.Resize(18, 9).Select
Set rng = ActiveCell.Resize(18, 9)
Do
  gtri = Application.InputBox("Chon So can tim", "Chon So", , , , , , 1 + 2)
  KQ = Application.WorksheetFunction.CountIf(rng, gtri)
  Msg = "Co " & KQ & " so " & gtri & Chr(13) & "ban co muon tiep tuc khong?"
  temp = MsgBox(Msg, vbYesNo + vbDefaultButton2, "Xac Dinh Hanh Dong")
  If temp = vbNo Then Exit Do
Loop
Set rng = Nothing
End Sub