Tạo macro lọc dữ liệu

[yen_agribank]

Xin chào cả nhà, cho mình hỏi mình có 1 bảng cân đối giờ mình muốn lọc lấy nguyên tài khoản loại 3 thì làm như thế nào. Tại mới bắt đầu làm quen vba nên không biết nhiều xin cả nhà chỉ giúp

Mình muốn lọc lấy TK 41,43,427.. vi du roi copy sang 1 sheet khac
mong các mọi nguoi giup do

 

[Hai Lúa Miền Tây]

Cái này bạn không cần phải dùng macro filter vì mình thấy dùng Pivot cũng được rồi. Bạn muốn Filter TK nào thì cứ việc filter thôi
Bạn tham khảo trong file đính kèm nhé
Thân

 

[yen_agribank]

Mình muốn viết một hàm filter để mỗi loại Tk mình chỉ lấy TK loai 3 (ví dụ tk 1 thì lấy TK 1011,1019...) để khi chạy hàm đó thì sẽ tự lọc lấy các tk loại 3 này sang 1 sheet khác

 

[yenbai]

hê lô !yên _Agribank! mình cũng làm IT cho Ariban này ! cậu mốn lấy cái cân đối từ IPCAS2 tạo ra hả! ok cậu cần gì mail cho mình!mvquyenhl@gmail.com

Minh đã loc rồi còn thêm mấy cái đoạn để nó bỏ các hàng không có số liệu mình gửi sau nhá!xem có theo ý không?

 

[Hai Lúa Miền Tây]

Mình muốn viết một hàm filter để mỗi loại Tk mình chỉ lấy TK loai 3 (ví dụ tk 1 thì lấy TK 1011,1019...) để khi chạy hàm đó thì sẽ tự lọc lấy các tk loại 3 này sang 1 sheet khác

Ý bạn là chỉ lọc những số nào có 4 số thôi phải không ? Nếu không muốn dùng code thì bạn vẫn có thể dùng Pivot. Nhưng bạn phải thêm 1 cột phụ để tách ra 2 phần, 1 là số nào nhỏ hơn 3 thì bỏ, còn ngược lại thì lấy.
Bạn tham khảo file đính kèm nhe
Thân

 

[sealand]

Mình dùng Advance Filter. Macro như sau:

Sub loc()
    Sheet1.[A1:I307].AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=Sheet1.[K1:M4], CopyToRange:= _
        Range("A1"), Unique:=False
        Sheet1.Cells.Font.Name = ".VnTime"
End Sub
'===========================================
Sub xoa()
Sheet2.Range("a1").CurrentRegion.Clear
End Sub

Muốn thay đổi điều kiện loc thì sửa vùng K2 đến M4 của sheet "can doi thang2". Ví dụ lọc tk đầu 1 : gõ K2=1* ; gõ L3= 1* ; gõ M3= 1*

 

[huektvachviet]

Bạn đưa file lên đây để mọi người xem thử coi nó như thế nào, lọc tài khoản nào cột thứ mấy, đưa qua sheet nào nhé
Thân

Em có file này đính kèm.Em nhờ "Bác" giúp em lọc tất cả TK 111 sau đó tạo 1 sheet mới để làm sổ cái 111 nhé hoặc lọc tại chỗ bằng hàm dvvanced Filter nhé
Làm ơn ...hướng dẫn em kỹ..kỹ 1 chút nhé...dốt quá.
Cảm ơn nhiều...nhiều

 

[t02vn]

XIN HOI VE LENH HYPERLINK



------------------------------------------

1. Bạn đang cố download hay đăng bài trong khi chưa hoàn tất thủ tục đăng ký. ==> Hãy hoàn tất đăng ký của bạn bằng cách tìm email kích hoạt được gởi về ngay sau khi đăng ký, nếu không tìm thấy vui lòng email kích hoạt vui lòng nhấn vào đây để nhận lại link kích hoạt. Lưu ý tìm email kích hoạt trong cả hộp thư rác.
2. Quyền của account của bạn không đủ để vào trang này.
3. Bạn đang cố đăng bài trong khu vực đã bị khóa. Lưu ý rằng khu vực dành cho thành viên mới đã bị khóa hãy tìm chuyên mục thích hợp khác.

niCK dùng trên 2 năm và nick mới tạo cũng không viết bài mới đựoc.. kg rõ lý do-mắc dù đều kích hoạt mail.
-------------------------------------------------------------
XIN HOI VE LENH HYPELINK
---------------------------------
Ví du : C3 : là dữ liệu. www.bongda.com
Muốn viết 1 lệnh Comman dể có kết quả : liên kết được HYPERLINK: tại G2=HYPERLINK(C3)
Vậy muốn viết đó trong VBA thì viết như thế nào. Xin cảm ơn trưoc.

 

[ketoan100]

Giúp em sửa code so NKC

Em xin nhờ mấy anh giúp em sửa code của sổ NKC với ( từ Data -> NKC) em kg hiểu nó sai ở đâu ( file em xin) rồi làm theo nhưng kg biết sửa lỗi em cứ mò hoài như mà mấy ông mù vào hải đường lạ vậy. xin cú giúp !

 

[ndu96081631]

Em xin nhờ mấy anh giúp em sửa code của sổ NKC với ( từ Data -> NKC) em kg hiểu nó sai ở đâu ( file em xin) rồi làm theo nhưng kg biết sửa lỗi em cứ mò hoài như mà mấy ông mù vào hải đường lạ vậy. xin cú giúp !

Trong file bạn hỏi:

+ Sao không giống 1 nợ 1 có ( hay một nợ nhiều có cũng được)
+ sao không mang số dư của tháng trước sang
+ Sao nó cũng không xóa đường kẻ
+ Sao nó cứ nhảy 1 số nghiệp vụ đó hoài
+ Có thể định dạng theo ngày tháng mình tử động nhập hay không ?
+Cho phần diễn giải, số ct, số tiền, ngày ct... trùng lập lại luôn
+ Sao kỳ cục vậy ta ?
+ Nhờ mấy anh giải thích trong code giúp em để em hiểu với nhe

Đúng là chỉ ai làm kế toán mới hiểu bạn nói gì
Giá như bạn có thể nói sao cho bất kỳ ai cũng hiểu được thì hay quá!

 

[ketoan100]

Dù sau cũng cám ơn anh đã quan tâm bài của em !
anh hãy mở file ra xem đi, em đã làm xong hết rồi nhưng nó không hoạt động

 

[ThuNghi]

Dù sau cũng cám ơn anh đã quan tâm bài của em !
anh hãy mở file ra xem đi, em đã làm xong hết rồi nhưng nó không hoạt động

Bạn hãy demo 1 sh NKC bạn yêu cầu. Tôi cũng làm kế toán mà nhìn file bạn làm chưa hiểu.
Trong sh data nên có tiêu đề cột để dễ dàng trích lọc = AdFi.
Tôi thấy code này khá quen, nhưng bạn vận dụng lại nên tôi không hiểu
Và lưu ý nếu mà ngày trích NKC mà data không có thì nên báo Tháng này không phát sinh, chớ khôngsẽ báo cicurla.
Bạn thiết kế lại yêu cầu nhé.

 

[ketoan100]

Sửa lại theo mẫu

Em đã đem bài lên post lại theo mẫu rồi, mấy anh xem sử code lại giúp em tý nhé
Em cảm ơn trước. code này vẫn chạy nhưng mà em không hiểu nhiều về VBA nên không biết sửa
Thanks !

 

[ThuNghi]

Em đã đem bài lên post lại theo mẫu rồi, mấy anh xem sử code lại giúp em tý nhé
Em cảm ơn trước. code này vẫn chạy nhưng mà em không hiểu nhiều về VBA nên không biết sửa
Thanks !

Tôi hướng dẫn bạn sử nhé.
1/ AdFi thì theo tiêu thức trên là OK
2/ Phần số dư đầu thì dùng sumif cũng OK, và lưu ý sdđk Nợ= sdđk Có.
3/ Phần này nên nghiên cứu.
Bạn muốn từ Data: TKNo---TKCo---TienVN
Sang NKC
TKDU---SotienNo---SoTienCo
a/ Sau khi AdFi, bạn có 1 kết quả Data từ ngày - > ngày.
b/ Bạn nhân đôi dữ liệu, ie copy và dán xuống dưới.
- Phần 1 (gốc) bạn bỏ TKCo (TKNo=TKDU) và tienVN bạn sẽ chuyển sang SoTienNo
- Phần 2 (phần vừa copy) bạn bỏ TKNo (TKCo=TKDu) và tienVN bạn sẽ chuyển sang
SoTienCo
Bạn cứ làm thử. Thiết nghĩ NKC nên lấy cấu trúc như data sẽ thuận tiện hơn khi tạo sổ cái. Còn nếu bạn lấy số cái từ NKC như của bạn sẽ rất khó.
Chúc bạn làm được.
Bạn có thể tham khảo file sau

 

[ketoan100]

Cám ơn bạn nhiều lắm ! vì làm theo hướng dẫn ở file bạn đính kèm thì không giống mẫu trong QĐ 48/BTC nên công ty không chấp nhận. còn làm theo công thức thì file rất nặng (vì nhiều sổ ) nên tham khảo VBA xem có cách giải quyết gọn nhẹ cho file không và tiện lợi khi sử dụng nữa. Mình củng tham khảo thấy 1 file rất OK nhưng mẫu NKC và Data không giống nên không chọn cách làm theo. Bạn còn cách nào để giải quyết nữa không ? rất mong được sự giúp đỡ của bạn