SẮP XẾP NHIỀU DỮ LIỆU THEO THỨ TỰ (2 người xem)

[LOIKS]

Chào mọi người
mình có một bảng dữ liệu với với nhiều cấu kiện bài toán đặt ra là sắp xếp các cấu kiện theo thứ tự
ví dụ trong dữ liệu của mình có cấu kiện "B210" có số thứ tự là số 1 và cấu kiện B211 có số thứ tự là số 2, bây giờ làm sao sắp xếp cho cấu kiện B210 đứng trước cấu kiện B211
CẢM ƠN MỌI NGƯỜI NHIỀU

 

[quanluu]

Chào mọi người
mình có một bảng dữ liệu với với nhiều cấu kiện bài toán đặt ra là sắp xếp các cấu kiện theo thứ tự
ví dụ trong dữ liệu của mình có cấu kiện "B210" có số thứ tự là số 1 và cấu kiện B211 có số thứ tự là số 2, bây giờ làm sao sắp xếp cho cấu kiện B210 đứng trước cấu kiện B211
CẢM ƠN MỌI NGƯỜI NHIỀU

Sort bình thường mà bạn

 

[LOIKS]

Sort bình thường mà bạn

Bạn làm giúp mình thử, mình làm ko được, cái này nó có theo thứ tự

 

[quanluu]

Bạn làm giúp mình thử, mình làm ko được, cái này nó có theo thứ tự

Mình lộn, nhưng sao bạn không dùng cột phụ rồi sort theo cột phụ
Nếu CK có 4 cái thế này thôi thì dùng custom list cũng được.

 

[LOIKS]

Mình lộn, nhưng sao bạn không dùng cột phụ rồi sort theo cột phụ
Nếu CK có 4 cái thế này thôi thì dùng custom list cũng được.

thật ra nó nhiều lắm vì chỉ lấy vị dụ nên mình chỉ lấy có 4 cái thôi

 

[quanluu]

thật ra nó nhiều lắm vì chỉ lấy vị dụ nên mình chỉ lấy có 4 cái thôi

Thế thì giải pháp bài này là dùng cột phụ là số thứ tự rồi sort theo cột này
2 là code VBA thôi

 

[phulien1902]

Chào mọi người
mình có một bảng dữ liệu với với nhiều cấu kiện bài toán đặt ra là sắp xếp các cấu kiện theo thứ tự
ví dụ trong dữ liệu của mình có cấu kiện "B210" có số thứ tự là số 1 và cấu kiện B211 có số thứ tự là số 2, bây giờ làm sao sắp xếp cho cấu kiện B210 đứng trước cấu kiện B211
CẢM ƠN MỌI NGƯỜI NHIỀU

Bạn làm như sau:
1.

E3=VLOOKUP(B3,$H$3:$I$6,2)

2. Quét chọn vùng A3:E25
3.Vào Data --> Sort --->Sort by ---> Chọn cột E, chọn Smallest to Lagest ----> OK.
4. Xóa cột E
Xong.

 

[Phuocam]

Thử:

Sub Test()
Dim lastRow As Long
With Sheets("SAP XEP")
lastRow = .Range("B" & Rows.Count).End(xlUp).Row
    .Columns("C:C").Insert
    .Range("C3:C" & lastRow).FormulaR1C1 = "=VLOOKUP(RC[-1],R3C9:R6C10,2,0)"
    .Range("A3:E" & lastRow).Sort Key1:=.Range("C3"), Order1:=xlAscending
    .Columns("C:C").Delete
End With
End Sub

 

[quanluu]

Góp vui 1 code khác

Sub sorttheott()
 Dim cn As Object
 Set cn = CreateObject("ADODB.Connection")
 cn.Open ("Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";")
 Range("A3").CopyFromRecordset cn.Execute("select a.* from [A3:D] a inner join [H3:I] b on b.f1 = a.f2 order by b.f2")
 Set cn = Nothing
End Sub

 

[LOIKS]

Thử:

Sub Test()
Dim lastRow As Long
With Sheets("SAP XEP")
lastRow = .Range("B" & Rows.Count).End(xlUp).Row
    .Columns("C:C").Insert
    .Range("C3:C" & lastRow).FormulaR1C1 = "=VLOOKUP(RC[-1],R3C9:R6C10,2,0)"
    .Range("A3:E" & lastRow).Sort Key1:=.Range("C3"), Order1:=xlAscending
    .Columns("C:C").Delete
End With
End Sub

cam on ban nha