So sánh giá trị các ô textbox (1 người xem)

[JSin]

Các bác cho em hỏi với ạ. E có hướng giải quyết bài toán của e như sau, các bác xem qua và cho em xin ý kiến ạ. Ngoài ra e xin hỏi thêm một chút:
- E viết code như nào để khi nhập dữ liệu bị trùng giữa các ô txtoSuckhoe, txtoGhichu, txtoSdt, txtoEmail và trùng với {A,B,C,D,E,F,G} thì sẽ thông báo lỗi ( tức là khi các ô tiêu đề bị trùng cột sẽ báo lỗi). Em xin cảm ơn ạ!

 

[VetMini]

Tuỳ theo số lượng dữ liệu nhập.

1. Nếu nhập ít thì dùng vòng lặp so sánh

2. Nếu nhiều thì:
2.a. Nếu các trị cần so sánh không thay đổi thì nhét chúng vào 1 mảng và dùng hàm Application.Match để tìm
2.b. Nếu các trị cần so sánh thay đổi liên tục thì nhét chúng vào một ArrayList hoặc Dictionary rồi dò

Cả 2 phương án 2a và 2b trên đều có thể dùng mảng/List/Dic là biến toàn cục hoặc biến static để tránh chúng phải lặp lại nhiều lần.

 

[JSin]

Tuỳ theo số lượng dữ liệu nhập.

1. Nếu nhập ít thì dùng vòng lặp so sánh

2. Nếu nhiều thì:
2.a. Nếu các trị cần so sánh không thay đổi thì nhét chúng vào 1 mảng và dùng hàm Application.Match để tìm
2.b. Nếu các trị cần so sánh thay đổi liên tục thì nhét chúng vào một ArrayList hoặc Dictionary rồi dò

Cả 2 phương án 2a và 2b trên đều có thể dùng mảng/List/Dic là biến toàn cục hoặc biến static để tránh chúng phải lặp lại nhiều lần.

Bác nói rõ hộ e chỗ vòng lặp được không ạ. Thực sự là em mới tiếp xúc với vba được một thời gian, bác nói thế em cũng vẫn lơ mơ lắm ạ

 

[VetMini]

for each rg in (range tiêu đề)
if rg.value = textboxnay.value then
msgbox "trùng dữ liệu tiêu đề ở " & rg.address
exit for
end if
next rg

for each nm in split("txtoSuckhoe,txtoGhichu,txtoSdt,txtoEmail", ",")
if nm <> textboxnay.name then ' không so với chính nó
if me.controls(nm).value = textboxnay.value then
msgbox "trùng dữ liệu textbox " & nm
exit for
end if
end if
next nm