Help: Tự động sắp xếp khi thêm dữ liệu mới mà không cần dùng Autofilter (2 người xem)

[lovefree123]

Minh có 1 vấn đề sau xin mọi người giúp đỡ:
- Bng dữ liệutại Sheet1(file đính kèm), khi thêm dữ liệu mòứi vào hàng cuối thì bảng sẽ đựoc tự động sắp xếp lại theo 1 cột nào đó( cột môn chẳng hạn)
- Thanks

 

[ndu96081631]

Minh có 1 vấn đề sau xin mọi người giúp đỡ:
- Bng dữ liệutại Sheet1(file đính kèm), khi thêm dữ liệu mòứi vào hàng cuối thì bảng sẽ đựoc tự động sắp xếp lại theo 1 cột nào đó( cột môn chẳng hạn)
- Thanks

Bạn cứ nhập liệu bình thường... sau khi xong hết thì sort 1 lần cuối ---> Đâu phải là chuyện cực khổ gì mà phải vừa nhập vừa sort chứ?
Mà thực chất nếu làm theo yêu cầu của bạn cũng không phải là dể... Coi chừng vừa nhập xong, nó sort 1 nhát làm dử liệu mới "chạy" tít lên trên cùng, khi ấy bạn chẳng biết đường đâu mà lần

 

[DOSNET]

- Góp ý thêm là ít người "chế biến" ngay tại data base, bạn có thể nhập liệu tại một vùng và hiển thị dữ liệu sau khi Sort tại một vùng khác, thân!

 

[nobitas]

- Góp ý thêm là ít người "chế biến" ngay tại data base, bạn có thể nhập liệu tại một vùng và hiển thị dữ liệu sau khi Sort tại một vùng khác, thân!

Bác DOSNET ơi, mình đang cần làm 1 bảng tính giống như bạn nói nè :" nhập liệu tại một vùng và hiển thị dữ liệu sau khi Sort tại một vùng khác". Mình đã thử nhưng vẫn chưa tìm được giải pháp. Bác giúp mình với được không ? Cám ơn bác nhiều

 

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

Bác DOSNET ơi, mình đang cần làm 1 bảng tính giống như bạn nói nè :" nhập liệu tại một vùng và hiển thị dữ liệu sau khi Sort tại một vùng khác". Mình đã thử nhưng vẫn chưa tìm được giải pháp. Bác giúp mình với được không ? Cám ơn bác nhiều

Bạn chịu dùng PivotTable không? Nếu chịu mình tiếp tục nhé.

 

[nobitas]

Bạn chịu dùng PivotTable không? Nếu chịu mình tiếp tục nhé.

Cách nào cũng được bạn, miễn là ra được kết quả như ý muốn

 

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

Cách nào cũng được bạn, miễn là ra được kết quả như ý muốn

Vậy bạn dùng code củ chuối sau cho nhé.

Sub CopyVaSort()
    Columns("I:N").ClearContents
    Range("A1:F1", Range("A1:F1").End(xlDown)).Copy
    Range("I1").PasteSpecial Paste:=3
    Selection.Sort Key1:=Range("J2"), Order1:=1, Header:=1
    Range("A1").Select
End Sub

Mời bạn xem ví dụ ở file đính kèm

 

[nobitas]

Cảm ơn bạn nhiều, để mình thử xem (*.*) . Có ji lại làm phiền bạn tiếp ;'-)

 

[quisomot]

Vậy bạn dùng code củ chuối sau cho nhé.

Sub CopyVaSort()
    Columns("I:N").ClearContents
    Range("A1:F1", Range("A1:F1").End(xlDown)).Copy
    Range("I1").PasteSpecial Paste:=3
    Selection.Sort Key1:=Range("J2"), Order1:=1, Header:=1
    Range("A1").Select
End Sub

Mời bạn xem ví dụ ở file đính kèm

Bác ơi mình k cần copy ra mà muốn soft bằng nút trên dữ liệu đó được k? cám ơn bác nhìu