Help - Làm thế nào để dữ liệu tự động sort (3 người xem)

[tangoctuan]

Mọi người giúp em với:
1. Dữ liệu cột A, B là dữ liệu đầu vào, thay đổi giá trị theo ngày.
2. Dữ liệu cột D, E là dữ liệu của cột A, B nhưng sắp xếp theo thứ tự từ cao xuống thấp => Mong muốn các cột này tự động được sort theo sự thay đổi của cột A, B.

 

[giaiphap]

Mọi người giúp em với:
1. Dữ liệu cột A, B là dữ liệu đầu vào, thay đổi giá trị theo ngày.
2. Dữ liệu cột D, E là dữ liệu của cột A, B nhưng sắp xếp theo thứ tự từ cao xuống thấp => Mong muốn các cột này tự động được sort theo sự thay đổi của cột A, B.

Sắp xếp theo cột nào vậy bạn (D hay E)?

 

[♫ђöล♥ßล†♥†µ♫]

Mọi người giúp em với:
1. Dữ liệu cột A, B là dữ liệu đầu vào, thay đổi giá trị theo ngày.
2. Dữ liệu cột D, E là dữ liệu của cột A, B nhưng sắp xếp theo thứ tự từ cao xuống thấp => Mong muốn các cột này tự động được sort theo sự thay đổi của cột A, B.

Bạn tham khảo Code của Thầy Ndu xem sao

 

[truongvu317]

Code: copy dữ liệu từ a và b sang c và d, sau đó sort theo c và d là xong, ngon như ăn kẹo mút.

 

[VetMini]

Code: copy dữ liệu từ a và b sang c và d, sau đó sort theo c và d là xong, ngon như ăn kẹo mút.

Kẹo mút ăn nhiều sâu răng. Tải file như ở bài #3 lành mạnh hơn.

 

[truongvu317]

Kẹo mút ăn nhiều sâu răng. Tải file như ở bài #3 lành mạnh hơn.

Đã có " côn gát" anh nhé, ngày nào chả đánh răng sợ gì, "ngại gì chân bước mà run".

Mà code ở bài 3 thì nếu dữ liệu lớn là rất dễ "ngờ đâu! dây đứt lìa đàn, nụ hoa chưa thắm vội tàn, chưa vui đã sầu chia phôi...."

 

[VetMini]

...
Mà code ở bài 3 thì nếu dữ liệu lớn là rất dễ "ngờ đâu! dây đứt lìa đàn, nụ hoa chưa thắm vội tàn, chưa vui đã sầu chia phôi...."

Dây đứt còn đưa lên cho tác giả nối lại. Theo chỉ dẫn copy tùm lum như bài #4, ra không đúng ý thì biết đền ai đây?
Nên nhớ, diễn đàn này người ta chỉ ưng làm giùm chứ không thích nghe lời chỉ dẫn.

 

[Hau151978]

Bài này tác giả muốn hỏi tự động copy sang cột D E và sort nên cần dùng thủ tục sự kiện worksheet_change, ví dụ

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n&
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    n = Columns(1).Rows.Count
    Range("D2:E" & n).Clear
    Range("A2", Range("B" & n).End(xlUp)).Copy Range("D2")
    Range("D2:E" & n).Sort key1:=Range("E2"), order1:=xlDescending, Header:=xlYes
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[truongvu317]

Dây đứt còn đưa lên cho tác giả nối lại. Theo chỉ dẫn copy tùm lum như bài #4, ra không đúng ý thì biết đền ai đây?
Nên nhớ, diễn đàn này người ta chỉ ưng làm giùm chứ không thích nghe lời chỉ dẫn.

Nếu có đứt dây thì đừng có bắt đền em là được rồi, em "cà rốt" cái vụ vba lắm.

 

[tangoctuan]

Bài này tác giả muốn hỏi tự động copy sang cột D E và sort nên cần dùng thủ tục sự kiện worksheet_change, ví dụ

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n&
    If Intersect(Target, Range("A:B")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    n = Columns(1).Rows.Count
    Range("D2:E" & n).Clear
    Range("A2", Range("B" & n).End(xlUp)).Copy Range("D2")
    Range("D2:E" & n).Sort key1:=Range("E2"), order1:=xlDescending, Header:=xlYes
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Mình chưa hiểu lắm. Bạn có thể làm luôn trong file giúp mình được không? Cảm ơn nhiều.

Bài đã được tự động gộp: 4/7/18

Bạn tham khảo Code của Thầy Ndu xem sao

Mình bấm vào sort tăng với sort giảm của bạn nhưng không được? Không thấy có gì thay đổi.
Nếu mà có cách dùng hàm được thì tốt quá, vì mình có thể áp dụng trong các trường hợp tương tự khác chứ không bị cố định với file này.
Cảm ơn bạn nhiều.

Bài đã được tự động gộp: 4/7/18

Code: copy dữ liệu từ a và b sang c và d, sau đó sort theo c và d là xong, ngon như ăn kẹo mút.

Đúng là ngon như kẹo thật.

 

[Hau151978]

Bạn thử file, thay đổi các cột A, B (phải điền cả 2), dữ liệu sẽ copy sang cột D E và sort.

 

[VetMini]

@ truongvu317:
Như đã nói trong bài #7, tôn chỉ của GPE là "làm giùm" chứ không phải chỉ dẫn. Kẹo mút là đồ rẻ tiền. Thời buổi thế kỷ 21, người ta đòi hỏi "thức nhắm ăn liền, phở gọi bằng si mát phôn"

Mình chưa hiểu lắm. Bạn có thể làm luôn trong file giúp mình được không? Cảm ơn nhiều.
...

 

[truongvu317]

@ truongvu317:
Như đã nói trong bài #7, tôn chỉ của GPE là "làm giùm" chứ không phải chỉ dẫn. Kẹo mút là đồ rẻ tiền. Thời buổi thế kỷ 21, người ta đòi hỏi "thức nhắm ăn liền, phở gọi bằng si mát phôn"

Sợ quá, quá sợ luôn, may mà em không thông vba, không lại khổ mà coi.

 

[tangoctuan]

Bạn thử file, thay đổi các cột A, B (phải điền cả 2), dữ liệu sẽ copy sang cột D E và sort.

Bạn giúp mình thêm trường hợp sort từ nhỏ tới lớn nữa được không?
Mà nếu có cách nào để sử dụng được với file khác không nhỉ? Cứ dính đúng theo file này thì các trường hợp khác lại không dùng được.

 

[batman1]

Kẹo mút là đồ rẻ tiền.

, ngon như ăn kẹo mút.

Tôi cũng sành khoản kẹo mút lắm. Kẹo sữa hay không đều thích nhưng phải là kẹo thịt. Xưởng kẹo càng có thâm niên thấp càng ngon.