Hướng dẫn lọc tài khoản duy nhất.

[ManhHungMHNH]

Nhờ mọi người hướng dẫn giùm cách lọc tổng hợp lấy một cặp TK đối ứng duy nhất tự động (không dùng Advanced Filter...)

 

[cadafi]

Rõ là bạn tự làm khổ mình, Advanced Filter là công cụ sẵn có của excel mà không làm!

Tuy nhiên nếu bạn thích thì vẫn làm được, không dùng Advance filter, cũng chẳng cần dùng công thức, thậm chí chẳng cần dùng Code VBA. Bạn nghiên cứu thử công cụ Pivottable xem.

 

[hoangdanh282vn]

Nhờ mọi người hướng dẫn giùm cách lọc tổng hợp lấy một cặp TK đối ứng duy nhất tự động (không dùng Advanced Filter...)

Bạn xem thử cách dùng công thức này nha

 

[ndu96081631]

Nhờ mọi người hướng dẫn giùm cách lọc tổng hợp lấy một cặp TK đối ứng duy nhất tự động (không dùng Advanced Filter...)

Bạn nói không dùng Advanced Filter, vậy bạn muốn lọc bằng cái gì:
- Bằng công thức
- Bằng VBA
Nếu bằng công thức thì trên GPE đã có
Còn nếu bạn nói lọc bằng VBA, vậy tôi dùng phương pháp gì.. mặc tôi chứ... Miển sao khi bạn "bấm nút" 1 nhát, cho ra danh sách duy nhất cho bạn... Được chứ?
Và tôi cũng sẽ dùng Advanced Filter mà thôi
Code tôi dùng để lọc như sau:

Sub LocTK()
  Sheets("MHNH2").Range("A1").CurrentRegion.Resize(, 2).Clear
  With Sheets("MHNH1").Range("A1").CurrentRegion.Resize(, 2)
    .AdvancedFilter 2, , Sheets("MHNH2").Range("A1"), True
  End With
End Sub

 

[sealand]

Mình tham gia không dùng advance Fil. Bạn cứ bổ xung rồi mở trang DS kiểm tra thay đổi

 

[ndu96081631]

Mình tham gia không dùng advance Fil. Bạn cứ bổ xung rồi mở trang DS kiểm tra thay đổi

Ủa.. em đâu thấy code gì trong file nhỉ? Chỉ có mổi 1 đoạn:

Private Sub Worksheet_Activate()
    ActiveWorkbook.RefreshAll
End Sub

Không biết anh muốn Refresh cái gì? Bấm vào sheet MHNH2 thì code báo lổi

 

[QuocPhong]

Bạn ndu96081631 cho mình hỏi AdvancedFilter 2 trong đoạn code có nghĩa là gì vậy bạn?

 

[hoangdanh282vn]

Bạn ndu96081631 cho mình hỏi AdvancedFilter 2 trong đoạn code có nghĩa là gì vậy bạn?

2 ~ xlFilterCopy
1 ~ xlFilterInPlace

 

[ndu96081631]

Bạn ndu96081631 cho mình hỏi AdvancedFilter 2 trong đoạn code có nghĩa là gì vậy bạn?

Bạn xem hình này:

Nếu Record macro quá trình lọc ta được:

Sub Macro1()
    Sheets("MHNH1").Range("A1:B20").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=Range("A1"), Unique:=True
    Sheets("MHNH1").Select
End Sub

AdvancedFilter Action:=xlFilterCopy có thể viết thành AdvancedFilter 2
Và 1 macro nữa:

Sub Macro2()
    Range("A1:B20").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
End Sub

AdvancedFilter Action:=xlFilterInPlace có thể viết thành AdvancedFilter 1
Phỏng đoán thế này:Một cửa sổ có 3 tùy chọn thì tính từ trên xuống dưới, tùy chọn đầu tiên tương đương số 1, tùy chọn ở giữa tương đương số 2 và tùy chọn cuối cùng tương đương số 3
Tôi thường thí nghiệm để kiểm chứng, bạn cũng thử xem

 

[QuocPhong]

Sub LocTK()
  Sheets("MHNH2").Range("A1").CurrentRegion.Resize(, 2).Clear
  With Sheets("MHNH1").Range("A1").CurrentRegion.Resize(, 2)
    .AdvancedFilter 2, , Sheets("MHNH2").Range("A1"), [COLOR="Red"][B]True[/B][/COLOR]
  End With
End Sub

Đoạn code ngắn gọn quá.
Chữ True trong đoạn code có nghĩa là Unique records only đúng không bạn?

 

[sealand]

Xin lỗi, mình load nhầm file. Nay cải chính file kèm nha
Xin bổ xung: Trong trường hợp này theo mình advance Fil là nhanh gọn nhất.

 

[ndu96081631]

Sub LocTK()
  Sheets("MHNH2").Range("A1").CurrentRegion.Resize(, 2).Clear
  With Sheets("MHNH1").Range("A1").CurrentRegion.Resize(, 2)
    .AdvancedFilter 2, , Sheets("MHNH2").Range("A1"), [COLOR=Red][B]True[/B][/COLOR]
  End With
End Sub

Đoạn code ngắn gọn quá.
Chữ True trong đoạn code có nghĩa là Unique records only đúng không bạn?

Chính xác... Vì vậy mới nói: Nếu yêu thích bộ môn lập trình VBA, hãy "cày" cho thật nhiều...
Cứ nghĩ ra bài toán gì đó rồi tự giải quyết lấy, ban đầu là dùng Record macro, sau đó hãy vào chỉnh sửa lại sao cho gọn (bỏ những chổ .Select không cần thiết chẳng hạn)
Hãy làm thật nhiều vào, không tự hài lòng với những gì mình đang làm để ra được sản phẩm cuối cùng "đẹp" như 1 bài thơ hay!
Oh... Yehhhhhh
(nếu bạn biết rằng thuở ban đầu tôi viết code "củ chuối" như thế nào thì bạn sẽ tự tin 1 ngày nào đó bạn cũng làm được những gì tôi đang làm.. thậm chí còn hơn thế)

 

[ManhHungMHNH]

cảm ơn mọi người đã hướng dẫn mình/ cảm ơn nhiều mình mới vào nghề kế toán nên chưa biết nhiều a/hì