minhang2007
Thành viên mới

- Tham gia
- 10/10/07
- Bài viết
- 16
- Được thích
- 2
Option Explicit [b]
Sub SepTheoChuan()[/b]
Dim Rng As Range
Set Rng = Range("A5:B69")
SortRng Rng, Cells(5, 2)
SortRng Range("D5:F69"), Cells(5, 5)
Rng.Copy Destination:=Range("F5")
SortRng Rng, Cells(5, 1)
SortRng Range("D5:F69"), Cells(5, 4)
Set Rng = Nothing
Range("G:G").ClearContents [COLOR="Blue"] 'Mới thêm![/COLOR][b]
End Sub[/b]
[b]
Sub SortRng(Rng As Range, Rng0 As Range)[/b]
Rng.Sort Key1:=Rng0, Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
[b]End Sub[/b]
Mình thấy Vụ1' không có các kí tự 'TỈNH', tưởng bở, nhưng khi Sort thì không theo trật tư của bản gốc (xếp theo tên tỉnh!); khổ không cơ chứphamnhukhang đã viết:Phù....Mệt rồi...danh sách địa phương bây giờ lại lòi ra chữ "Tỉnh" đứng đằng trước, chỗ thì "T.Quang", chỗ thì "Tuyên Quang", chỗ thì "Tỉnh Tuyên Quang", Chắc phải làm cho mỗi tỉnh một cái mã quy chuẩn thôi. Bác Tuấn và bác SA_DQ ơi ...đâm lao phải theo lao thôi. hi hi.
---------------------------------------minhang2007 đã viết:Em nhờ các anh chị chỉ giúp em cách sắp xếp danh sách các đơn vị (ở bảng số 2) theo đúng như danh sách gôc (danh sách ở bảng số 1). Câu hỏi em nhờ anh chị giúp em gửi kèm theo File.
Em cảm ơn anh chị nhiều!
minhang2007 đã viết:Các anh chị ơi, không có cách nào để giúp em được à?
Em nghĩ hướng làm như thế này có được không nhé:
- Trước hết sẽ dùng lệnh để tách tên tỉnh ra như kiểu tách họ tên
- sau đó dùng lệnh để sắp xếp danh sách các tỉnh theo file gốc.
Em chỉ nghĩ cách làm như thế, nhưng không biết làm cụ thể, các anh chị có thể giúp em được không.
1/ Bạn nên lấy Sheet Vu2 làm ds gốc, có vẻ chuẩn hóa nhất. Xem lại Tỉnh Hậu Giang,Tỉnh ĐăkNông chưa có mã.. Thành phố=TP=T.Phố nên thống nhất. Lấy cột mã và nhớ là duy nhất nghĩa là không trùng. Chuyển về cùng 1 font với mã gốc = Unikey.minhang2007 đã viết:nếu chỗ em mà yêu cầu được 15 đơn vị làm như vậy thì em đã yêu cầu họ đánh số thứ tự danh sách theo danh sách gốc của em rồi. Vì các đơn vị này không phải là bộ phận cấp dưới của chỗ em nên không thể làm như vậy được.
Còn vấn đề chính tr thì em nghĩ trước khi làm mình có thể sửa lại được mà.
Vấn đề font chữ thì em có thể chuyển về font
Í mình không phải là chuyển font cho thống nhất; mà là thêm 1 mã thông nhất cho mọi báo cáo; bằng Validation í!; hãy nghiên cứ tiếp Validation!minhang2007 đã viết:nếu chỗ em mà yêu cầu được 15 đơn vị làm như vậy thì em đã yêu cầu họ đánh số thứ tự danh sách theo danh sách gốc của em rồi. Vì các đơn vị này không phải là bộ phận cấp dưới của chỗ em nên không thể làm như vậy được.
Còn vấn đề chính tr thì em nghĩ trước khi làm mình có thể sửa lại được mà.
Vấn đề font chữ thì em có thể chuyển về font