Không sort theo cột ngày

[conmuaxanh01]

Các bác cho em hỏi trong shett BCTHANG tại sao em kg sort được theo ngày tháng năm?Em tô đen vùng dữ liệu nhưng vẫn kg thể nào sort được, cách khắc phục như thế nào các bác có thể chỉ em được kg???

 

[phucbugis]

Các bác cho em hỏi trong shett BCTHANG tại sao em kg sort được theo ngày tháng năm?Em tô đen vùng dữ liệu nhưng vẫn kg thể nào sort được, cách khắc phục như thế nào các bác có thể chỉ em được kg???

- để lập được công thức vừa lọc + vừa Sort e rằng ko dễ tí nào.
- do công thức bạn cài đặt theo kiểu đó ---> khi sort thì ko ăn thua gì cả ---> muốn khống chế thì bạn tắt chức năng tự động tính toán của Excel bằng cách: tại thanh Ribbon chọn FORMULAS - Calculation Options - chọn Manual (sau khi sort và làm báo cáo xong thì bạn chuyển lại thành Automatic để kích hoạt lại các công thức)
- để giải quyết bài toán của bạn thông thường mọi người vẫn dùng đến Advanced Filter, bạn tải file đính kèm --> run Macros, click nút Loc, sau đó bạn Sort các cột tùy ý.

 

[conmuaxanh01]

- để lập được công thức vừa lọc + vừa Sort e rằng ko dễ tí nào.
- do công thức bạn cài đặt theo kiểu đó ---> khi sort thì ko ăn thua gì cả ---> muốn khống chế thì bạn tắt chức năng tự động tính toán của Excel bằng cách: tại thanh Ribbon chọn FORMULAS - Calculation Options - chọn Manual (sau khi sort và làm báo cáo xong thì bạn chuyển lại thành Automatic để kích hoạt lại các công thức)
- để giải quyết bài toán của bạn thông thường mọi người vẫn dùng đến Advanced Filter, bạn tải file đính kèm --> run Macros, click nút Loc, sau đó bạn Sort các cột tùy ý.

Cho mình hỏi xíu nhé: Macro lọc đó làm sao mà gắn được dự liệu vào đúng từng cột bên sheet BCTHANG vậy bạn

 

[phucbugis]

Cho mình hỏi xíu nhé: Macro lọc đó làm sao mà gắn được dự liệu vào đúng từng cột bên sheet BCTHANG vậy bạn

bạn để ý code tại nút Lọc:
[GPECODE=vb]
Sub GPE_loc()
Sheets("CT").Range("A665000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("M2:N3"), _
CopyToRange:=Range("B6:K6"), _
Unique:=False
End Sub
[/GPECODE]
Sheets("CT").Range("A665000").AdvancedFilter <<--- vùng lọc tại sheet CT bao gồm luôn các header number (A66)

CriteriaRange:=Range("M2:N3") <<---- điều kiện lọc từ ngày đến ngày tại sheet BCTHANG, M2=N2=(3) --> tương ứng với cột (3) (cột Ngày CT tại sheet CT)

CopyToRange:=Range("B6:K6") <<---- copy đến vùng B6:K6, các ô trong vùng này phải có trong vùng A66 tại sheet CT (bạn có thể đảo vị trí các cột)

'----------
mình thấy sheet BCTHANG có 1 cột Tồn cuối mà sheet CT chưa có --> bạn phải cài sẵn cột Tồn cuối bên kia để hỗ trợ lọc hoặc tạo công thức trực tiếp vào Sub GPE_loc.

 

[Quang_Hải]

Các bác cho em hỏi trong shett BCTHANG tại sao em kg sort được theo ngày tháng năm?Em tô đen vùng dữ liệu nhưng vẫn kg thể nào sort được, cách khắc phục như thế nào các bác có thể chỉ em được kg???

Cách này cũng có cái hay riêng. Chỉ cần thay đổi tại F2 thì code chạy

Private Sub Worksheet_Change(ByVal Target As Range)
Dim thang, nam, nguon(), i, kq(1 To 50000, 1 To 10), k
If Target.Address = "$F$2" Then
    thang = Month([F2])
    nam = Year([F2])
    With Sheets("CT")
        nguon = .Range(.[A7], .[P65536].End(3)).Value
    End With
    For i = 1 To UBound(nguon)
        If Month(nguon(i, 3)) = thang Then
            If Year(nguon(i, 3)) = nam Then
                k = k + 1
                kq(k, 1) = nguon(i, 2)
                kq(k, 2) = nguon(i, 3)
                kq(k, 3) = nguon(i, 7)
                kq(k, 4) = nguon(i, 8)
                kq(k, 5) = nguon(i, 9)
                kq(k, 6) = nguon(i, 11)
                kq(k, 7) = nguon(i, 13)
                kq(k, 8) = nguon(i, 14)
                kq(k, 10) = nguon(i, 16)
            End If
        End If
    Next
    [B7:K1000].ClearContents
    If k Then
        [B7].Resize(k, 10) = kq
        [B7].Resize(k, 10).Sort [C6]
    End If
End If
End Sub