sắp xếp dữ liệu trong bảng tính (2 người xem)

[truongduchoa]

Mình có file này nhờ các bạn chỉ giúp.

 

[huuthang_bd]

Mình có file này nhờ các bạn chỉ giúp.

Bạn chep đoạn code này và dán vào cửa sổ VBE của Sheet1

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range("A2:C16")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub

 

[rosy84]

Bạn xem file này nhé, cái này thì làm hoàn toàn với nhiều dữ liệu.

 

[ndu96081631]

Bạn chep đoạn code này và dán vào cửa sổ VBE của Sheet1

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").Sort
        .SetRange Range("A2:C16")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub

Code này hơi bị lạ... tôi chưa thấy bao giờ, không biết bạn Huuthang đã test chưa?
Còn tôi thì thấy chỉ cần thế này là đủ:

Private Sub CommandButton1_Click()
  With Sheet2.Range("A1").CurrentRegion
    .Sort .Cells(2, 2), 1, Header:=xlGuess
  End With
End Sub

---------------
Ah... thì ra là code chạy trên Excel 2007 ---> Quá rườm ra và hoàn toàn không thể chạy trên Excel 2003
Còn đoạn code dưới tôi vừa đưa lên thì Excel nào cũng chạy tuốt

 

[truongduchoa]

Bài của bạn Rosy84 bị lỗi rồi
Còn bài của bạn nDu thì qua hay. code ngắn và hiệu quả

 

[ndu96081631]

Bài của bạn Rosy84 bị lỗi rồi
Còn bài của bạn nDu thì qua hay. code ngắn và hiệu quả

Lổi là tại vì code đó được xây dựng bằng cách Record macro trên Excel 2007 ---> Chỉ khi bạn mở file trên Excel 2007 thì code mới chạy được ---> Vậy thôi chứ không phải code sai

 

[ninhdinhvan]

Mình có bản này nhờ các bạn giúp đỡ. Mình viết nhưng khi nhập liệu từ cột tài khoản chở về sau nó chạy chậm quá.http://www.2shared.com/file/6704677/ff7d224/Copy_of_Thang_0120091__version_3_.html

 

[huuthang_bd]

Mình có bản này nhờ các bạn giúp đỡ. Mình viết nhưng khi nhập liệu từ cột tài khoản chở về sau nó chạy chậm quá.http://www.2shared.com/file/6704677/ff7d224/Copy_of_Thang_0120091__version_3_.html

Không load được file của bạn và
Bạn nên lập Topic mới.