Trợ giúp em mã VBA Tỉnh, Huyện, Xã

tranbang98

New Member
Hội viên mới
hiện là em đang làm bảng nhập liệu tên khách hàng, em dùng code dùng cho tỉnh:
"Private Sub cb_tinh_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll1, Cll2
Dim ws As Worksheet
With Sheets("KHU_VUC")
Set Cll1 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 1)
If Cll1 Is Nothing Then Exit Sub
Set Cll2 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 2)
cb_huyen.RowSource = "KHU_VUC!" & Cll1.Offset(, 1).Address & ":" & Cll2.Offset(, 1).Address
End With
End Sub"

và code cho huyện:
Private Sub cb_huyen_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll0, Cll3
With Sheets("KHU_VUC")
Set Cll0 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 1)
If Cll0 Is Nothing Then Exit Sub
Set Cll3 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 2)
cb_xa.RowSource = "KHU_VUC!" & Cll0.Offset(, 1).Address & ":" & Cll3.Offset(, 1).Address
End With
End Sub

nhưng nó hiện ra lỗi tên huyện trùng rất nhiều !
A/C có cách nào làm cho nó không trùng tên huyện không, mong chỉ giúp ạ!
Download file
 

TQChanh

Member
Hội viên mới
Bạn tham khảo cái file ni xem có giúp tẹo nào cho bạn không:
 

Đính kèm

be09

Member
Hội viên mới
hiện là em đang làm bảng nhập liệu tên khách hàng, em dùng code dùng cho tỉnh:
"Private Sub cb_tinh_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll1, Cll2
Dim ws As Worksheet
With Sheets("KHU_VUC")
Set Cll1 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 1)
If Cll1 Is Nothing Then Exit Sub
Set Cll2 = .[A1:A1000].Find(Cb_Tinh.Value, [A1], , 1, , 2)
cb_huyen.RowSource = "KHU_VUC!" & Cll1.Offset(, 1).Address & ":" & Cll2.Offset(, 1).Address
End With
End Sub"

và code cho huyện:
Private Sub cb_huyen_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cll0, Cll3
With Sheets("KHU_VUC")
Set Cll0 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 1)
If Cll0 Is Nothing Then Exit Sub
Set Cll3 = .[B1:B1000].Find(cb_huyen.Value, [B1], , 1, , 2)
cb_xa.RowSource = "KHU_VUC!" & Cll0.Offset(, 1).Address & ":" & Cll3.Offset(, 1).Address
End With
End Sub

nhưng nó hiện ra lỗi tên huyện trùng rất nhiều !
A/C có cách nào làm cho nó không trùng tên huyện không, mong chỉ giúp ạ!
Download file
Xem thử File.
 

Đính kèm

TQChanh

Member
Hội viên mới
Mình định thử nghiệm nhập mã địa danh thay vì địa danh Xã-Huyện-Tỉnh như trích dẫn sau:

STTMã NVHọ & TênNgày sinhGiới tínhMã Nơi sinh. . . .(Tương đương)
0GPE.00GPE.COM
7/1/2007​
500101
1BXT00Bùi Xuân Thắm
2/20/1954​
Nu640104T. Tỉnh Vĩnh Long, H. Thành phố Vĩnh Long, X. Xã Trường An
2LMD00Lê Thị Mỹ Dung
3/13/1988​
Nu292420T. Thành phố Hà Nội, H. Huyện Thạch Thất, X. Xã Bình Phú
3LLT00Lê Tô
Thị Thơm
3/30/1980​
Nu160607T. Thành phố Hải Phòng, H. Quận Đồ Sơn, X. Phường Vạn Sơn
4DTF00Dương Trọng Đức
10/12/1985​
Nam500108T. Thành phố Hồ Chí Minh, H. Quận 1, X. Phường Tân Định
5TJN00Trần Nghĩa
3/7/1966​
Nam670602T. Tỉnh An Giang, H. Huyện Châu Phú, X. Xã Mỹ Phú

Mã địa danh được tra từ bảng được trích như sau (cho tỉnh Cần thơ):
Tên TỉnhTên HuyệnTên Phường/Xã/TTMã HuyệnMã xã
Thành phố Cần ThơHuyện Cờ ĐỏXã Đông Hiệp6507650701
Thành phố Cần ThơHuyện Cờ ĐỏXã Thới Xuân6507650702
Thành phố Cần ThơHuyện Cờ ĐỏXã Thới Đông6507650703
Thành phố Cần ThơHuyện Cờ ĐỏXã Đông Thắng6507650704
Thành phố Cần ThơHuyện Cờ ĐỏXã Thới Hưng6507650705
Thành phố Cần ThơHuyện Cờ ĐỏXã Trung Hưng6507650706
Thành phố Cần ThơHuyện Cờ ĐỏXã Trung Thạnh6507650707
Thành phố Cần ThơHuyện Cờ ĐỏXã Trung An6507650708
Thành phố Cần ThơHuyện Cờ ĐỏXã Thạnh Phú6507650709
Thành phố Cần ThơHuyện Cờ ĐỏThị trấn Cờ Đỏ6507650710
Thành phố Cần ThơHuyện Phong ĐiềnXã Nhơn Nghĩa6508650801
Thành phố Cần ThơHuyện Phong ĐiềnXã Trường Long6508650802
Thành phố Cần ThơHuyện Phong ĐiềnThị trấn Phong Điền6508650803
Thành phố Cần ThơHuyện Phong ĐiềnXã Nhơn Ái6508650804
Thành phố Cần ThơHuyện Phong ĐiềnXã Tân Thới6508650805
Thành phố Cần ThơHuyện Phong ĐiềnXã Mỹ Khánh6508650806
Thành phố Cần ThơHuyện Phong ĐiềnXã Giai Xuân6508650807
Thành phố Cần ThơHuyện Thới LaiXã Thới Tân6509650901
Thành phố Cần ThơHuyện Thới LaiThị trấn Thới Lai6509650902
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top