Sao không hiện Msgbox (1 người xem)

[DMQ]

Em mới tập tành đến với VBA, em có thử làm đoạn code để báo lỗi như trong file đính kèm. Không biết sai chổ nào mà không hiện lên Msgbox, Mong các AC chỉ giáo.

 

[Ba Tê]

Em mới tập tành đến với VBA, em có thử làm đoạn code để báo lỗi như trong file đính kèm. Không biết sai chổ nào mà không hiện lên Msgbox, Mong các AC chỉ giáo.

Chỉ thay tên 1 Sub GPE thôi, code bạn viết sao để y vậy.

Private Sub GPE()
    If Range("B3") = "" Or Range("B4") = "" Or Range("B5") = "" Or Range("B6") = "" Or Range("B7") = "" Then
        MsgBox "Ban chua nhap du du lieu" & Chr(13) & "Xin ban hay kiem tra lai", , "Thong Bao"
        [B3].Select
    Else
        NhapLieu
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$B$8" Then
GPE
End If
End Sub

 

[DMQ]

Cám ơn Thầy!!! Mong Thầy chỉ giáo thêm!!!

 

[vodoi2x]

Cám ơn Thầy!!! Mong Thầy chỉ giáo thêm!!!

bac bate đang làm khó bạn ra - bằng cách đổi tên SUB rùi lắp vào, thế thui

Lý do chính là sub NL_Click có nhưng chưa gọi, mà Msgbox lại nằm trong SUB này

Bạn chỉ cần sửa
dòng code sau trong Sub Worksheet_SelectionChange

Call NhapLieu 'NhapLieu là tên lenh nhap lieu

thành

Call NL_Click

là được thui,

 

[DMQ]

Dù gì nữa thì em cũng cám ơn Thầy Ba Tê và Bạn vodoi2x, hai người đã cho em thêm cái hay của VBA.