Lọc dữ liệu báo cáo trên Excel bằng VBA (Áp dụng phương pháp mảng)
HTML-код
- Опубликовано: 28 авг 2024
- Lọc dữ liệu báo cáo trên Excel bằng VBA (Áp dụng phương pháp mảng)
Áp dụng phương pháp này vừa nhanh vừa chính xác!
Hy vọng các bạn có được tuyệt chiêu này để áp dụng vào file của mình
Tải file thực hành: drive.google.c...
-----------------------------
▶ Phần mềm bán hàng chuyên nghiệp: bit.ly/3wTDMn6
▶ Viết phần mềm giá rẻ, xài trọn đời, dễ sử dụng, dành cho các cửa hàng như: Bán lẻ, Nhôm kính, Nhà hàng, Cafe, quán nhậu, Karaoke, Nhà nghỉ, Khách sạn,..... Tất cả các lĩnh vực.
▶ Viết phần mềm Excel theo yêu cầu.
▶ Dạy Tin học Online Học phí ưu đãi.
Liên hệ công việc: 0906864860 (Call, Zalo)
Fanpage: tinhocd...
Website: tinhocdongphuon...
______________________
Các list video bài giảng trên kênh:
▶ Học Excel cơ bản: • Học Excel Cơ Bản
▶ Kiến thức hàm Excel: • Kiến thức HÀM Excel Cơ...
▶ Luyện hàm Excel: • Luyện Hàm Excel
▶ Excel thực tiễn: • Excel Thực Tiễn
▶ VBA cho người không biết lập trình: • VBA Cho Người Không Bi...
▶ Kiến thức vi tính: • Kiến Thức Sử Dụng Vi Tính
▶ Phần mềm bán hàng TPSoft: • Hướng Dẫn Sử Dụng Phần...
#TinHocDongPhuong #locbaocao #vba
Cảm ơn bạn về clip rất bổ ích này cũng như rất nhiều clip khác. Cảm ơn bạn đã dày công nghiên cứu và nhiệt tình chia sẻ với cộng đồng những sản phẩm chất xám này. Cảm ơn bạn về cách hướng dẫn rất tận tình và rất giản dị dễ hiểu.
Cảm ơn tác giả, bài giảng rất dễ hiểu.
Chúc anh nhiều sức khỏe.
Mình ghép các code mà bạn chia sẻ kết hợp với AI fix lỗi và cho ra Sheet rất hữu dụng. Rất cảm ơn bạn, Cảm ơn Tin Học Đông Phương!
Đúng là đoạn code trên đang lỗi, mình đang nhờ AI fix mà vẫn chưa được, bạn có thể chia sẻ đoạn mã của bạn với mình được không? Thanks!
Cám ơn Tác giả, video hướng dẫn rất chi tiết và dễ hiểu. Mong kênh của bạn sẽ đạt được nhiều follow
Rất hữu ích cho công việc thực tế, và nếu như tạo sheet mới thì bộ lọc đó phải chỉnh sửa lại hơi mệt, vậy anh viết lại sao cho khi tạo sheet mới mà bộ lọc vẫn hoạt động mà ko cần chỉnh sửa và in luôn thì tuyệt vời ạ.
Thầy dạy quá hay, thầy viết hóa đơn nhập hàng nữa là ok. Nói chung e theo thầy nên cũng tạo dc nhập xuất tồn, in hóa đơn, bảng tổng hợp báo cáo bán hàng, lọc dữ liệu....và cũng đang đưa vào sử dụng. Nhưng e cũng chưa ưng ý. Kinh chúc thầy luôn luôn khỏe mạnh và hạnh phúc, để chúng e còn nhiều sự giúp ích của thầy.
Mình học Mảng mãi k hiểu. Hôm nay, mình mới xem bài giảng này. Đã hiểu đến 80% của bài. tuyệt vời!!!!
Còn nhiều bạn không hiểu lắm, bạn chia sẻ để mọi người cùng học nhé! Cám ơn bạn.
@@TinHocDongPhuong chắc chắn là sẽ chia sẻ cho bạn bè, đồng nghiệp rồi!
Anh làm thêm bài áp dụng mảng cho Listbox trong UserForm luôn đi anh!
Anh hướng dẫn lọc theo Tên Khách hàng theo phương thức nhập trực tiếp vào ô C4, tìm kiếm giá trị tương đối của tên khách hàng ->xuất ra bảng
Anh chia sẻ cách lọc dữ liệu trên excel nhanh, tiết kiệm thời gian
Kiến thức rất hữu ích và áp dụng ngay vào thực tế. Cảm ơn ad rất nhiều. Chúc kênh ngày càng phát triển.
Cám ơn bạn!
Nghe bạn làm và diễn giải rất hay, tuy nhiên mình làm y chang bạn mà vẫn chưa làm được. hic
Thầy dạy rất hay dễ hiểu
em cã học vằ làm thêm tạo Tao_list với Name = List_KH
'____________________________________________________
'Module1
Public Sub Tao_List()
Dim Arr(), K As Long
Arr = Sheets("Data").Range("H4", Sheets("Data").Range("H65000").End(xlUp)).Value
K = UBound(Arr)
With Sheets("DSKH")
.Range("A4:A1000").ClearContents
.Range("A4").Resize(K) = Arr
.Range("A4").Resize(K).RemoveDuplicates Columns:=1
.Range("A4").Resize(K).Sort Key1:=.Range("A4"), Order1:=xlAscending
.Range("A4", .Range("A4").End(xlDown)).Name = "List_KH"
End With
End Sub
'_________________________________________
Tại Sheet"Baocao"
Thêm Code
'-------------------------------------------------------------------------------------------
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4")) Is Nothing Then
If Target = Empty And Range("C4") = "" Then
Target.Value = Range("J1").Value
End If
Tao_List
LocBaocao
End If
If Not Intersect(Target, Range("B3:B4")) Is Nothing Then
Tao_List
LocBaocao
End If
End Sub
Thếm khách hàng List tự động thêm vào không cần cập nhật mới
Cảm ơn bạn, hướng dẫn này giúp mình rất nhiều
Cảm ơn anh, bài rất hay , mong rằng a ra nhiều bài hay và áp dụng công việc, luôn ủng hộ
Cám ơn bạn!
Kênh này rất hay, toàn những clips hữu ích cho công việc :)
Nhờ tham khảo Clip này mà mình viết được nhiều đoạn code export báo cáo hay ho bằng Array mà không cần dùng code Advanced filter nữa 🥰🥰🥰
Video rất hay và bổ ích tuy nhiên nếu anh thêm lệnh tự động thêm dòng hoặc xó dòng thì hoàn thiện hơn
Cảm ơn các Video của thầy, nhờ những cách giải thích cũng như là thực chiến mà em cũng ghép nối được 1 file để quản lý công việc bớt đi các thao tác lặp đi lặp lại. Chúc thầy có nhiều sức khỏe !. Tiện thể thầy có thể đưa ra hướng giải quyết giúp em vấn đế này với. Ví dụ em có 1 sheet(DATA) có các trường như "Tên đơn vị, bộ phận, tên khách hàng, nội dung vật tư, đơn giá, số lượng, thành tiền, trạng thái (Chưa thanh toán hoặc là Đã thanh toán)". Ở sheet Lọc dữ liệu đã lọc ra các trường và chạy rất chính xác. ở Sheet lọc dữ liệu em sửa hay thay đổi nội dung và em muốn nó tự động thay đổi nội dung ở sheet(DATA) . Mong thầy hướng dẫn, một lần nữa cảm ơn thầy rất nhiều !!
B chuyển qua Private Sub Worksheet_Activate và call sub lọc dữ liệu của b thử xem
hữu ích thật thầy ạ. em làm được rồi. cám ơn thầy nhiều lắm!
mình làm y chang mà cứ báo " ko có kết qua"
Video hướng dẫn rất hay. Cảm ơn anh nhé
Thay điều kiện lọc bàng 1 combobox để tìm kiếm thông tin thì sẽ tiện hơn nữa bạn ạ
Ngắn gọn, dễ hiểu, chạy nhanh. Mà anh có thể thêm lọc từ nhiều sheets data được không. Cảm ơn anh nhiều.
Cảm ơn anh vì bài học quá tuyệt vời. Em muốn lọc tương tự như này mà trên google sheets thì làm ntn anh nhỉ
rất hay, cảm ơn chủ kênh
làm sao để làm được 1 đơn hàng 3-4 món bên cột tên hàng nhưng chỉ hiện 1 dòng tên khách hàng thôi á thầy, nhiều dòng tên khách hàng quá nhìn hơi rối, mong thầy ra clip , cảm ơn thầy rất nhiều
32:40 change
Nếu thêm điều kiện lọc Nhân viên bán hàng nữa thì chạy vòng lọc điều kiện ntn vậy. Tks
Thầy có thể làm Seri VBA cho ngành đầu tư tài chính chứng khoán được không ạ, cảm ơn thầy rất nhiều
đỉnh quá luôn
Cảm ơn bạn
Nếu em muốn lọc tyheo khách hàng và giá trị thành tiền lớn nhất thì làm như nào ạ.
VD : Khách hàng a có 3 đơn hàng nhưng cần lấy ra đơn có giá lớn nhất ạ
Dạ, chân thành cảm ơn anh rất nhiều. cho em hỏi tí ạ! Em viết code theo anh khi chạy code không báo lỗi gì nhưng không xuất được kqua. em không hiểu nguyên nhân "chỉ báo là "không tìm thấy kết quả nào". Mong được sự hỗ trợ từ anh.
Cho e hỏi làm sao bấm vào ô ngày tháng thì hiện ra được lịch như của thầy vậy. Cám ơn nhiều
Mình viết xong cod lúc chạy báo " không tìm thấy kết quả nào" dù mình để ngày từ đầu đến cuối bảng Data rồi, mong được giải đáp từ bạn. Mình cảm ơn.
chỗ shnguon em ko cần điều kiện ngày chỉ cần chạy luôn tên khách hàng thì làm sao anh
Thầy chỉ giúp làm sao thay điều kiện khách hàng tại cell C4 bằng điều kiện khách hàng range("C4:C10") ạ. Em xin cảm ơn.
có dạy vba không ạ
Cảm ơn Bạn đã chia sẻ kiến thức rất hay ! Bạn có thể đính kèm File ban đầu lên cho ae thực hành không
Đã đính kèm file thực hành!
Code VBA nạp data vào Mảng rồi mới lọc trên mảng rất hay ạ. Tuy nhiên e muốn hỏi Thầy chút là dữ liệu nguồn em có khoảng 5000 đến 7000 dòng thì việc Vòng lặp for để duyệt qua các phần tử liệu có khả thi không ạ? Hiện tại em đang sử dụng phương pháp Filter theo cột và copy các dòng thoả mãn đk lọc. Em xin thầy cho ý kiến ạ. E cảm ơn!
100k dòng vẫn nhanh như thường bạn ạ.
làm giống như bạn hướng dẫn nhưng khi bấm xem lại hiện ra chữ khong tim thay ket qua
cảm ơn bạn đã chia sẻ kiến thức, Cho mình hỏi chút
Ví dụ cái chỗ dán kết quả vào sheet Báo cáo thì cứ phải dùng .Range("A8").Resize(a,8).value = kq hay là có cách nào khác không? ví dụ thay vì resize thì viết luôn là .Range("a8:H"& lr).value = kq có được không v...v?
Đc b nhưng thường ngta dùng resize cho gọn thay vì phải tìm lr_sheet đó, tùy b thấy cái nào tiện thì làm thôi
Cảm ơn clip của bạn!! Cũng theo cách này, mình muốn thao tác trên một userform và kết quả báo cáo hiển thị trên đó mà ko phải trên sheet excel, bạn hd giúp mình nhé! Cảm ơn b nhiều!
Bài này Phương chưa ra bạn ạ!
thầy ơi nếu em muốn lọc theo danh sách nằm ngang trên dòng tiêu đề thì code ntn?
Nếu file nguồn để trên máy chủ trong mạng Lan và file báo cáo dưới máy trạm thì làm có đc k vậy?
Dùng mảng, mình có thể chạy tính tổng theo mã KH và mã SP dc không anh.
Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ
bạn cho hỏi khi lọc dữ l mà dữ liệu từ tên hàng đến thành tiền nó có 4 hàng
Thầy ơi sao em lọc được dữ liệu rồi nhưng sao nó bỏ dòng theo số thứ tự vậy thầy, ví dụ như số thứ tự của em là 2 thì nó sẽ bỏ 2 dòng xong nó mới dán dữ liệu vào. thầy giúp em với, em cảm ơn thầy
đoạn code này thì mình chỉ tìm được nếu có điều kiện là có từ ngày đến ngày, không muốn tìm theo ngày mà chỉ muốn tim theo tên thì nó lại không chính xác. Mình đã chèn thêm một đoạn code như thế này vào, nhưng nó vẫn chạy không chính xác. Bạn có thể hướng dẫn cho mình được không. Cám ơn.
Đoạn code như bên dưới
For i = 1 To UBound(arr, 1)
If KhachHang = shBC.Range("I1").Value Then
dk = arr(i, 2) >= TuNgay And arr(i, 2) = TuNgay And arr(i, 2)
Thầy giúp em trường hợp muốn tạo thứ tự 1-N trước số hợp đồng cho Báo cáo. Cảm ơn thầy!
Em vẫn không hiểu sao mình nhập theo cách hướng dẫn áp dụng bài khác mà sao nó cứ báo lỗi. Nhờ Thầy xem hộ đc ko ạ
vậy, nếu ta không lập trước tiêu đề cột trong sheet báo cáo, mà lấy luôn trong VBA thì làm sao?
ban nhan viet phan mem bao nhieu vay a
Cám ơn thầy chia sẻ, em thắc mắc làm sao sau khi lọc cái data kèm video của thầy mấy cái cột số hóa đơn tên khách hàng nó lặp lại nhìn rối mắt . làm cách nào để hiện lên rỏ ràng dễ nhìn như trong video ở phút 2:20 đc như thầy vậy ạ mong thầy chia sẽ ạ
Em dùng conditional formating để ẩn những dòng dữ liệu trùng nhau là được em
cám ơn thầy, bài hay lắm thầy giống ý e đang muốn làm cho công việc của e. Và e cũng làm theo thầy nhưng sao khi bấm lệnh "Xem" thì Code chạy nhưng không lọc ra dữ liệu, nhưng khi chuyển qua sheet data bấm Run ( F8) trong code thì sheet báo cáo lại ra kết quả ạ. Vậy là như thế nào ạ.
Vì lúc khai báo range e ko chỉ định rõ tên sheet, thì nó mặc định activesheet, nên chuyển qua sheet khác code chạy ko có kết quả.
Thầy giúp mình code lọc dữ liệu từ nhiều sheet có điều kiện ạ. cảm ơn thầy. số lượng sheet động
A làm file kiểm kê sản phẩm , xuất file tồn trên phần mềm , file kiểm kê thực tế nhóm các mã chùng nhau lọc số liệu , đối chiếu kết quả của file kiểm kê thực tế với file tồn trên phần mềm
Ok em. rảnh a làm nhé!
dạ cảm ơn anh đã chia sẽ, em chưa hiểu biến "a" trong code này có ý nghĩa gì vậy anh ?
Biến a cộng dồn số dòng trích xuất vào mảng kq, để show tổng dòng với Resize(a,..)
cho em hỏi là, cái số HĐ làm sao cho nó gôm lại thành 1 á anh
Phía dưới có câu trả lời của tác giả kìa bro, 1 là nó chỉ hiện 1 hđ nhưng có nhiều mặt hàng 2 là chỉ hiện 1 hđ nhưng chỉ lấy đc tổng sl, tổng thành tiền thôi k lấy đc tên sp đâu
không liên quan nhưng Cho mình hỏi tí: Mình có 1 ô dữ liệu A1 là 5/10. Vậy ở ô B1 muốn tính kết quả % của ô A1 thì có cách nào để tính tỷ lệ không vậy (muốn kết quả sẽ bằng 50% ở ô B1), mình cảm ơn
chọn về định dạng phần trăm là được mà
tại sao ở ô "C4" khi e dùng hàm Vlookup để tự nhảy giá trị thì bảng lại không tự cập nhật tự động dữ liệu ạ, mong mọi người chỉ giáo ạ
Không hiểu công thức của bạn như thế nào
Như mình lọc thêm điều nữa nữa là mã hàng, khách hàng, từ ngày đến ngày nữa thì trong vba mình viết sao ạ. Em cảm ơn !
Phút thứ 20:00 đúng với yêu cầu của b đấy, mã kh = kh rồi còn gì
Anh cho hỏi, code mình viết như thầy mà sao ấn nút XEM lại không hiện lên thông tin gì là sao nhỉ?
Sub LocBaoCao()
Dim arr(), kq(), dk As Boolean, i As Long, a As Long, lr As Long
Dim shNguon As Worksheet, shBC As Worksheet
Dim TuNgay As Date, DenNgay As Date, Khachhang As String
Set shNguon = ThisWorkbook.Sheets("Data")
Set shBC = ThisWorkbook.Sheets("BaoCao")
TuNgay = shBC.Range("b3").Value
DenNgay = shBC.Range("b4").Value
Khachhang = shBC.Range("c4").Value
With shNguon
lr = .Range("A" & Rows.Count).End(xlUp).Row ' tim dong cuoi
arr = .Range("A4:H" & lr).Value
ReDim kq(1 To UBound(arr, 1), 1 To 8)
For i = 1 To UBound(arr, 1)
If Khachhang = shBC.Range("J1").Value Then ' neu khach hang la tat ca
dk = arr(i, 2) >= TuNgay And arr(i, 2) = TuNgay And arr(i, 2) 0 Then
.Range("A7").Resize(a, 8).Value = kg
Else
MsgBox "Khong tim thay ket qua nao!", vbInformation
End If
End With
End Sub
Bạn xem lại tại Cột C4; B3; B4 bạn đã nhập đúng chưa đặc biệt B3:B4 đã có giờ chưa
.Range("A7").Resize(a, 8).Value = kg (sai chỗ "=kg", phải là .Range("A7").Resize(a, 8).Value = kq)
Minh đang viết điều kiện lọc chỉ cần hiện theo khách hàng hoặc tất cả luôn bỏ biến từ ngày đến ngày mà sao ko chạy bạy?
Dim arr(), kq(), dk As Boolean, i As Long, a As Long, Lr As Long
Dim shNguon As Worksheet, shBC As Worksheet
Dim Tinh As String, Loaivatu As String
Set shNguon = ThisWorkbook.Sheets("DATA")
Set shBC = ThisWorkbook.Sheets("DS NCCVT")
Tinh = shBC.Range("D2").Value
Loaivatu = shBC.Range("D3").Value
With shNguon
Lr = .Range("b" & Rows.Count).End(xlUp).Row ' tim dong cuoi
arr = .Range("b4:H" & Lr).Value
ReDim kq(1 To UBound(arr, 1), 1 To 8)
For i = 1 To UBound(arr, 1)
If Tinh = shBC.Range("I1").Value Then ' neu khach hang la tat ca
dk = arr(1, 2) = Tinh
End If
If dk = True Then
a = a + 1
kq(a, 1) = arr(i, 1)
kq(a, 2) = arr(i, 2)
kq(a, 3) = arr(i, 3)
kq(a, 4) = arr(i, 4)
kq(a, 5) = arr(i, 5)
kq(a, 6) = arr(i, 6)
kq(a, 7) = arr(i, 7)
kq(a, 8) = arr(i, 8)
End If
Next i
End With
With shBC
.Range("A7:H1000000").ClearContents
If a > 0 Then
.Range("H7").Resize(a, 8).Value = kq
Else
MsgBox " Khong tim thay ket qua nao"
End If
End With
End Sub
Khai báo sai biến kìa bạn, arr () as varian chứ,
A cho e hỏi là làm thế nào để file excel ko bị chậm lag khi có nhiều sheet và dữ liệu ạ
Đó là cả một quá trình làm và rút ra kinh nghiệm. Nhiều sheet ko làm chậm file, định dạng ko đồng bộ hay làm chậm file, với quá nhiều công thức trong file dễ làm bị lag khi tính toán lại.
E liên hệ: 0906864860. Thầy Phương sẽ hướng dẫn tận tình, nhưng có phí nhé!
Cho xin code đi anh, em gõ sai chỗ nào mà ko chạy đc . pls help me
Add cho hỏi mình làm file Công cụ dụng cụ khách sạn phân theo các loại như: linen, flatware, glassware, bar tool, Other... trong khi file tổng kế toán không phân theo các loại như mình. Mình muốn lọc dữ liệu file kế toán giống như file mình làm phân theo loại như trên để xem trên lệch thì làm thế nào cho nhanh, thanks!
2 dữ liệu phải chuẩn hóa bằng code ( mã ) mới đối chiếu được anh, anh có thể thống nhất với kế toán mã công cụ dụng cụ, tài sản thì mới làm được
@@vanhungnguyen4702 có mã code nhưng ko sắp xếp như nhau được bạn ơi...
Kính mong thầy giúp. Mình có 15 lớp học sinh ở 15 sheet. Hàng tháng phải tổng họp lọc danh sách học sinh yếu ra 1 sheet có cấu trúc bảng (3 kỹ năng: Đọc, Viết, Toán và được đánh giá mỗi tháng 1 cột trong 9 tháng) giống nhau. Số lớp thay đổi theo hàng năm. Kính mong thầy giúp code để tổng hợp ạ. Trân trọng cảm ơn Thầy.
Em gửi file dữ liệu qua zalo, thầy làm video hướng dẫn nhé!
0906864860
@@TinHocDongPhuong Vâng thầy
@@TinHocDongPhuong Em gửi thầy file rồi. thầy giúp em ạ
@@TinHocDongPhuong Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ
cho em xin đoạn code được không ạ
cai này dùng pivot table ok hơn không anh?
Pivot Table nhanh, nhưng không tùy biến linh hoạt bằng code VBA bạn.
Anh cho em hỏi mình tính toán theo lọc thì tính như thế nào
E dùng hàm Subtotal nhé! Em tham khảo video này: ruclips.net/video/4eqJGFR3RgY/видео.html
Cho e xin code với ạ
Em xem video của anh em thấy có thể áp dụng vào công việc của em. Bên em tất cả công việc hàng ngày em phải lấy từ Database. Hiện giờ hằng ngày em phải dùng scrip SQL để lấy dữ liệu mình cần, Sau đó em coppy result từ SQL bỏ vào excel để tô màu theo từng công việc cụ thể rồi gửi mail. Giờ em đang muốn dùng VBA trong excel, Muốn chọn ngày rồi tự động nó trả kết quả vào tô màu cho mình luôn. Anh có giải pháp nào không anh?
Khó quá không làm được thầy ạ
Phần mềm này bán sao a
Em liên hệ 0906864860 nhé!
sao 1 số video quyền riêng tư vậy Anh học lỡ dỡ sao hiểu được ạ
A đã fix lỗi và đã mở lại! Chúc em học tốt!
chào add có thể cho mình tt để liên hệ ko?
Bạn liên hệ sđt 0906864860 nhé!
em làm theo hướng dẫn thì vẫn chạy, nhưng phải chờ 10-15 giây mới hoàn thành đc là bị vấn đề gì vậy anh
Dữ liệu của em bao nhiêu dòng?
@@TinHocDongPhuong dạ em lấy file mẫu của anh ra làm luôn ah anh!
Mình viết xong cod lúc chạy báo " không tìm thấy kết quả nào" dù mình để ngày từ đầu đến cuối bảng Data rồi, mong được giải đáp từ bạn. Mình cảm ơn.
Chao Tin Học Đong Phương - Tôi làm theo chỉ dẫn của bạn thì thấy báo lỗi như sau :
If dk = True Then ( Lỗi tai "=" là Type mismatch - Bạn HD cách sửa - Thanks)
a = a + 1
kq(a, 1) = arr(a, 1)
kq(a, 2) = arr(a, 2)
Thiếu End if rồi
@@user-ei4gi8uq5y e chưa khai báo biến a.
Hồ sơ dữ liệu trên 100.000 dòng và 40 cột viết chắc chết
Nếu lọc cùng lúc nhiều cột thì có phương pháp khác. Còn 100.000 dòng thì code chạy vẫn nhanh đó bạn.
Dạ anh ơi, cách để mình ẩn tab công cụ ở phía trên bằng Code được không anh??
Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ