Xin code sort tăng dần/giảm dần khi nhấp vào tiêu đề. (2 người xem)

[iloveit]

Anh chị nào có code sort tăng dần/giảm dần khi nhấp vào tiêu đề gửi cho tôi xin với nhé.

Cám ơn nhiều.

 

[hung2412]

Anh chị nào có code sort tăng dần/giảm dần khi nhấp vào tiêu đề gửi cho tôi xin với nhé.

Cám ơn nhiều.

Bạn thử Up File lên xem sao.

 

[iloveit]

Bạn thử Up File lên xem sao.

File mẫu đây bạn xem giúp nhé. Thanks.

 

[hung2412]

File mẫu đây bạn xem giúp nhé. Thanks.

Bạn muốn Sort giảm dần hay tăng dần theo cột nào (STT, ngày tháng, số lượng, đơn giá, thành tiền,...)?

 

[iloveit]

Bạn muốn Sort giảm dần hay tăng dần theo cột nào (STT, ngày tháng, số lượng, đơn giá, thành tiền,...)?

Khi click vào tiêu đề bất kỳ cột nào thì sắp xếp tăng dần hoặc giảm dầm, cụ thể nếu click vào tiêu đề là sắp xếp. Nếu đăng tăng thì sắp xếp giảm và ngược lại.

Còn chỉ sắp xếp tăng hoặc chỉ giàm khi click thì tôi làm được rồi. Thanks.

 

[hung2412]

Khi click vào tiêu đề bất kỳ cột nào thì sắp xếp tăng dần hoặc giảm dầm, cụ thể nếu click vào tiêu đề là sắp xếp. Nếu đăng tăng thì sắp xếp giảm và ngược lại.

Còn chỉ sắp xếp tăng hoặc chỉ giàm khi click thì tôi làm được rồi. Thanks.

Có nghĩa là bạn muốn rằng:
- Khi kích vào ô Thành tiền thì nếu đang ở dạng giảm dần thì sẽ chuyển thành dạng tăng dần và ngược lại.
- Khi kích vào ô Số phiếu thì nếu đang ở dạng giảm dần thì sẽ chuyển thành dạng tăng dần và ngược lại.
...

 

[iloveit]

Có nghĩa là bạn muốn rằng:
- Khi kích vào ô Thành tiền thì nếu đang ở dạng giảm dần thì sẽ chuyển thành dạng tăng dần và ngược lại.
- Khi kích vào ô Số phiếu thì nếu đang ở dạng giảm dần thì sẽ chuyển thành dạng tăng dần và ngược lại.
...

Đúng vậy bạn đó bạn. Khi chưa sắp xếp thì click vào sẽ sắp xếp (tăng giảm gì cũng được).

 

[Ba Tê]

Đúng vậy bạn đó bạn. Khi chưa sắp xếp thì click vào sẽ sắp xếp (tăng giảm gì cũng được).

Thử cái Sub này cho Sheet1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Long, C As Long
If Not Intersect(Target, [B11:H11]) Is Nothing Then
    R = [B65536].End(xlUp).Row
    C = Target.Column
    If R > 12 Then
        Range("B12:H" & R).Sort Key1:=Cells(12, Target.Column), Order1:=IIf(Cells(12, C) < Cells(R, C), xlDescending, xlAscending)
    End If
End If
End Sub

 

[iloveit]

Ok rồi anh Bate ơi.

Mà có điều những cột khác thì nhấp bao nhiêu lần vẫn chạy. Riêng cột Tên hàng khi nhấp đến lần thứ 3 thì nó không chạy nữa.

 

[Ba Tê]

Ok rồi anh Bate ơi.

Mà có điều những cột khác thì nhấp bao nhiêu lần vẫn chạy. Riêng cột Tên hàng khi nhấp đến lần thứ 3 thì nó không chạy nữa.

Vậy thì giỡn với nó một chút đi.
Đang Sort theo tiêu đề nào thì tiêu đề đó có màu mè để xác định dữ liệu đang bị sort theo cột nào.
Ngồi buồn cứ "nhấp" vào tiêu đề nào đó khi nào mõi tay thì nhờ người khác "nhấp" tiếp.
Tui "nhấp" hơn "xị" rồi, hổng "nhấp" nữa đâu.

 

[iloveit]

Vậy thì giỡn với nó một chút đi.
Đang Sort theo tiêu đề nào thì tiêu đề đó có màu mè để xác định dữ liệu đang bị sort theo cột nào.
Ngồi buồn cứ "nhấp" vào tiêu đề nào đó khi nào mõi tay thì nhờ người khác "nhấp" tiếp.
Tui "nhấp" hơn "xị" rồi, hổng "nhấp" nữa đâu.

Hay quá anh Ba tê. Cảm ơn anh. Lần này cho nhấp banh chuột luôn ^^