Xin giúp dùm code kiểm tra số liệu

[HongHac]

Mình tạo form nhập liệu cho hàng hóa, bao gồm: Mã hàng, tên hàng...vv

Sau khi nhap xong mã hàng mới thì mình muốn kiểm tra là mã hàng đó đã được thiết lập trước hay chưa.

Nhờ các chuyên gia GPE giải đáp dùm,

Vô cùng cám ơn

 

[le tin]

Đưa 1 ví dụ lên , sẽ có người giúp

 

[HongHac]

Xin lỗi, mình gởi kèm VD liền đây, cảm ơn letin nhé!

 

[quochuy86]

File của bạn bị lỗi rồi. mình down về mà xem không được. Theo mình chỗ này ta có thể dung Vlookup

 

[HongHac]

File của mình dùng office 2007, mình gởi lại bản 2003 đây. Mình đã thử rồi, không biết dùng Vlookup trong VBA như thế nào.

Mong giúp đỡ!

 

[ThuNghi]

File của mình dùng office 2007, mình gởi lại bản 2003 đây. Mình đã thử rồi, không biết dùng Vlookup trong VBA như thế nào.

Mong giúp đỡ!

Không thấy macro hay code nào trong file cả.
Còn muốn dùng vlookup trong VBA thì phải thêm. Mà cũng không cần vlookup đâu.
worksheetfunction.vlookup(....)

 

[HongHac]

Mình gởi lại file đó đây.

lạ thật, lần trước test thử rồi mà sao lại mất cái form đã làm.

Xin lỗi cả nhà nhé.

 

[yeudoi]

Mình gởi lại file đó đây.

lạ thật, lần trước test thử rồi mà sao lại mất cái form đã làm.

Xin lỗi cả nhà nhé.

Cái này bạn dùng countif trong VBA cũng được nếu countif >1 then msgbox " Đã có mã này"

 

[HongHac]

Mình đã thử như sau:
If WorksheetFunction.CountIf(LISTMAHANG, Me.TextBox6.Value) > 1 Then ' LISTMAHANG la vung A3:A23
MsgBox " code is already exist, please choose another one"
TextBox6.SetFocus
End If

Báo lỗi " Runtime error 424 - Object required"

là sao nhỉ?

 

[ndu96081631]

Mình đã thử như sau:
If WorksheetFunction.CountIf(LISTMAHANG, Me.TextBox6.Value) > 1 Then ' LISTMAHANG la vung A3:A23
MsgBox " code is already exist, please choose another one"
TextBox6.SetFocus
End If

Báo lỗi " Runtime error 424 - Object required"

là sao nhỉ?

Báo lổi là đúng rồi còn gì, vì bạn chưa khai báo LISTMAHANG thì code nó làm sao biết đó là cái giống gì chứ
Ít nhất cũng phải có 2 dòng nằm trên cùng:

 Dim LISTMAHANG As Range
 Set LISTMAHANG = Range("A3:A23")

Thêm nữa, điều kiện COUNTIF là > 0 chứ sao lại >1
Toàn bộ code đại khái như sau:

Private Sub CommandButton9_Click()
  Dim LISTMAHANG As Range
  Set LISTMAHANG = Range("A3:A23")
  If WorksheetFunction.CountIf(LISTMAHANG, Me.TextBox6.Value) > 0 Then
    MsgBox " code is already exist, please choose another one"
    TextBox6.SetFocus
  End If
End Sub

 

[HongHac]

Cảm ơn NDU thật nhiều!