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

luuphong98 · 12/3/20

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

SA_DQ · 12/3/20

Bạn thử tham khảo cách mình tìm dòng đầu & dòng cuối của 1 tỉnh (Ở cột B của trang tính):

PHP:

Sub TimDongDauVaDongCuoiCuaTinhBacKan()
Dim Rng As Range, sRng As Range
Dim MyAdd As String
Dim DongDau As Long, DongCuoi As Long
Set Rng = Range([B1], [B1].End(xlDown))
Set sRng = Rng.Find([G1].Value, , xlFormulas, xlWhole) 'Ô G1 Là Tên Tinh Cân Tìm'
If Not sRng Is Nothing Then
    MyAdd = sRng.Address:                   DongDau = sRng.Row
    Do
        DongCuoi = sRng.Row
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
MsgBox "Last Row:" & DongCuoi, , "First Row:" & DongDau
End Sub

luuphong98 · 12/3/20

SA_DQ đã viết:

Bạn thử tham khảo cách mình tìm dòng đầu & dòng cuối của 1 tỉnh (Ở cột B của trang tính):

PHP:

Sub TimDongDauVaDongCuoiCuaTinhBacKan()
Dim Rng As Range, sRng As Range
Dim MyAdd As String
Dim DongDau As Long, DongCuoi As Long
Set Rng = Range([B1], [B1].End(xlDown))
Set sRng = Rng.Find([G1].Value, , xlFormulas, xlWhole) 'Ô G1 Là Tên Tinh Cân T́m   '
If Not sRng Is Nothing Then
    MyAdd = sRng.Address:                   DongDau = sRng.Row
    Do
        DongCuoi = sRng.Row
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
MsgBox "Last Row:" & DongCuoi, , "First Row:" & DongDau
End Sub

Hình như có gì đó sai sai ! em hỏi là code em sao lại bị "trùng tên huyện" còn tìm dòng đầu cuối em có tham khảo rồi.

Bài đã được tự động gộp: 12/3/20

combobox ở ô huyện bị trùng nhau là cho ra rất nhiều kết quả giống nhau!

SA_DQ · 12/3/20

Sau khi tìm theo tên tỉnh, thì ở nam phần Việt nam có đến 9 huyện có tên 'Châu thành'
Nên bạn tối thiểu cần 1 danh sách như thế này, mới tìm đúng được:

(Dòng)	Tên Tỉnh	Tên Huyện	Tên Phường/Xã/TT	Tỉnh Bắc Kạn
2256	Tỉnh Cao Bằng	Huyện Thạch An	Thị trấn Đông Khê
2257	Tỉnh Cao Bằng	Huyện Thạch An	Xã Đức Thông
2258	Tỉnh Cao Bằng	Huyện Thạch An	Xã Quang Trọng
2259	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Phường Nguyễn Thị Minh Khai
2260	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Phường Huyền Tụng
2261	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Phường Xuất Hóa
2262	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Phường Phùng Chí Kiên
2263	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Phường Đức Xuân
2264	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Xã Dương Quang
2265	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Phường Sông Cầu
2266	Tỉnh Bắc Kạn	Thành Phố Bắc Kạn	Xã Nông Thượng
2267	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Nhạn Môn
2268	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Bộc Bố
2269	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Công Bằng
2270	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Giáo Hiệu
2271	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Xuân La
2272	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã An Thắng
2273	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Cổ Linh
2274	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Nghiên Loan
2275	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Cao Tân
2276	Tỉnh Bắc Kạn	Huyện Pác Nặm	Xã Bằng Thành
2277	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Bành Trạch
2278	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Đồng Phúc
2279	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Hoàng Trĩ
2280	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Mỹ Phương
2281	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Quảng Khê
2282	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Chu Hương
2283	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Yến Dương
2284	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Địa Linh
2285	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Thượng Giáo
2286	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Nam Mẫu
2287	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Khang Ninh
2288	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Cao Trĩ
2289	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Cao Thượng
2290	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Phúc Lộc
2291	Tỉnh Bắc Kạn	Huyện Ba Bể	Thị trấn Chợ Rã
2292	Tỉnh Bắc Kạn	Huyện Ba Bể	Xã Hà Hiệu
2293	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Bằng Vân
2294	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Hương Nê
2295	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Thượng Ân
2296	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Cốc Đán
2297	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Trung Hòa
2298	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Đức Vân
2299	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Vân Tùng
2300	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Thượng Quan
2301	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Lãng Ngâm
2302	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Xã Thuần Mang
2303	Tỉnh Bắc Kạn	Huyện Ngân Sơn	Thị trấn Nà Phặc
2304	Tỉnh Bắc Kạn	Huyện Bạch Thông	Thị trấn Phủ Thông
2305	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Tân Tiến
2306	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Lục Bình
2307	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Cao Sơn
2308	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Tú Trĩ
2309	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Đôn Phong
2310	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Vũ Muộn
2311	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Hà Vị
2312	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Sĩ Bình
2313	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Quân Bình
2314	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Phương Linh
2315	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Nguyên Phúc
2316	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Vi Hương
2317	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Mỹ Thanh
2318	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Quang Thuận
2319	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Dương Phong
2320	Tỉnh Bắc Kạn	Huyện Bạch Thông	Xã Cẩm Giàng
2321	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Bản Thi
2322	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Yên Nhuận
2323	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Bình Trung
2324	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Yên Mỹ
2325	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Phong Huân
2326	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Nghĩa Tá
2327	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Đại Sảo
2328	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Bằng Lãng
2329	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Lương Bằng
2330	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Đông Viên
2331	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Rã Bản
2332	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Ngọc Phái
2333	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Phương Viên
2334	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Yên Thượng
2335	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Yên Thịnh
2336	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Bằng Phúc
2337	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Thị trấn Bằng Lũng
2338	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Xuân Lạc
2339	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Đồng Lạc
2340	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Nam Cường
2341	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Tân Lập
2342	Tỉnh Bắc Kạn	Huyện Chợ Đồn	Xã Quảng Bạch
2343	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Nông Thịnh
2344	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Thanh Vận
2345	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Mai Lạp
2346	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Hòa Mục
2347	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Thanh Mai
2348	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Cao Kỳ
2349	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Nông Hạ
2350	Tỉnh Bắc Kạn	Huyện Chợ Mới	Thị trấn Chợ Mới
2351	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Yên Đĩnh
2352	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Yên Hân
2353	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Thanh Bình
2354	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Như Cố
2355	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Tân Sơn
2356	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Bình Văn
2357	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Quảng Chu
2358	Tỉnh Bắc Kạn	Huyện Chợ Mới	Xã Yên Cư
2359	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Kim Lư
2360	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Dương Sơn
2361	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Hảo Nghĩa
2362	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Vũ Loan
2363	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Cư Lễ
2364	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Côn Minh
2365	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Văn Minh
2366	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Lam Sơn
2367	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Xuân Dương
2368	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Lương Thành
2369	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Quang Phong
2370	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Lương Hạ
2371	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Cường Lợi
2372	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Văn Học
2373	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Kim Hỷ
2374	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Lương Thượng
2375	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Lạng San
2376	Tỉnh Bắc Kạn	Huyện Na Rì	Thị trấn Yến Lạc
2377	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Ân Tình
2378	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Liêm Thuỷ
2379	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Hữu Thác
2380	Tỉnh Bắc Kạn	Huyện Na Rì	Xã Đổng Xá
2381	Tỉnh Tuyên Quang	Thành phố Tuyên Quang	Phường Ỷ La
2382	Tỉnh Tuyên Quang	Thành phố Tuyên Quang	Xã Thái Long
2383	Tỉnh Tuyên Quang	Thành phố Tuyên Quang	Xã Đội Cấn

Cách thứ 2 là gán mã địa danh cho từng phường theo kiểu:

Mã Huyện	Tên Huyện
2901	Quận Ba Đình
2902	Quận Hoàn Kiếm
2903	Quận Tây Hồ
2904	Quận Long Biên
2905	Quận Cầu Giấy
2906	Quận Đống Đa
2907	Quận Hai Bà Trưng
2908	Quận Hoàng Mai
2909	Quận Thanh Xuân
2910	Huyện Sóc Sơn
2911	Huyện Đông Anh
2912	Huyện Gia Lâm
2913	Quận Nam Từ Liêm
2914	Huyện Thanh Trì
2915	Quận Bắc Từ Liêm
2916	Quận Hà Đông
2917	Thị xã Sơn Tây
2918	Huyện Ba Vì
2919	Huyện Phúc Thọ
2920	Huyện Đan Phượng
2921	Huyện Hoài Đức
2922	Huyện Quốc Oai
2923	Huyện Thạch Thất
2924	Huyện Chương Mỹ
2925	Huyện Thanh Oai

luuphong98 · 12/3/20

SA_DQ đã viết:
Sau khi tìm theo tên tỉnh, thì ở nam phần Việt nam có đến 9 huyện có tên 'Châu thành'
Nên bạn tối thiểu cần 1 danh sách như thế này, mới tìm đúng được:

(Dòng) Tên Tỉnh Tên Huyện Tên Phường/Xã/TT Tỉnh Bắc Kạn
2256 Tỉnh Cao Bằng Huyện Thạch An Thị trấn Đông Khê
2257 Tỉnh Cao Bằng Huyện Thạch An Xã Đức Thông
2258 Tỉnh Cao Bằng Huyện Thạch An Xã Quang Trọng
2259 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Phường Nguyễn Thị Minh Khai
2260 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Phường Huyền Tụng
2261 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Phường Xuất Hóa
2262 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Phường Phùng Chí Kiên
2263 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Phường Đức Xuân
2264 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Xã Dương Quang
2265 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Phường Sông Cầu
2266 Tỉnh Bắc Kạn Thành Phố Bắc Kạn Xã Nông Thượng
2267 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Nhạn Môn
2268 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Bộc Bố
2269 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Công Bằng
2270 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Giáo Hiệu
2271 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Xuân La
2272 Tỉnh Bắc Kạn Huyện Pác Nặm Xã An Thắng
2273 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Cổ Linh
2274 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Nghiên Loan
2275 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Cao Tân
2276 Tỉnh Bắc Kạn Huyện Pác Nặm Xã Bằng Thành
2277 Tỉnh Bắc Kạn Huyện Ba Bể Xã Bành Trạch
2278 Tỉnh Bắc Kạn Huyện Ba Bể Xã Đồng Phúc
2279 Tỉnh Bắc Kạn Huyện Ba Bể Xã Hoàng Trĩ
2280 Tỉnh Bắc Kạn Huyện Ba Bể Xã Mỹ Phương
2281 Tỉnh Bắc Kạn Huyện Ba Bể Xã Quảng Khê
2282 Tỉnh Bắc Kạn Huyện Ba Bể Xã Chu Hương
2283 Tỉnh Bắc Kạn Huyện Ba Bể Xã Yến Dương
2284 Tỉnh Bắc Kạn Huyện Ba Bể Xã Địa Linh
2285 Tỉnh Bắc Kạn Huyện Ba Bể Xã Thượng Giáo
2286 Tỉnh Bắc Kạn Huyện Ba Bể Xã Nam Mẫu
2287 Tỉnh Bắc Kạn Huyện Ba Bể Xã Khang Ninh
2288 Tỉnh Bắc Kạn Huyện Ba Bể Xã Cao Trĩ
2289 Tỉnh Bắc Kạn Huyện Ba Bể Xã Cao Thượng
2290 Tỉnh Bắc Kạn Huyện Ba Bể Xã Phúc Lộc
2291 Tỉnh Bắc Kạn Huyện Ba Bể Thị trấn Chợ Rã
2292 Tỉnh Bắc Kạn Huyện Ba Bể Xã Hà Hiệu
2293 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Bằng Vân
2294 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Hương Nê
2295 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Thượng Ân
2296 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Cốc Đán
2297 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Trung Hòa
2298 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Đức Vân
2299 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Vân Tùng
2300 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Thượng Quan
2301 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Lãng Ngâm
2302 Tỉnh Bắc Kạn Huyện Ngân Sơn Xã Thuần Mang
2303 Tỉnh Bắc Kạn Huyện Ngân Sơn Thị trấn Nà Phặc
2304 Tỉnh Bắc Kạn Huyện Bạch Thông Thị trấn Phủ Thông
2305 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Tân Tiến
2306 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Lục Bình
2307 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Cao Sơn
2308 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Tú Trĩ
2309 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Đôn Phong
2310 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Vũ Muộn
2311 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Hà Vị
2312 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Sĩ Bình
2313 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Quân Bình
2314 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Phương Linh
2315 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Nguyên Phúc
2316 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Vi Hương
2317 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Mỹ Thanh
2318 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Quang Thuận
2319 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Dương Phong
2320 Tỉnh Bắc Kạn Huyện Bạch Thông Xã Cẩm Giàng
2321 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Bản Thi
2322 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Yên Nhuận
2323 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Bình Trung
2324 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Yên Mỹ
2325 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Phong Huân
2326 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Nghĩa Tá
2327 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Đại Sảo
2328 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Bằng Lãng
2329 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Lương Bằng
2330 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Đông Viên
2331 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Rã Bản
2332 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Ngọc Phái
2333 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Phương Viên
2334 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Yên Thượng
2335 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Yên Thịnh
2336 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Bằng Phúc
2337 Tỉnh Bắc Kạn Huyện Chợ Đồn Thị trấn Bằng Lũng
2338 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Xuân Lạc
2339 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Đồng Lạc
2340 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Nam Cường
2341 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Tân Lập
2342 Tỉnh Bắc Kạn Huyện Chợ Đồn Xã Quảng Bạch
2343 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Nông Thịnh
2344 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Thanh Vận
2345 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Mai Lạp
2346 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Hòa Mục
2347 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Thanh Mai
2348 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Cao Kỳ
2349 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Nông Hạ
2350 Tỉnh Bắc Kạn Huyện Chợ Mới Thị trấn Chợ Mới
2351 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Yên Đĩnh
2352 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Yên Hân
2353 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Thanh Bình
2354 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Như Cố
2355 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Tân Sơn
2356 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Bình Văn
2357 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Quảng Chu
2358 Tỉnh Bắc Kạn Huyện Chợ Mới Xã Yên Cư
2359 Tỉnh Bắc Kạn Huyện Na Rì Xã Kim Lư
2360 Tỉnh Bắc Kạn Huyện Na Rì Xã Dương Sơn
2361 Tỉnh Bắc Kạn Huyện Na Rì Xã Hảo Nghĩa
2362 Tỉnh Bắc Kạn Huyện Na Rì Xã Vũ Loan
2363 Tỉnh Bắc Kạn Huyện Na Rì Xã Cư Lễ
2364 Tỉnh Bắc Kạn Huyện Na Rì Xã Côn Minh
2365 Tỉnh Bắc Kạn Huyện Na Rì Xã Văn Minh
2366 Tỉnh Bắc Kạn Huyện Na Rì Xã Lam Sơn
2367 Tỉnh Bắc Kạn Huyện Na Rì Xã Xuân Dương
2368 Tỉnh Bắc Kạn Huyện Na Rì Xã Lương Thành
2369 Tỉnh Bắc Kạn Huyện Na Rì Xã Quang Phong
2370 Tỉnh Bắc Kạn Huyện Na Rì Xã Lương Hạ
2371 Tỉnh Bắc Kạn Huyện Na Rì Xã Cường Lợi
2372 Tỉnh Bắc Kạn Huyện Na Rì Xã Văn Học
2373 Tỉnh Bắc Kạn Huyện Na Rì Xã Kim Hỷ
2374 Tỉnh Bắc Kạn Huyện Na Rì Xã Lương Thượng
2375 Tỉnh Bắc Kạn Huyện Na Rì Xã Lạng San
2376 Tỉnh Bắc Kạn Huyện Na Rì Thị trấn Yến Lạc
2377 Tỉnh Bắc Kạn Huyện Na Rì Xã Ân Tình
2378 Tỉnh Bắc Kạn Huyện Na Rì Xã Liêm Thuỷ
2379 Tỉnh Bắc Kạn Huyện Na Rì Xã Hữu Thác
2380 Tỉnh Bắc Kạn Huyện Na Rì Xã Đổng Xá
2381 Tỉnh Tuyên Quang Thành phố Tuyên Quang Phường Ỷ La
2382 Tỉnh Tuyên Quang Thành phố Tuyên Quang Xã Thái Long
2383 Tỉnh Tuyên Quang Thành phố Tuyên Quang Xã Đội Cấn

Cách thứ 2 là gán mã địa danh cho từng phường theo kiểu:

Mã Huyện Tên Huyện
2901 Quận Ba Đình
2902 Quận Hoàn Kiếm
2903 Quận Tây Hồ
2904 Quận Long Biên
2905 Quận Cầu Giấy
2906 Quận Đống Đa
2907 Quận Hai Bà Trưng
2908 Quận Hoàng Mai
2909 Quận Thanh Xuân
2910 Huyện Sóc Sơn
2911 Huyện Đông Anh
2912 Huyện Gia Lâm
2913 Quận Nam Từ Liêm
2914 Huyện Thanh Trì
2915 Quận Bắc Từ Liêm
2916 Quận Hà Đông
2917 Thị xã Sơn Tây
2918 Huyện Ba Vì
2919 Huyện Phúc Thọ
2920 Huyện Đan Phượng
2921 Huyện Hoài Đức
2922 Huyện Quốc Oai
2923 Huyện Thạch Thất
2924 Huyện Chương Mỹ
2925 Huyện Thanh Oai

em làm giống anh ở cách 1 nhưng nó sẽ trùng lại vì chỉ có 1 tỉnh thôi! còn cách 2 thì thì không biết viết làm sao vì code trên em làm giống trên youtube

Bài đã được tự động gộp: 12/3/20

cho em hỏi có cách nào gộp lại kết quả bị trùng không ?
vì nếu gộp được thì sẽ không có vụ lặp lại trong chuỗi tìm kiếm ở "ô huyện"

Bài đã được tự động gộp: 12/3/20

TINH_CODE	HUYEN
Bến Tre	TP. Bến Tre
Bến Tre	Ba Tri
Bến Tre	Bình Đại
Bến Tre	Châu Thành
Bến Tre	Chợ Lách
Bến Tre	Giồng Trôm
Bến Tre	Mỏ Cày Bắc
Bến Tre	Mỏ Cày Nam
Bến Tre	Thạnh Phú

Em làm thêm 1 table là dòng TINH_CODE và cho add vô code cb_tinh thì kết quả rất ok, không biết đúng hay sai

SA_DQ · 12/3/20

Cách I: Sau khi tìm tỉnh 'Bắc Kạn' ta có vùng [B2259:B2380]
Tiếp theo Ta cần tìm huyện 'Chợ Mới' chỉ trong vùng [C2259:C2380] này thôi
Nếu tìm khác thì ở tỉnh An Giang cũng có huyện 'Chợ Mới' nhẩy vô kèm theo liền.

Còn theo cách thứ 2 thì Hà Nội mình gán mã 29 (biển số xe HN) , Hải phòng là 16, Đồng Nai: 60 & TF HCM là 50,. . . .
Quận I TF HCM sẽ là 5001,. . . Bình Chánh sẽ là 5013,. . . .
Phường Phạm Ngũ Lão thuộc Q. I sẽ có thể là 500113,. . .
. . ..
Như vậy Châu Thành của Bà Rịa Vũng Tàu sẽ khác với Châu thành của Tây Ninh hay CT của Bến Tre. . .

HieuCD · 12/3/20

luuphong98 đã viết:
em làm giống anh ở cách 1 nhưng nó sẽ trùng lại vì chỉ có 1 tỉnh thôi! còn cách 2 thì thì không biết viết làm sao vì code trên em làm giống trên youtube

Bài đã được tự động gộp: 12/3/20

cho em hỏi có cách nào gộp lại kết quả bị trùng không ?
vì nếu gộp được thì sẽ không có vụ lặp lại trong chuỗi tìm kiếm ở "ô huyện"

Bài đã được tự động gộp: 12/3/20

TINH_CODE HUYEN
Bến Tre TP. Bến Tre
Bến Tre Ba Tri
Bến Tre Bình Đại
Bến Tre Châu Thành
Bến Tre Chợ Lách
Bến Tre Giồng Trôm
Bến Tre Mỏ Cày Bắc
Bến Tre Mỏ Cày Nam
Bến Tre Thạnh Phú

Em làm thêm 1 table là dòng TINH_CODE và cho add vô code cb_tinh thì kết quả rất ok, không biết đúng hay sai

Chữa cháy

Mã:

Private Sub cb_tinh_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    cb_huyen.RowSource = "KHU_VUC!" & Range("Huyen").Address
End Sub

Chắc chắn sẽ cháy tiếp

SA_DQ · 12/3/20

Với C1: Để tìm 1 tỉnh nào đó, ta phải tìm trong vùng có 11165 dòng dữ liệu
Khi tìm Huyện hay Quận ta chỉ phải tìm cỡ trung bình 200 dòng dữ liệu
Khi tìm đến Xã hay phường ta chỉ tìm cỡ 5 mươi dòng là cùng.

Với C2 thì ngược là đôi chút để tìm Nhưng có mã địa danh thì khi Ô, 2uốc hội ho, ta sẵn thuốc cảm cúm ngay rồi!

luuphong98 · 12/3/20

vâng để em coi lại! Cảm Ơn Anh

batman1 · 13/3/20

luuphong98 đã viết:
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:

Bạn hãy đọc bài #1 ở link sau để hiểu yêu cầu của chủ thớt và lấy dữ liệu tỉnh, huyện, xã làm cơ sở dữ liệu. Vì hiện thời bạn cũng mới chỉ có tỉnh Bến Tre trong cột A, không có các tỉnh khác. Càng chưa có các huyện, xã cho các tỉnh còn thiếu.

Sau đó đọc bài #15 của tôi để biết tôi xử lý thế nào.

Khi chọn tỉnh trong combobox tỉnh thì trong combobox huyện sẽ chỉ có các huyện trong tỉnh đó. Khi chọn huyện trong combobox huyện thì trong combobox xã chỉ có các xã trong huyện đó.

Nhờ mọi người hỗ trợ điều chỉnh code file quản lý nhân sự

Chào anh/ chị Hiện tại, em có một file quản lý nhân sự bên công ty em. Em có tạo 1 userform dùng để nhập liệu hồ sơ nhân viên nhưng khi nhập liệu gặp phải vấn đề khi nhập liệu địa chỉ hộ khẩu của nhân viên như sau: - Trên userform dùng để nhập liệu em có dùng combobox để tách riêng tỉnh, huyện...

www.giaiphapexcel.com

SA_DQ · 13/3/20

Bạn tham khảo thêm cách cùi bắp này xem thử:

SA_DQ · 15/3/20

CHUYỆN GÌ SẼ DIỄN RA, 1 KHI

Thay vì ta nhập TP HCM, Q. 1, P. Cầu kho (là nơi sinh) ta chỉ nhập 1 con số có 6 kí số: 500110

Trong đó 2 ký số đầu là mã tỉnh/thành phố; 2 Kí số giữa là mã huyện, quận & 2 số cuối là mã của địa danh xã

STT

Mã NV

Họ & Tên

Ngày sinh

Giới tính

Mã Nơi sinh

. . . .

(Tương đương)

0

GPE

GPE.COM

7/1/2007

1

BXT00

Bùi Xuân Thái

2/20/1954

Nu

640104

T. Tỉnh Vĩnh Long, H. Thành phố Vĩnh Long, X. Xã Trường An

2

LMD00

Lê Mỹ Dung

3/13/1988

Nu

292420

T. Thành phố Hà Nội, H. Huyện Thạch Thất, X. Xã Bình Phú

3

LLT00

Lê Thị Thơm

3/30/1980

Nu

160607

T. Thành phố Hải Phòng, H. Quận Đồ Sơn, X. Phường Vạn Sơn

4

DTF00

Dương Trọng Đức

10/12/1985

Nam

500108

T. Thành phố Hồ Chí Minh, H. Quận 1, X. Phường Tân Định

5

THN00

Trần Hoàng Ngãi

3/7/1966

Nam

670602

T. Tỉnh An Giang, H. Huyện Châu Phú, X. Xã Mỹ Phú

hongphuong1997 · 15/3/20

HieuCD đã viết:
Chữa cháy

Mã:

Private Sub cb_tinh_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) cb_huyen.RowSource = "KHU_VUC!" & Range("Huyen").Address End Sub

Chắc chắn sẽ cháy tiếp

Bác oi, bác oi
Sao cái code của bác cụt lủn như này hở bác?

batman1 · 15/3/20

SA_DQ đã viết:
CHUYỆN GÌ SẼ DIỄN RA, 1 KHI

Thay vì ta nhập TP HCM, Q. 1, P. Cầu kho (là nơi sinh) ta chỉ nhập 1 con số có 6 kí số: 500110

Trong đó 2 ký số đầu là mã tỉnh/thành phố; 2 Kí số giữa là mã huyện, quận & 2 số cuối là mã của địa danh xã

STT Mã NV Họ & Tên Ngày sinh Giới tính Mã Nơi sinh . . . . (Tương đương)
0 GPE GPE.COM
7/1/2007
1 BXT00 Bùi Xuân Thái
2/20/1954
Nu 640104 T. Tỉnh Vĩnh Long, H. Thành phố Vĩnh Long, X. Xã Trường An
2 LMD00 Lê Mỹ Dung
3/13/1988
Nu 292420 T. Thành phố Hà Nội, H. Huyện Thạch Thất, X. Xã Bình Phú
3 LLT00 Lê Thị Thơm
3/30/1980
Nu 160607 T. Thành phố Hải Phòng, H. Quận Đồ Sơn, X. Phường Vạn Sơn
4 DTF00 Dương Trọng Đức
10/12/1985
Nam 500108 T. Thành phố Hồ Chí Minh, H. Quận 1, X. Phường Tân Định
5 THN00 Trần Hoàng Ngãi
3/7/1966
Nam 670602 T. Tỉnh An Giang, H. Huyện Châu Phú, X. Xã Mỹ Phú

Không thể nhập kiểu này đâu. Giả sử tôi muốn nhập TP HCM, Q. 1, P. Cầu kho thì theo bạn tôi phải nhập 500110, và rồi TP HCM, Q. 1, P. Cầu kho sẽ tự nhẩy ra? Làm sao tôi nhớ được tất cả các mã của hàng chục nghìn địa danh?

Tóm lại tôi không hiểu ý tưởng. Nhắc lại, bạn đang nói về nhập dữ liệu.

SA_DQ · 15/3/20

Để thực hiện ý tường, mình đã tạo 3 ComboBox' ComboBox đầu dùng để chọn tên tỉnh
1 khi chọn 1 tỉnh thành nào đó, ta sẽ có luôn kết quả mã số xe (ô tô) của tỉnh đó, đồng thời có luôn danh sách huyện thị phụ thuộc của tỉnh đó.
Danh sách này sẽ là nguồn của ComboBox thứ 2 để ta chọn danh tính của 1 huyện cụ thể của tỉnh (đã chọn ở ComboBox1)

Khi chọn 1 dòng trong ComboBox thứ 2, thì cũng tương tự ta có mã định danh cho huyện đã chọn, mã này gồm 4 ký số, (Trong đó 2 kí số đầu là mã (biển số xe) của tỉnh, thành & danh sách các xã của huyện đã chọn được tìm ra & danh sách này làm nguồn cho ComboBox xã.

Cuối cùng, khi chọn 1 xã nào đó cụ thể, ta sẽ có luôn mã định danh của xã đó

Khi bấn nút lưu, dòng dữ liệu ta chỉ việc lưu 6 kí số này vào cột mã địa danh.

Lúc cần hiễn thị danh tính (tên) của tỉnh ta xài VLOOKUP() hay cách nào đó, ta phiên dịch ra, ví dụ
50 => TF. HCM;
29 => Hà Nội
16 => Hải phòng.

2901 => Là mã quận Ba Đình
5001 => Là mã quận nhất
. . . . .

Làm vậy mình cho là CSDL sẽ gọn nhẹn thêm phần nào chăng(?!)

Rất mong mọi người thêm ý kiến.

Tên Tỉnh	Tên Huyện	Tên Phường/Xã/TT	Mã Huyện	Mã xã
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Đông Hiệp	6507	650701
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Thới Xuân	6507	650702
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Thới Đông	6507	650703
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Đông Thắng	6507	650704
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Thới Hưng	6507	650705
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Trung Hưng	6507	650706
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Trung Thạnh	6507	650707
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Trung An	6507	650708
Thành phố Cần Thơ	Huyện Cờ Đỏ	Xã Thạnh Phú	6507	650709
Thành phố Cần Thơ	Huyện Cờ Đỏ	Thị trấn Cờ Đỏ	6507	650710
Thành phố Cần Thơ	Huyện Phong Điền	Xã Nhơn Nghĩa	6508	650801
Thành phố Cần Thơ	Huyện Phong Điền	Xã Trường Long	6508	650802
Thành phố Cần Thơ	Huyện Phong Điền	Thị trấn Phong Điền	6508	650803
Thành phố Cần Thơ	Huyện Phong Điền	Xã Nhơn Ái	6508	650804
Thành phố Cần Thơ	Huyện Phong Điền	Xã Tân Thới	6508	650805
Thành phố Cần Thơ	Huyện Phong Điền	Xã Mỹ Khánh	6508	650806
Thành phố Cần Thơ	Huyện Phong Điền	Xã Giai Xuân	6508	650807
Thành phố Cần Thơ	Huyện Thới Lai	Xã Thới Tân	6509	650901
Thành phố Cần Thơ	Huyện Thới Lai	Thị trấn Thới Lai	6509	650902

batman1 · 15/3/20

SA_DQ đã viết:
Để thực hiện ý tường, mình đã tạo 3 ComboBox' ComboBox đầu dùng để chọn tên tỉnh
Làm vậy mình cho là CSDL sẽ gọn nhẹn thêm phần nào chăng(?!)

Theo tôi gọn nhẹ hơn thì chắc không. Nếu có 12345 xã trong cả nước thì vẫn phải có 12345 dòng dữ liệu.

HieuCD · 15/3/20

hongphuong1997 đã viết:
Bác oi, bác oi
Sao cái code của bác cụt lủn như này hở bác?

1 tỉnh thì chỉ cần 1 dòng lệnh

SA_DQ · 15/3/20

Theo tôi gọn nhẹ hơn thì chắc không. Nếu có 12345 xã trong cả nước thì vẫn phải có 12345 dòng dữ liệu.

Đúng là số dòng trong CSDL thì không đổi, nhưng trong cột [Nơi sinh] hay [Địa chỉ thường trú],. . . từ 60 kí tự ta chỉ còn là 6 kí số mà thôi.
Chuyện dịch ngược hay dịch xuôi từ mã ra địa danh hay từ địa danh ra mã đã có các macro lo giúp.
Cái bất lợi là hình thành 1 bảng tra đồ sộ hơn 11 ngàn dòng x 5 cột

batman1 · 16/3/20

SA_DQ đã viết:
Đúng là số dòng trong CSDL thì không đổi, nhưng trong cột [Nơi sinh] hay [Địa chỉ thường trú],. . . từ 60 kí tự ta chỉ còn là 6 kí số mà thôi.
Chuyện dịch ngược hay dịch xuôi từ mã ra địa danh hay từ địa danh ra mã đã có các macro lo giúp.
Cái bất lợi là hình thành 1 bảng tra đồ sộ hơn 11 ngàn dòng x 5 cột

1. Bạn hỏi về csdl nên tôi chỉ nói về csdl.

2. Tôi nghĩ là ai cũng muốn nhìn thấy trong cột "Nơi sinh" hay "Địa chỉ thường chú" dòng "TP HCM, Q. 1, P. Cầu kho" chứ không phải con số 500110. Nhất là khi vùng dữ liệu cần phải in. Trên bản in phải là "TP HCM, Q. 1, P. Cầu kho" chứ không phải con số 500110. Nếu cột "Nơi sinh" là 500110 thì lại phải dùng thêm cột phụ "Tương đương". Như thế thì không phải là 6 ký tự mà là 60 + 6 = 66 ký tự.

Tất nhiên đôi khi ta phải dùng Mã, nhưng Mã luôn chỉ là "thêm vào" chứ không phải "thay cho". Thêm vào với những mục đích khác nhau. Vd. nhân viên trong công ty. Không phải ta không dùng Họ Tên nữa. Vẫn phải dùng họ tên. Nhưng do nhu cầu, và cả do bắt buộc, mà ta phải "thêm vào" MaNV. Bởi nhiều người có thể có cùng họ tên. Bởi thêm vào cho dễ tìm kiếm ... Bởi thêm MaNV để ...

SA_DQ · 16/3/20

Rất vui khi được thảo luận tiếp cùng với bạn!

Trên đây là ý tưởng của mình & nó xuất hiện khi có bài của chủ bài đăng này mà thôi.
Tuy nhiên 1 CSDL của 1 CQ luôn phải có [nơi sinh], thậm chí còn có cả [Nguyên Quán], hay [Địa chỉ thường trú],. . . .
Nhưng hoạt động của 1 CSDL tại 1 CQ ít khi phải in ra những trường này.
Nghĩa là mình muốn nói, chủ yếu sẽ là những quá trình
(+) Thay đổi quá trình lương của CNV
(+) Theo dõi & tặng quà sinh nhật
(+) Thay đổi đơn vị hay bộ phận trong CQ, việc chuyển đi & chuyển đến, về hưu hay bỏ việc, buột thôi việc,. . .
(+) Theo dõi lương & thu nhập, thuế TNCN, . . . hàng tháng

Tóm gọn lại là việc cần in lý lịch trích ngang là rất ít so với những hoạt động khác của 1 CSDL trong CQ. Nhất là những đơn vị sản xuất kinh doanh thì điều này càng hãn hữu.
Vậy nẹn mình có ý tưởng này. Mơ ước cũng mình là cái bảng gồm hơn 1100 dòng & 5 cột kia sẽ được đưa ra khỏi CSDL; & chỉ cần nó khi nhập mới 1 NV nào đó vô CSDL hay phải in ra những 'báo cáo' nhất thiết phải có 1 trong các trường đ ịa danh như đã nêu trên.

Trân trọng & xin chào tất cả mọi người.

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

Thành viên mới

/(hông là gì!

Thành viên mới

/(hông là gì!

Thành viên mới

/(hông là gì!

Chuyên gia GPE

/(hông là gì!

Thành viên mới

Thành viên gạo cội

/(hông là gì!

File đính kèm

/(hông là gì!

Thành viên tiêu biểu

Thành viên gạo cội

/(hông là gì!

Thành viên gạo cội

Chuyên gia GPE

/(hông là gì!

Thành viên gạo cội

/(hông là gì!