Kết quả 1 đến 10 của 10

Chủ đề: Nhờ xem giúp code macro sort dữ liệu

  1. #1
    duyhb1990 Guest

    Nhờ xem giúp code macro sort dữ liệu

    Chào các bác,
    Nhờ mọi người xem giúp em tạo code macro để tự động sort dữ liệu nhưng chưa được. Macro được tạo = cách record macro ra được đoạn code như sau, nhưng lúc chạy thì lại ko sort được như ý muốn (lỗi hàng thứ 2)


    Mã:
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    
    '
        ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
            ("H2:H25"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortTextAsNumbers
        With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End Sub

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    nhờ mọi người xem giúp chỗ này với

  3. #3
    abc.xyz Guest
    Trích dẫn Gửi bởi khoavd@
    nhờ mọi người xem giúp chỗ này với
    Ơ thế bạn muốn sort theo tiêu chí gì? lớn tới bé? bé tới lớn?
    P/s: mà vùng sort của bạn có cả dữ liệu bị lỗi nữa..........

  4. #4
    vanthinh1088 Guest
    Mã:
    Sub Macro1()
     Sheet1.Range("A3:H" & Sheet1.[H1000000].End(xlUp).Row).Sort Sheet1.[H3], xlAscending
     End Sub

  5. #5
    hungnt021849 Guest
    Trích dẫn Gửi bởi ndu96081631
    Vầy thử xem:

    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    thanks bro nhiều code chạy okie rồi. Nhưng có bro nào giải thích giúp em tại sao em sử dụng record macro tạo ra đoạn code ở #1 mà lúc chạy thì ra kq không đúng vậy?

  6. #6
    banhmysaigon Guest
    Trích dẫn Gửi bởi khoavd@
    đã làm được theo ct =-A1, do ko theo dõi thường xuyên được nên ko để ý. Hỏi chút xíu mà mấy bác nhiều sao chém kinh quá thôi mai mốt tự mò cho chắc [IMG]images/smilies/a02.gif[/IMG]
    Thế bạn tự mò chưa được à [IMG]images/smilies/a01.gif[/IMG]

  7. #7
    leequyetkt Guest
    Trích dẫn Gửi bởi huuthang_bd
    Thế bạn tự mò chưa được à [IMG]images/smilies/a01.gif[/IMG]
    cảm ơn bác đã quan tâm & tìm kiếm bài của mình

  8. #8
    aaronmax Guest
    Trích dẫn Gửi bởi hpkhuong
    Ơ thế bạn muốn sort theo tiêu chí gì? lớn tới bé? bé tới lớn?
    P/s: mà vùng sort của bạn có cả dữ liệu bị lỗi nữa..........
    sort cột H từ bé tới lớn bro ơi, nhưng chạy code thì dữ liệu ko sort được

  9. #9
    bevll Guest
    Trích dẫn Gửi bởi khoavd@
    sort cột H từ bé tới lớn bro ơi, nhưng chạy code thì dữ liệu ko sort được
    Vầy thử xem:

    Mã:
    Sub Test()
      With Sheet1.Range("A2:H1000")
        .Sort .Cells(1, 8), xlAscending, Header:=xlYes
      End With
    End Sub

  10. #10
    phivu92 Guest
    Trích dẫn Gửi bởi khoavd@
    cảm ơn bác đã quan tâm & tìm kiếm bài của mình
    Tôi đâu có tìm kiếm bài của bạn, tôi là người tham gia trong topic đó.

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •