Code VBA trong Form nhập liệu báo nhập dữ liệu trùng

Liên hệ QC

duong22000

Thành viên thường trực
Tham gia
8/5/13
Bài viết
322
Được thích
23
- Nếu không nhập dữ liệu trên form thì việc báo dữ liệu trùng khi nhập, em đang dùng Data Validataion chọn Custom và công thức tại các ô nhập liệu là: =COUNTIF($B$10:$B$65000,B10)=1 . Khi nhập dữ liệu trực tiếp ở các ô này, nếu dữ liệu trùng thì sẽ báo trùng dữ liệu.
- Nhưng em lại nhập liệu trên form: Khi nhập dữ liệu trùng nhau thì nó vẫn ghi vào các ô cell tiếp theo và em chưa biết làm sao để nó báo dữ liệu trùng để ta nhập dữ liệu khác. Vậy em mong mọi người trên GPE giúp em xử lý trong trường hợp này.
Em xin chân thành cảm ơn !
(Em có gửi file đính kèm)
 

File đính kèm

  • nhap_DM.xls
    48.5 KB · Đọc: 27
- Nếu không nhập dữ liệu trên form thì việc báo dữ liệu trùng khi nhập, em đang dùng Data Validataion chọn Custom và công thức tại các ô nhập liệu là: =COUNTIF($B$10:$B$65000,B10)=1 . Khi nhập dữ liệu trực tiếp ở các ô này, nếu dữ liệu trùng thì sẽ báo trùng dữ liệu.
- Nhưng em lại nhập liệu trên form: Khi nhập dữ liệu trùng nhau thì nó vẫn ghi vào các ô cell tiếp theo và em chưa biết làm sao để nó báo dữ liệu trùng để ta nhập dữ liệu khác. Vậy em mong mọi người trên GPE giúp em xử lý trong trường hợp này.
Em xin chân thành cảm ơn !
(Em có gửi file đính kèm)
Đây bạn xem.
 

File đính kèm

  • nhap_DM.xls
    46.5 KB · Đọc: 118
Bạn tham khảo thêm cái này:
PHP:
Private Sub them_Click()
Dim Rng As Range, sRng As Range
Dim Dong_Cuoi As Long
With Sheet1
    Dong_Cuoi = .Range("b" & Rows.Count).End(xlUp).Row
    Set Rng = .[b9].Resize(Dong_Cuoi)
    Set sRng = Rng.Find(Me!txtPhanLoai.Text, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        .Range("B" & Dong_Cuoi + 1) = Me!txtPhanLoai.Text
    Else
        MsgBox "Trùng Du Liêu D/c: " & sRng.Address, , "GPE.COM Xin Thông Báo!"
    End If
End With
End Sub
 
Lần chỉnh sửa cuối:
Web KT
Back
Top Bottom