Kiểm tra mã nhập vào bằng VBA (1 người xem)

[tamhoncuada10313]

Em muốn kiểm tra xem mã hàng nhập vào đã có hay chưa và mã đó có thỏa mãn điều kiện là nhỏ hơn 10ký tự không?thì viết code như thế nào hả các bác.Em mới tập tọng viết VBA cho excel thôi

 

[tigertiger]

Em muốn kiểm tra xem mã hàng nhập vào đã có hay chưa và mã đó có thỏa mãn điều kiện là nhỏ hơn 10ký tự không?thì viết code như thế nào hả các bác.Em mới tập tọng viết VBA cho excel thôi

NẾU TRONG TEXTBOX

thì bạn dùng sự kiện Textbox_Change kết hợp với hàm LEN(....) để kiểm tra

.
còn NẾU là Cells

thì cũng tương tự với hàm LEN(....)
.

 

[sealand]

Tôi đã dùng cách này khá hay vì kiểm tra nhanh:
Giả sử vùng mã là sheets("DMKH").range("A2:A100"). Textbox nhập mã có tên ma_kh. Bạn dùng cú pháp sau trong VBA, gắn vào sự kiện nào đó phù hợp của textbox:
ktra=Application.Worksheet.Function.CounaIf( Sheets("DMKH").Range("A2:A100"),dm_kh)
if ktra>0 tùy ý bạn. Còn việc nó nhỏ hơn 10 ký tự thì tiger đã gợi ý rõ. Bạn ket hợp lại thành lệnh theo ý mình nhé.

 

[cadafi]

NẾU TRONG TEXTBOX

thì bạn dùng sự kiện Textbox_Change kết hợp với hàm LEN(....) để kiểm tra


.

Cái này nên xử lý khi textbox_Afterupdate chứ anh TigerTiger!?

 

[toan]

Xóa row nếu dùng hàm Len có Điều kiện

Cũng nhân đây xin các cao thủ chỉ giúp với !!
mình muốn xóa những row nếu mình dùng hàm Len(B2)<11,thi xóa còn lại thì không.
Trong file đính kèm là mình chỉ ví dụ rất ít còn file gốc thì rất nhiều row
Cảm ơn.Toàn

 

[phucbugis]

Cũng nhân đây xin các cao thủ chỉ giúp với !!
mình muốn xóa những row nếu mình dùng hàm Len(B2)<11,thi xóa còn lại thì không.
Trong file đính kèm là mình chỉ ví dụ rất ít còn file gốc thì rất nhiều row
Cảm ơn.Toàn

Bạn mở file và nhấn nút lọc để xem kết quả.
Link MediaFire: Len(Cot B)

 

[phieudu_90]

Tôi đã dùng cách này khá hay vì kiểm tra nhanh:
Giả sử vùng mã là sheets("DMKH").range("A2:A100"). Textbox nhập mã có tên ma_kh. Bạn dùng cú pháp sau trong VBA, gắn vào sự kiện nào đó phù hợp của textbox:
ktra=Application.Worksheet.Function.CounaIf( Sheets("DMKH").Range("A2:A100"),dm_kh)
if ktra>0 tùy ý bạn. Còn việc nó nhỏ hơn 10 ký tự thì tiger đã gợi ý rõ. Bạn ket hợp lại thành lệnh theo ý mình nhé.

Anh cho em hoi tí. Em có 3 ô cell, jo em nhập 1 trong 3 ô cell đó thì dữ liệu nhập ở 2 ô cell kia sẽ bị xóa.

 

[VetMini]

Anh cho em hoi tí. Em có 3 ô cell, jo em nhập 1 trong 3 ô cell đó thì dữ liệu nhập ở 2 ô cell kia sẽ bị xóa.

1. Hỏi nhiều nơi - phạm quy luật diễn đàn

2. Chen vào thớt không cùng tiêu đề - bất lịch sự.

3. jo là cái gì? "do" (bởi) hay là "giờ"? Hỏi mà viết lộn xộn là (a) kém lịch sự tối thiểu, (b) tạo hiểu lầm, chỉ nhận được câu trả lời sai.
Do: file đang bị lỗi, nếu nhập một ô thì 2 ô kia bị mất dữ liệu (ngoài ý muốn)
Giờ: việc nhập 1 mất 2 là tự ý muốn