Chuyên Đề : Trích Lọc Sổ Cái

[quangkhai]

Ðề: Chuyên Đề : Trích Lọc Sổ Cái

Tại sao cái sổ nhật ký của bạn không theo mẫu:lienhoantat:

---------- Post added at 03:14 ---------- Previous post was at 03:13 ----------

k theo mẫu thì ai mà làm chả được, tinh tướng:anhhung:

[saudom]

Ðề: Chuyên Đề : Trích Lọc Sổ Cái

Vừa qua có rất nhiều bạn viết thư và nhắn tin hỏi tôi về các phương pháp trich lọc sổ cái từ bảng kê các chứng từ phát sinh hoặc từ nhật ký chung và nhờ giúp dùm trong các file cụ thể
Để "rộng đường dư luận" và cũng là để trao đổi và học tập thêm, nay tôi mở topic này đưa ra một ví dụ(một file cụ thể) để chúng ta cùng trao đổi và luận bàn nhé
Ai có chung mục đích xin nhấn Thank một cái để chúng ta cùng bàn

Dưới đây là file mẫu

Anh giúp em cái file này đi. Thay vì của anh là trích lọ cho sổ cái thì của em là trích lọc PNX từ CT.NHAP. Đường dẫn :
http://www.**************/forum/exce...truy-xuat-du-lieu-tu-1-sheet-khac.178399.html

[ngoinhacu1991]

Ðề: Chuyên Đề : Trích Lọc Sổ Cái

lam sao đẻ sao chép sang sổ cái đc .sao mình làm theo những bước của bạn ko đc,mình gưi file bạn hưỡng dẫn hộ mình với,cám ơn bạn rất nhiều

[stst575]

Ðề: Chuyên Đề : Trích Lọc Sổ Cái

Ôi trời đọc mà em chẳng hỉu gì là sao. Loạn hết nhìu cách quá, phải từ từ ngâm cứu thui. Cho em oánh dấu nha.

[baobinh]

Ðề: Chuyên Đề : Trích Lọc Sổ Cái

Bài 3 : Trích lọc bằng Find Methode

Để trích lọc, ta cũng có thể dung chức năng tìm kiếm trong Excel, cụ thể là ta dùng Find Methode (Edit Find… hoặc Ctr +F)
Mục đích của phương pháp này là dùng Find tìm kiếm trong hai cột tài khoản có và tài khoản nợ của NKC xem có tài khoản nào trùng với TK sổ cái thì nhặt đưa sang sổ cái. Về nguyên tắc chung, nó cũng gần giống như cách tìm bằng vòng lặp For…Next nhưng về tốc độ xử lý và tìm kiếm thì nhanh hơn rất nhiều

Mời các bạn xem file sẽ rõ

Em có dùng code này nhưng không được anh ạ, anh có thể chỉnh sửa chút cho phù hợp với file đính kèm của em được ko, hay anh xem file của em có bị lỗi gì ko mà em dùng code của anh không được anh nhỉ?

[tranchung1357]

Ðề: Chuyên Đề : Mình đề xuất với bạn 1 cách tiếp cận khác

Bạn xem trong file;

Ẩn các dòng không cần thiết sau mỗi tác vụ macro với tài khoản được lựa

Macro sự kiện tại ô [F2]

[changmin629x]

Ðề: Chuyên Đề : Mình đề xuất với bạn 1 cách tiếp cận khác

Bạn xem trong file;

Ẩn các dòng không cần thiết sau mỗi tác vụ macro với tài khoản được lựa

Macro sự kiện tại ô [F2]

Cảm ơn bạn.
File bạn làm rất đúng ý mình nhưng vấn đề là không hiểu sao cách này file lại chậm hơn cách của chủ thread hướng dẫn nhỉ, mình thấy nó load một lúc mới được, và nữa là... cột A làm số thứ tự như thế có tác dụng gì bạn nhỉ, nữa là không có cái cộng cuối cùng như hướng dẫn của chủ thread.
sao bên cạnh các hàm offset lại có các cái cộng thêm mày xanh ... nó có tác dụng gì vậy, mình đang mới chập chững học VBA nên có gì bạn đừng buồn cươi về những câu hỏi ngờ nghệch kiểu này nhé!
thanks bạn nhiều

[WorldMarket.vn]

Ðề: Hình như bạn xem nhầm macro rồi;

Macro sự kiện của mình nằm trong trang tính cơ mà;

& Đảm bảo với bạn là không thể chậm hơn macro của bạn hưởng thụ của ai đó đem lại;

/(/ó đây nè:

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Dim MyAdd [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String  [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [[/COLOR][COLOR=#0000BB]F2[/COLOR][COLOR=#007700]]) [/COLOR][COLOR=#0000BB]Is Nothing Then    Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"SoKTMay"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]H65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row    Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"8:245"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False    [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B9[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]236[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]ClearContents    Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"I2: J" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700])    If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then        MyAdd [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address        [/COLOR][COLOR=#007700]Do            [/COLOR][COLOR=#0000BB]With [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B244[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])                [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"D"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"C"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"H"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]9 Then Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= -[/COLOR][COLOR=#0000BB]1                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]9 Then Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]5 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"L"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]FindNext[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700])            [/COLOR][COLOR=#0000BB]End With        Loop [/COLOR][COLOR=#007700]While [/COLOR][COLOR=#0000BB]Not sRng Is Nothing [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]MyAdd    End [/COLOR][COLOR=#007700]If    [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]b8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]2    Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"245:" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

(*) Vậy bạn muốn tính tổng ở đâu thì lập sẵn công thức ở đó thôi;

(Hoặc trên dòng 8 hay nằm trên dòng cuối hay dòng dưới nó luôn hiện lên đó!)

:tanghoa:

[newmeta1]

Ðề: Hình như bạn xem nhầm macro rồi;

Macro sự kiện của mình nằm trong trang tính cơ mà;

& Đảm bảo với bạn là không thể chậm hơn macro của bạn hưởng thụ của ai đó đem lại;

/(/ó đây nè:

[COLOR=#000000]
Option Explicit[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub Worksheet_Change[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ByVal Target [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Dim Rng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]sRng [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Range Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Dim MyAdd [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String  [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Not Intersect[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700], [[/COLOR][COLOR=#0000BB]F2[/COLOR][COLOR=#007700]]) [/COLOR][COLOR=#0000BB]Is Nothing Then    Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"SoKTMay"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]H65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row    Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"8:245"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False    [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B9[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]236[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]ClearContents    Set Rng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"I2: J" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Find[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Target[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000BB]xlFormulas[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]xlWhole[/COLOR][COLOR=#007700])    If [/COLOR][COLOR=#0000BB]Not sRng Is Nothing Then        MyAdd [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address        [/COLOR][COLOR=#007700]Do            [/COLOR][COLOR=#0000BB]With [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B244[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700])                [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Row                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"D"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"C"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"H"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]9 Then Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= -[/COLOR][COLOR=#0000BB]1                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Column [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]9 Then Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 [/COLOR][COLOR=#007700]Else [/COLOR][COLOR=#0000BB]Col [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]0                [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]5 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Col[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"L"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value                Set sRng [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Rng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]FindNext[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700])            [/COLOR][COLOR=#0000BB]End With        Loop [/COLOR][COLOR=#007700]While [/COLOR][COLOR=#0000BB]Not sRng Is Nothing [/COLOR][COLOR=#007700]And [/COLOR][COLOR=#0000BB]sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Address [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#0000BB]MyAdd    End [/COLOR][COLOR=#007700]If    [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]b8[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]2    Rows[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"245:" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True End [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

(*) Vậy bạn muốn tính tổng ở đâu thì lập sẵn công thức ở đó thôi;

(Hoặc trên dòng 8 hay nằm trên dòng cuối hay dòng dưới nó luôn hiện lên đó!)

:tanghoa:

Bạn ah, file bạn gửi cho mình ở bài 26 đó quả thật là chậm hơn file của anh xuanthanh ở bài 7 của chủ đề này mà, bạn có thể down file về kiểm tra sẽ thấy kết quả ngay thôi. Còn nữa Maco này không giống với maco bạn gửi kèm file cho mình ở bài 26 bạn kiểm tra lại lần nữa coi.
Còn việc tính tổng thì bạn làm giống như chủ thread làm trình bày ở file đính kèm ở bài 7 thôi mà... bạn xem tham khảo giúp mình nhé.
thanks bạn nhiều nhé

[Hong_Linh]

Ðề: Trích Lọc Sổ Cái

Chậm hơn là do file đó của bạn có liên kết dữ liệu đến đâu đó mà thôi.

Macro thực thụ làm việc của mình nằm trong trang tính í (& nó là macro sự kiện)

Còn macro bạn fát hiện đó là mình ban đầu định sửa chữa lại cho gọn hơn; Nhưng sau đó mình đã bỏ í định đó & viết mới khác rồi.

Lần này mình có thêm tham biến để đo thời gian chạy của 2 macro; Chúng là tương đương:hawaii: