Code kiểm tra dữ liệu trước khi nhập liệu từ Form

anhtotbung35 · 8/12/11

Bài tập mình có 2 yêu cầu:
- Nhập liệu vào Sheets "Data" từ Form nhập liệu. Mình đã xử lý được
- Mình muốn khi nhập liệu, 2 combobox trên Form nhập liệu kiểm tra ở Sheets "TTin", nếu Nơi gửi và Nơi nhận đã có trên Sheets "TTin" thì không nhập vào, còn nếu chưa có thì nhập vào dòng cuối cùng của Sheets "TTin". Sau đó sắp xếp lại từng cột Nơi gửi và Nơi nhận của Sheets ""TTin".

Nhờ các bạn giúp mình!

kyo · 8/12/11

anhtotbung35 đã viết:
Bài tập mình có 2 yêu cầu: 
- Nhập liệu vào Sheets "Data" từ Form nhập liệu. Mình đã xử lý được 
- Mình muốn khi nhập liệu, 2 combobox trên Form nhập liệu kiểm tra ở Sheets "TTin", nếu Nơi gửi và Nơi nhận đã có trên Sheets "TTin" thì không nhập vào, còn nếu chưa có thì nhập vào dòng cuối cùng của Sheets "TTin". Sau đó sắp xếp lại từng cột Nơi gửi và Nơi nhận của Sheets ""TTin". 
 
Nhờ các bạn giúp mình!

Mình làm giúp bạn cái combobox noigui thôi, còn combobox còn lại bạn tự nghiên cứu nhé, cũng tương tự. Mình làm một sub kiểm tra và add ở bên module1 và sửa lại cho bạn phần lấy data vào combobox cho gọn hơn. Bạn xem file nhé

anhtotbung35 · 8/12/11

kyo đã viết:
 

Mình làm giúp bạn cái combobox noigui thôi, còn combobox còn lại bạn tự nghiên cứu nhé, cũng tương tự. Mình làm một sub kiểm tra và add ở bên module1 và sửa lại cho bạn phần lấy data vào combobox cho gọn hơn. Bạn xem file nhé

Cảm ơn kyo, nhưng đây là bài tập để post lên. Chứ file của mình không chỉ có 2 cột noigui và nguoi nhan, mà có thể lên tới 10 cột.
Mình cũng đã làm thử rồi và đã chạy, nhưng mình cảm thấy cứ mỗi cột nhưng vậy mình lại Dim một lần, nhìn thấy rối quá. Bạn có thể giúp mình làm cho gọn được không?

kyo · 8/12/11

anhtotbung35 đã viết:
Cảm ơn kyo, nhưng đây là bài tập để post lên. Chứ file của mình không chỉ có 2 cột noigui và nguoi nhan, mà có thể lên tới 10 cột.
Mình cũng đã làm thử rồi và đã chạy, nhưng mình cảm thấy cứ mỗi cột nhưng vậy mình lại Dim một lần, nhìn thấy rối quá. Bạn có thể giúp mình làm cho gọn được không?

PHP:

Sub AddData(cbbox As String, sh As Object, col As String)
Dim arrRC
If sh.Range(col & "2").Value = "" Then Exit Sub
arrRC = sh.Range(sh.Range(col & "2"), sh.Range(col & "65536").End(xlUp)).Value
If IsArray(arrRC) Then
    Nhaplieu.Controls(cbbox).List() = arrRC
Else
    Nhaplieu.Controls(cbbox).AddItem arrRC
End If
End Sub

Bạn có thể chèn 1 code chung này vào 1 module rồi ứng với mỗi cột bạn dùng Call AddData("tên combobox", sheet chứa dữ liệu, "cột chứa dữ liệu") (lưu ý là dữ liệu ở hàng số 2 trở xuống nhé, nếu muốn có hàng nữa thì thêm hàng vào). Vậy sẽ khỏe hơn nếu có nhiều cột, hì hì

anhtotbung35 · 9/12/11

kyo đã viết:
PHP:

Sub AddData(cbbox As String, sh As Object, col As String) Dim arrRC If sh.Range(col & "2").Value = "" Then Exit Sub arrRC = sh.Range(sh.Range(col & "2"), sh.Range(col & "65536").End(xlUp)).Value If IsArray(arrRC) Then Nhaplieu.Controls(cbbox).List() = arrRC Else Nhaplieu.Controls(cbbox).AddItem arrRC End If End Sub

Bạn có thể chèn 1 code chung này vào 1 module rồi ứng với mỗi cột bạn dùng Call AddData("tên combobox", sheet chứa dữ liệu, "cột chứa dữ liệu") (lưu ý là dữ liệu ở hàng số 2 trở xuống nhé, nếu muốn có hàng nữa thì thêm hàng vào). Vậy sẽ khỏe hơn nếu có nhiều cột, hì hì

Mình thử rồi, nhưng chưa rõ Call đặt ở chỗ nào. Mình thử nhập vào noigui và nguoinhan moi. Sheets Data thì cập nhật, nhưng Sheets TTin không cập nhật.
Bạn có thể xem lại giúp mình file nhé

kyo · 9/12/11

Do mình không hiểu ý bạn nói, thì ra bạn muốn thêm dữ liệu chứ không phải là lấy dữ liệu -0-/.

. Mình đã sửa lại trong file của bạn rồi đó, bạn nghiên cứu thử xem nhé. /-*+/

Code kiểm tra dữ liệu trước khi nhập liệu từ Form

anhtotbung35

Thành viên hoạt động

File đính kèm

kyo

Nguyễn Khắc Duy

File đính kèm

anhtotbung35

Thành viên hoạt động

kyo

Nguyễn Khắc Duy

anhtotbung35

Thành viên hoạt động

File đính kèm

kyo

Nguyễn Khắc Duy

File đính kèm

Bài viết mới nhất

Facebook

Group

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng