Sort theo cột có cả định dạng text và định dạng số (1 người xem)

[thanhdo89]

Các anh chị giup e với. Cho e 1 đoạn code
E có 1 danh sách có 11 cột. E có cột thứ 3 có đánh số thự tự ( có cả số thập phân). E muốn sort cột thứ 3 ( sort theo cả định dạng text và số).
Sau đó e lại đánh lại số thứ tự từ 1 đến hết ở cột 1 với điều kiện ( value ( ở cột 3) < > 0).
E muốn áp dụng cho tất cả các shheet trên 1 file.
E cám ơn ạ

 

[phulien1902]

Các anh chị giup e với. Cho e 1 đoạn code
E có 1 danh sách có 11 cột. E có cột thứ 3 có đánh số thự tự ( có cả số thập phân). E muốn sort cột thứ 3 ( sort theo cả định dạng text và số).
Sau đó e lại đánh lại số thứ tự từ 1 đến hết ở cột 1 với điều kiện ( value ( ở cột 3) < > 0).
E muốn áp dụng cho tất cả các shheet trên 1 file.
E cám ơn ạ

Bạn gửi cái File đó lên đây để tiện thao tác.

 

[thanhdo89]

E có 1 danh sách có 11 cột. E có cột thứ 3 có đánh số thự tự ( có cả số thập phân). E muốn sort cột thứ 3 ( sort theo cả định dạng text và số).( Bắt đầu từ hàng 16).
Hoặc là giúp em chuyển toàn bộ định dạng của cột 2(B), cột 3 (C) về định dạng số.
Nếu có thể có thể giúp em cho chữ in hoa ở ký tự đầu tiên ở cột 4 và cột 5 (họ tên và địa chỉ_ ví dụ: nguyễn thị 1- Nguyễn Thị.
Và Nếu cột J có đánh mã 1, thì sẽ bôi đậm cả dòng được không ạ.
Sau đó e lại đánh lại số thứ tự từ 1 đến hết ở cột 1 với điều kiện ( value ( ở cột 3) < > 0).
Nếu có thể cho em cùng 1 kích cỡ chữ là 12 hoặc 13.
E muốn áp dụng cho tất cả các shheet trên 1 file.
E cám ơn ạ

 

[befaint]

chuyển toàn bộ định dạng của cột 2(B), cột 3 (C) về định dạng số.

Bài #1 hỏi có một ý, sao tới bài này tham thế...

Chuyển về số:
Chọn vùng dữ liệu ở cột B, C rồi

 

[thanhdo89]

Bài #1 hỏi có một ý, sao tới bài này tham thế...

Chuyển về số:
Chọn vùng dữ liệu ở cột B, C rồi
View attachment 194521

Dạ. E cám ơn ạ. Nhưng e muốn thao tác 1 lúc tất các sheest trong 1 file cơ ạ. Giúp e đc ko ạ. Hj

 

[befaint]

Tạm...

Sub vidu()
    Dim lastRow As Long, ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        lastRow = ws.Range("B" & Rows.Count).End(xlUp).Row
        If lastRow < 16 Then GoTo Next_ws
        With ws.Range("B16:C" & lastRow)
            .NumberFormat = "General"
            .Value = .Value
        End With
Next_ws:
    Next ws
End Sub

 

[thanhdo89]

Anh ơi, em sắp xếp cho 1 sheet thì như ở dưới, nhưng làm cho tất cả các sheet thì làm như thế nào anh nhỉ, anh xem giúp em với

Sub sapxep()
ActiveWorkbook.Worksheets("DB003").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB003").Sort.SortFields.Add Key:=Range("C16:C179") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("DB003").Sort
.SetRange Range("B15:K179")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub