ai giúp em sort thứ tự theo cột C, sau đó đánh lại thứ tự ở cột A, áp dụng cho tất cả các sheet.

[thanhdo89]

ai giúp em sort thứ tự theo cột C, sau đó đánh lại thứ tự ở cột A, áp dụng cho tất cả các sheet được không ạ.
Dòng sort và đánh thứ tự bắt đầu ở dòng 17, Cột C (Sort thứ tự có thể sort theo dữ liệu kiểu số, có thể sort theo dữ liệu kiểu text_do đánh thêm dấu " ' " ở trước.
Đánh số thứ tự ở cột A sau khi sort dữ liệu và mỗi sheet có số dòng khác nhau.
em cám ơn ạ.

 

[♫ђöล♥ßล†♥†µ♫]

ai giúp em sort thứ tự theo cột C, sau đó đánh lại thứ tự ở cột A, áp dụng cho tất cả các sheet được không ạ.
Dòng sort và đánh thứ tự bắt đầu ở dòng 17, Cột C (Sort thứ tự có thể sort theo dữ liệu kiểu số, có thể sort theo dữ liệu kiểu text_do đánh thêm dấu " ' " ở trước.
Đánh số thứ tự ở cột A sau khi sort dữ liệu và mỗi sheet có số dòng khác nhau.
em cám ơn ạ.

Ví dụ: hồ văn 2, hồ văn 10, hồ văn 1
Thì sắp xếp thành hồ văn 1, hồ văn 10, hồ văn 2 hay là hồ văn 1, hồ văn 2, hồ văn 10 vậy bạn

 

[thanhdo89]

Ví dụ: hồ văn 2, hồ văn 10, hồ văn 1
Thì sắp xếp thành hồ văn 1, hồ văn 10, hồ văn 2 hay là hồ văn 1, hồ văn 2, hồ văn 10 vậy bạn

Dạ em sắp xếp theo cột C (cột thứ 3) chứ không phải cột họ tên chị ạ.

 

[♫ђöล♥ßล†♥†µ♫]

Dạ em sắp xếp theo cột C (cột thứ 3) chứ không phải cột họ tên chị ạ.

Ù nhỉ. Mình nhầm

Bạn sử dụng hàm Sort2DArray của Thầy ndu96081631 nha

 

[thanhdo89]

Ù nhỉ. Mình nhầm

Bạn sử dụng hàm Sort2DArray của Thầy ndu96081631 nha

Chị ơi chị xem giúp lại e với. Nó ko chạy đc tất cả các sheet. Với lại cột C. Số thứ tự nếu e đánh '2,1 ; '2,3 ; '2,2. Định dạng dữ liệu text thì nó ko chạy ạ

 

[♫ђöล♥ßล†♥†µ♫]

Sao mình bấm vào 2 cái nút nó chạy rầm rầm mà

 

[thanhdo89]

chị ơi vẫn không được ạ, chị để ý những ô em bôi mầu vàng ấy ạ, định dạng (type_ (kiểu dữ liệu text nó không chạy ).
Và đánh số thứ tự phải vào từng sheet rùi bấm F5 thì nó mới chạy, em muốn bấm 1 cái nó chạy tất cả sheet cùng lúc cơ ạ, chị giúp em với, em cám ơn ạ.

 

[♫ђöล♥ßล†♥†µ♫]

chị ơi vẫn không được ạ, chị để ý những ô em bôi mầu vàng ấy ạ, định dạng (type_ (kiểu dữ liệu text nó không chạy ).
Và đánh số thứ tự phải vào từng sheet rùi bấm F5 thì nó mới chạy, em muốn bấm 1 cái nó chạy tất cả sheet cùng lúc cơ ạ, chị giúp em với, em cám ơn ạ.

Bạn thấy trên Video trên nó vẫn chạy rầm rầm đó mà. Đến Sheets nào Click chuột phải rồi bấm vào cái nút đó thôi

 

[thanhdo89]

Bạn thấy trên Video trên nó vẫn chạy rầm rầm đó mà. Đến Sheets nào Click chuột phải rồi bấm vào cái nút đó thôi

Dạ chị bấm nhưng chị không để ý, ở DDB chị nhấn Crt +F chị tìm ở cột C "'2,1; 2,2" chị sẽ thấy nó không ở trên đầu mà nó ở dưới cơ ạ, chị xem giúp em với

 

[♫ђöล♥ßล†♥†µ♫]

Dạ chị bấm nhưng chị không để ý, ở DDB chị nhấn Crt +F chị tìm ở cột C "'2,1; 2,2" chị sẽ thấy nó không ở trên đầu mà nó ở dưới cơ ạ, chị xem giúp em với

Lần này mà không được nữa là tắt máy đi dạo phố đó nha

 

[thanhdo89]

Lần này mà không được nữa là tắt máy đi dạo phố đó nha

Hix, chị hình như vẫn chưa hiểu ý em, Chị vào DDB003, chị kéo xuống dưới cùng ấy ạ, những em bôi vàng nó không lên đầu được đâu ạ
Đây là code em chỉ làm được sort cho 1 sheet thôi ạ chị xem thử nhé
Sub Sap_xep()
ActiveWorkbook.Worksheets("DB003").Sort.SortFields.Add Key:=Range("C16:C179") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("DB003").Sort
.SetRange Range("B16:K179")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[thanhdo89]

Chị hoa bất tử ơi, chị giúp nốt em cho nó chạy 1 lúc tất cả các sheets được không ạ. em cám ơn ạ

 

[bongbay55]

Hix, chị hình như vẫn chưa hiểu ý em, Chị vào DDB003, chị kéo xuống dưới cùng ấy ạ, những em bôi vàng nó không lên đầu được đâu ạ

Sort dữ liệu để sắp xếp: phần dữ liệu dạng Text sẽ được sắp xếp riêng với dữ liệu dạng Number . Vậy nên chuyển về 1 định dạng bạn nhé .Xem thử lại file của " người đẹp". Hi

 

[♫ђöล♥ßล†♥†µ♫]

Chị hoa bất tử ơi, chị giúp nốt em cho nó chạy 1 lúc tất cả các sheets được không ạ. em cám ơn ạ

Hôm nay lang thang trên diễn đàn đọc được bài này: http://www.giaiphapexcel.com/diendan/threads/tặng-các-bạn-thủ-tục-sort-với-rất-nhiều-cột-trong-bảng-tính.109381/
Bạn sang đó tìm hiều

Sub MultiSort(ByVal SortRange As Range, _
        ByVal ColumnName As String, _
        Optional ByVal SortType As Boolean, _
        Optional ByVal Header As Boolean)
    Dim splArr
    Dim c As Long
    Dim WS As Worksheet
Set WS = SortRange.Parent
ColumnName = UCase(Replace(ColumnName, " ", ""))
splArr = Split(ColumnName, ",")
WS.Sort.SortFields.Clear
For c = 0 To UBound(splArr)
    WS.Sort.SortFields.Add _
            Key:=Range(splArr(c) & 1), _
            SortOn:=xlSortOnValues, _
            Order:=IIf(SortType, xlDescending, xlAscending), _
            DataOption:=xlSortNormal
Next
With WS.Sort
    .SetRange SortRange
    .Header = IIf(Header, xlYes, xlNo)
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub
Sub Sapxep()
    Dim WS As Worksheet, Er As Long
    For Each WS In Worksheets
        WS.Select
        Er = Range("C" & Rows.Count).End(3).Row
        If Er > 15 Then
            MultiSort WS.Range("B16:K" & Er), "C", False, False
        End If
    Next
End Sub