lỗi kiểm tra ngày tháng VBA (1 người xem)

[cuibap32pk]

giúp đỡ em với: Em có 1 nút button .khi nhấn hiện ra bảng nhập ngày tháng năm vào ô texbox và kiểm tra ngày tháng so với ngày tháng hiện tại.
Nếu >7 ngày mở sheet 1, =6 ngày mở sheet 2, =5 ngày mở sheet 3 đến khi =0 luôn
Em không hiểu sao nó không kiểm tra và trừ ngày tháng so sánh được.
anh chị nào xem giúp đoạn code với ạ:

Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer




If Not IsDate(TxtCont.Text) Then
Call MsgBox("Nhap ngay zo deeee )", vbOKOnly)
Else


a = (Day(TxtCont.Value) - Day(Now))
b = Month(TxtCont.Value)
If Month(Now) <= Month(b) Then
Select Case a
Case a > 7
ActiveWorkbook.Sheets("7day").Activate
Case a < 7 And a > 0
ActiveWorkbook.Sheets("6day").Activate
Case Else
Call MsgBox("hehe")
End Select
Else
Call MsgBox(" Qua PP lau roi ku )")
End If


End If




End Sub

 

[ptm0412]

Bạn xem chỗ tôi sửa màu đỏ. Giả định rằng cái bạn gõ trong textbox cùng dạng ngày tháng với hệ thống. Nếu bạn không chắc hệ thống đang là dd/mm/yy hay mm/dd/yy, hay yyyy, bạn nên dùng calendar hoặc datetime picker thay vì textbox.

    If Month(Now) [COLOR=#ff0000]<= b[/COLOR] Then
       Select Case a
       Case [COLOR=#ff0000]Is > 7[/COLOR]
         ActiveWorkbook.Sheets("7day").Activate
       Case [COLOR=#ff0000]Is > 0[/COLOR]
         ActiveWorkbook.Sheets("6day").Activate
       Case Else
       
       Call MsgBox("hehe")
       End Select
    Else
        Call MsgBox(" Qua PP lau roi ku :))")
    End If

 

[VetMini]

giúp đỡ em với: Em có 1 nút button .khi nhấn hiện ra bảng nhập ngày tháng năm vào ô texbox và kiểm tra ngày tháng so với ngày tháng hiện tại.
Nếu >7 ngày mở sheet 1, =6 ngày mở sheet 2, =5 ngày mở sheet 3 đến khi =0 luôn
Em không hiểu sao nó không kiểm tra và trừ ngày tháng so sánh được.
anh chị nào xem giúp đoạn code với ạ:

Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer




If Not IsDate(TxtCont.Text) Then
Call MsgBox("Nhap ngay zo deeee )", vbOKOnly)
Else


a = (Day(TxtCont.Value) - Day(Now))
b = Month(TxtCont.Value)
If Month(Now) <= Month(b) Then
Trong cái đống cases này, có cái nào nói chuyện 6, 5 đâu?
Select Case a
Case a > 7
ActiveWorkbook.Sheets("7day").Activate
Case a < 7 And a > 0
ActiveWorkbook.Sheets("6day").Activate
Case Else
Call MsgBox("hehe")
End Select
Else
Call MsgBox(" Qua PP lau roi ku )")
End If


End If




End Sub

Kết luận: code của bạn không diễn tả hết yêu cầu!