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

Liên hệ QC

hoangminh2018

Thành viên chính thức
Tham gia
31/10/18
Bài viết
58
Được thích
4
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ẻ ạ.
 

File đính kèm

  • Hoi code vba sort nhieu dieu kien.xlsm
    22.1 KB · Đọc: 15
Đơ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.
 
Upvote 0
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.
 
Upvote 0
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é:

Mã:
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
 
Upvote 0
Bạn dùng code sau thử nhé:

Mã:
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
 
Upvote 0
Bạn dùng code sau thử nhé:

Mã:
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.
 
Upvote 0
Web KT
Back
Top Bottom