Viết dùm em code sắp xếp dữ liệu độc lập

[bebeen]

Em muốn thiết lập 1 đoạn 1 đoạn sắp xếp dữ liệu độc lập? Để khi nào cần sắp xếp thì chỉ cần gọi ra là được thực hiện?

 

[Lê Duy Thương]

cái quan trọng la dữ liệu của bạn sẽ được sắp xếp như thế nào , có bao nhiêu cột. bạn cần cho yêu cầu của mình, chứ bạn nói chung chung thì mọi khó mà giúp cho chính xác được

 

[bebeen]

cái quan trọng la dữ liệu của bạn sẽ được sắp xếp như thế nào , có bao nhiêu cột. bạn cần cho yêu cầu của mình, chứ bạn nói chung chung thì mọi khó mà giúp cho chính xác được

Em đưa ví dụ này lên nhờ anh và mọi người xem dùm. Hoàn thiện thêm cho em nhé!

 

[SA_DQ]

Mình cũng dùng bộ thu ghi lại giúp bạn & chỉnh sửa lại thôi, nó là vầy:

Option Explicit
Sub GPE()
 Dim Rng As Range
 Set Rng = [A7].CurrentRegion
 If Not Rng Is Nothing Then
    Rng.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False
 End If
End Sub

Bạn gán cho nó tổ hợp fím, như {CTRL}+{SHIFT}+G
Để khi nào muốn xài thì ấn 1 fát!
CHÚC THÀNH CÔNG MĨ MÃN!

 

[bebeen]

Option Explicit
Sub GPE()
 Dim Rng As Range
 Set Rng = [A7].CurrentRegion
 If Not Rng Is Nothing Then
    Rng.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False
 End If
End Sub

Bạn gán cho nó tổ hợp fím, như {CTRL}+{SHIFT}+G
Để khi nào muốn xài thì ấn 1 fát!
CHÚC THÀNH CÔNG MĨ MÃN!

Cách này thì ổn rùi ah! Em chưa bao giờ đặt tổ hợp phìm tắt cho tục có sẵn cả. Xin sư phụ chỉ dùm cho thêm?

 

[ChanhTQ@]

Chịu khó tìm kiếm chút đi bạn!

Cách này thì ổn rùi ah! Em chưa bao giờ đặt tổ hợp phìm tắt cho tục có sẵn cả. Xin sư phụ chỉ dùm cho thêm?

Hãy xem tạm ở đây: http://www.giaiphapexcel.com/forum/showthread.php?1615-Tạo-nút-lệnh
Hay đến bài "Chập chững đến VBA. . ." hoặc nhiều bài khác trên diễn đàn . . . . mà tham khảo

 

[Ba Tê]

Em đưa ví dụ này lên nhờ anh và mọi người xem dùm. Hoàn thiện thêm cho em nhé!

Thay đổi ô C4 sheet THU là xong, 2 trong 1.