[Nhờ vả] Báo lỗi khi nhập ngày tháng không đủ điều kiện (2 người xem)

[cuong.vp.nuce]

Mình có cột ngày hoàn thành: là số ngày quy định để hoàn thành.
Em muốn ngày kết thúc nằm trong khoảng (ngày bắt đầu + ngày hoàn thành) . Nhập khác ngày sẽ bão lỗi
Anh chị nào giúp em với được không?

 

[Phuocam]

Em muốn ngày kết thúc nằm trong khoảng (ngày bắt đầu + ngày hoàn thành)

Dùng Davalidation, ví dụ mẫu tại Y3:

=AND(Y3>=ngày bắt đầu,Y3<=ngày bắt đầu + ngày hoàn thành))

 

[snow25]

Mình có cột ngày hoàn thành: là số ngày quy định để hoàn thành.
Em muốn ngày kết thúc nằm trong khoảng (ngày bắt đầu + ngày hoàn thành) . Nhập khác ngày sẽ bão lỗi
Anh chị nào giúp em với được không?

Bạn chạy cái này xem đúng không nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
       Dim lr As Long
       lr = Range("A" & Rows.Count).End(xlUp).Row
       Application.EnableEvents = False
       If Not Intersect(Target, Range("C4:C" & lr)) Is Nothing Then
         If Target.Count = 1 Then
            If Target.Value2 > Target.Offset(, -1).Value2 + Target.Offset(, -2).Value Or Target.Offset.Value2 < Target.Offset(, -1) Then
                MsgBox "nhap sai ngay"
                Target.Value = Empty
            End If
        End If
       End If
       Application.EnableEvents = True
End Sub

 

[cuong.vp.nuce]

Bạn chạy cái này xem đúng không nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
       Dim lr As Long
       lr = Range("A" & Rows.Count).End(xlUp).Row
       Application.EnableEvents = False
       If Not Intersect(Target, Range("C4:C" & lr)) Is Nothing Then
         If Target.Count = 1 Then
            If Target.Value2 > Target.Offset(, -1).Value2 + Target.Offset(, -2).Value Or Target.Offset.Value2 < Target.Offset(, -1) Then
                MsgBox "nhap sai ngay"
                Target.Value = Empty
            End If
        End If
       End If
       Application.EnableEvents = True
End Sub

đúng rồi ạ