Sắp xếp dữ liệu

[Cường Trần]

Chào Anh/ chi
Em có một file theo dõi công nợ, do ngày thực xuất của em nó không theo tự tăng dần, vì sort theo bình thường nó rất là phiền mỗi lần nhập là mỗi lần sort, nên nhờ mọi người giúp em chỉ cần nhấn vô nút sắp xếp thì tự nó sắp xếp.
Cảm ơn tất cả trước

 

[nmhung49]

Chào Anh/ chi
Em có một file theo dõi công nợ, do ngày thực xuất của em nó không theo tự tăng dần, vì sort theo bình thường nó rất là phiền mỗi lần nhập là mỗi lần sort, nên nhờ mọi người giúp em chỉ cần nhấn vô nút sắp xếp thì tự nó sắp xếp.
Cảm ơn tất cả trước

[GPECODE=vb]
Sub GPESortData()
'Thay doi Range ("A4") khi du lieu co thoi
Sheets("BANG DU LIEU").Range("A4").CurrentRegion.Offset(3).Sort [A4], 1


End Sub


[/GPECODE]
Alt +F11 chọn insert Module chép code trên vào
Vẽ shape bất kỳ chọn chuột phải Assign Macro chọn tên sub GPEsortdata ok