Giúp đỡ em: Kiểm tra dữ liệu người dùng nhập vào (1 người xem)

[dieplongvn]

Chào cả nhà,

Em là dân mới làm quen với VBA, em có làm 1 form nhập liệu cho người dùng (xin vui lòng xem hình đính kèm). Em đang gặp một vấn đề rắc rối là muốn người dùng nhập dữ liệu vào ô Data Input thì form sẽ kiểm tra dữ liệu trong vùng của cột trong excel file. Nếu vượt quá ngưỡng cho phép thì sẽ hiện thông báo "Vượt quá mức qui định, yêu cầu nhập lại", ô Data Input sẽ báo đỏ và bắt phải nhập lại.

Cả nhà hướng dẫn giúp em đoạn code vì em đã thử nhưng đều gặp thất bại. Em cảm ơn rất nhiều

Đây là code cho nút "Nhập"

Private Sub CommandButton1_Click()
    'Copy input values to sheet.
    Dim lRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Input Data")
    lRow = ws.Cells(Rows.Count, 8).End(xlUp).Offset(1, 0).Row
    With ws
        .Cells(lRow, 2).Value = Me.txNgay.Value
        .Cells(lRow, 3).Value = Me.txGio.Value
        .Cells(lRow, 4).Value = Me.cbCa.Value
        .Cells(lRow, 5).Value = Me.txNV.Value
        .Cells(lRow, 6).Value = Me.txSolo.Value
        .Cells(lRow, 7).Value = Me.txMa.Value
        .Cells(lRow, 8).Value = Me.txData.Value
        .Cells(lRow, 9).Value = Me.txLydo.Value
    End With


       'Hien thong bao nhac nho
If txNgay.Text = "" Then
        MsgBox "Quen cho ngay kia thim", vbOKOnly + vbInformation, "THÔNG BÁO"
        
    txNgay.BackColor = &HFF& ' change the color of the textbox
  
    ElseIf txGio.Text = "" Then
        MsgBox "Quen nhap gio kia thim", vbOKOnly + vbInformation, "THÔNG BÁO"
      
        txGio.BackColor = &HFF& ' change the color of the textbox


    ElseIf txNV.Text = "" Then
        MsgBox "Ten cua thim la gi vay", vbOKOnly + vbInformation, "THÔNG BÁO"
    
        txNV.BackColor = &HFF& ' change the color of the textbox


    ElseIf txMa.Text = "" Then
        MsgBox "Quen nhap Ma san pham kia thim", vbOKOnly + vbInformation, "THÔNG BÁO"
    
        txMa.BackColor = &HFF& ' change the color of the textbox
    
    ElseIf txSolo.Text = "" Then
        MsgBox "Quen nhap So lo kia thim", vbOKOnly + vbInformation, "THÔNG BÁO"
   
        txSolo.BackColor = &HFF& ' change the color of the textbox
       
    ElseIf txData.Text = "" Then
        MsgBox "Quen nhap data kia thim", vbOKOnly + vbInformation, "THÔNG BÁO"
  
        txData.BackColor = &HFF& ' change the color of the textbox
             
    End If
   
    ThisWorkbook.Save


    '    End If


End Sub

 

[dieplongvn]

Hay mọi người cho em bài viết tham khảo để em tự tìm hiểu thêm cũng được ạ

 

[dieplongvn]

@hpkhuong:

Về form giao diện: em đã upload hình ảnh của form. Điều em đang bị bí là khi người dùng nhấn vào nút "Nhập" thì dữ liệu nó sẽ phải kiểm tra dữ liệu người dùng, sau đó sẽ tìm kiếm giá trị trong vùng đã cho trước trong các Cell. Nếu vượt quá ngưỡng cho phép thì sẽ hiện thông báo "Vượt quá mức qui định, yêu cầu nhập lại", ô Data Input sẽ báo đỏ và bắt phải nhập lại.

Em đính kèm file để mọi người xem giúp em. Thật sự em mong được mọi người giúp đỡ

 

[dieplongvn]

Ai giúp em với ạ