Nhờ viết Code VBA sort theo nhiều cột.

[hoangminh2018]

Em xin chào các thầy, cô, anh, chị, em
Em muốn viết code vba sort dữ liệu theo nhiều cột.
Em mới tập viết code nhưng tệ quá làm mãi không ra nhờ mọi người hỗ trợ em ạ
Em xin cảm ơn, chúc mọi người ngày mới vui vẻ ạ.

 

[befaint]

Đơn giản nhất là bạn record macro khi dùng chức năng Sort có sẵn của Excel, sẽ có code mẫu.

 

[hoangminh2018]

Đơn giản nhất là bạn record macro khi dùng chức năng Sort có sẵn của Excel, sẽ có code mẫu.

dạ em xỉn cảm ơn thầy đã hướng dẫn
Nhưng record macro thì ra dài và khó hiểu ạ.

 

[VetMini]

dạ em xỉn cảm ơn thầy đã hướng dẫn
Nhưng record macro thì ra dài và khó hiểu ạ.

Record xong đem đem lên đây hỏi, nhờ giải thích.
Ở đây người ta viết code cho bạn càng khó hiểu hơn.
Mới tập viết code mà đã sợ "code dài" thì còn làm ăn gì nữa.

 

[befaint]

Nhưng record macro thì ra dài và khó hiểu ạ.

Thông thường 'dài' dễ hiểu hơn 'ngắn'.

 

[Hai Lúa Miền Tây]

Em xin chào các thầy, cô, anh, chị, em
Em muốn viết code vba sort dữ liệu theo nhiều cột.
Em mới tập viết code nhưng tệ quá làm mãi không ra nhờ mọi người hỗ trợ em ạ
Em xin cảm ơn, chúc mọi người ngày mới vui vẻ ạ.

Bạn dùng code sau thử nhé:

Sub LocDL_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open "Select * from [Sheet1$A3:I16] Order By F6,F5,F3,F2", "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 Xml;HDR=NO"";Data Source=" & ThisWorkbook.FullName
        Sheet2.Range("A2").CopyFromRecordset .DataSource
    End With
End Sub

 

[tigertiger]

Bạn dùng code sau thử nhé:

Sub LocDL_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open "Select * from [Sheet1$A3:I16] Order By F6,F5,F3,F2", "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 Xml;HDR=NO"";Data Source=" & ThisWorkbook.FullName
        Sheet2.Range("A2").CopyFromRecordset .DataSource
    End With
End Sub

Xong, thế này thì có thể lại càng rơi vào vực khó hiểu

 

[hoangminh2018]

Bạn dùng code sau thử nhé:

Sub LocDL_HLMT1()
    With CreateObject("ADODB.Recordset")
        .Open "Select * from [Sheet1$A3:I16] Order By F6,F5,F3,F2", "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 Xml;HDR=NO"";Data Source=" & ThisWorkbook.FullName
        Sheet2.Range("A2").CopyFromRecordset .DataSource
    End With
End Sub

em xin cảm ơn ạ
Nhưng em muốn viết sao để có thể tự động co giãn số lượng dòng và cột.

 

[Hai Lúa Miền Tây]

em xin cảm ơn ạ
Nhưng em muốn viết sao để có thể tự động co giãn số lượng dòng và cột.

Co giãn là sao bạn?

 

[hoangminh2018]

Co giãn là sao bạn?

là có thể thêm nhiều dòng hoặc cột ạ.

 

[Hai Lúa Miền Tây]

là có thể thêm nhiều dòng hoặc cột ạ.

Thì code đó bạn muốn thêm bao nhiêu dòng, cột chẳng được bạn.