Lọc dữ liệu báo cáo trên Excel bằng VBA (Áp dụng phương pháp mảng)

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.com/file/d/1TOSK...
-----------------------------
▶ 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: tinhocdongphuong
Website: tinhocdongphuong.com
______________________
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

[@phuocnhannv]

Video hướng dẫn rất hay. Cảm ơn anh nhé

[@HoangTran-dc7od]

Cảm ơn tác giả, bài giảng rất dễ hiểu. Chúc anh nhiều sức khỏe.

[@bichngoctruong3677]

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.

[@duongtan3333]

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.

[@Chi_Vu]

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ộ

[@TinHocDongPhuong]

Cám ơn bạn!

[@lehongphong4247]

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.

[@TinHocDongPhuong]

Cám ơn bạn!

[@atthanhthanh4385]

Cảm ơn bạn, hướng dẫn này giúp mình rất nhiều

[@thuconguyen2266]

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

[@nghialevan5975]

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 ạ.

[@HungPham-vz4ny]

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

[@truclinhlamthi9752]

hữu ích thật thầy ạ. em làm được rồi. cám ơn thầy nhiều lắm!

[@ketoanmyson6405]

mình làm y chang mà cứ báo " ko có kết qua"

[@chimzunzun007]

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 🥰🥰🥰

[@binbintv2596]

rất hay, cảm ơn chủ kênh

[@hungannnguyen1235]

Cảm ơn bạn

[@kevintim6671]

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!

[@hoangphamvan3639]

Đú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!

[@tranvanbinh2660]

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

[@kienthucth8993]

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ỉ

[@khamphacuocsontv2020]

Anh chia sẻ cách lọc dữ liệu trên excel nhanh, tiết kiệm thời gian

[@KhanhPham-ij2hw]

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.

[@khato9720]

đỉnh quá luôn

[@dinhhaivu3228]

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

[@tientuando2653]

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 ạ

[@ucthanhnguyen1118]

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!!!!

[@TinHocDongPhuong]

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.

[@ucthanhnguyen1118]

@@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!

[@ucthanhnguyen1118]

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

[@NoName-ir7gv]

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

[@TinHocDongPhuong]

Đã đính kèm file thực hành!

[@Focus7sss]

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

[@giaphuocle835]

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.

[@user-hw5dl6tq3x]

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 !!

[@TuanLe-qz2zg]

B chuyển qua Private Sub Worksheet_Activate và call sub lọc dữ liệu của b thử xem

[@nguyenqt99]

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!

[@KhanhPham-ij2hw]

Dùng mảng, mình có thể chạy tính tổng theo mã KH và mã SP dc không anh.

[@hoanglamlci]

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

[@phamduchiep9738]

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

[@anhnhaque2443]

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.

[@lechidiep]

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?

[@tuannguyenanh9450]

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

[@user-kg8ox9pl2t]

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?

[@focusyourself3691]

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.

[@dinhkhainong]

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 ạ

[@hoanglamlci]

Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ

[@zhongbuco6366]

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

[@nguyennguyen-ph7zp]

32:40 change

[@thanhhoangnguyen5960]

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 ?

[@KhanhPham-ij2hw]

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,..)

[@nguyenlevinh4087]

có dạy vba không ạ

[@hongquang453]

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?

[@TuanLe-qz2zg]

Đ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

[@MrCodai76]

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?

[@ose4441]

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!

[@TinHocDongPhuong]

Bài này Phương chưa ra bạn ạ!

[@DatPham07]

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

[@huynhngocbich532]

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

[@manhhoang3205]

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!

[@TinHocDongPhuong]

100k dòng vẫn nhanh như thường bạn ạ.

[@vanthangpham793]

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

[@user-fg1rx8ut3f]

ban nhan viet phan mem bao nhieu vay a

[@anhkhoao]

Cách kết xuất dữ liệu trên công nợ ra pdf như nào ah

[@nguyenthao7948]

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 ạ

[@dungle-rt7yd]

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

[@TinHocDongPhuong]

Ok em. rảnh a làm nhé!

[@31HSlevan]

Cho xin code đi anh, em gõ sai chỗ nào mà ko chạy đc . pls help me

[@lehung4951]

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 ạ

[@TinHocDongPhuong]

Đó 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é!

[@phucnguyen-ym2cz]

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!

[@vanhungnguyen4702]

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

[@phucnguyen-ym2cz]

@@vanhungnguyen4702 có mã code nhưng ko sắp xếp như nhau được bạn ơi...

[@UyenKyRoblox]

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ẽ ạ

[@TinHocDongPhuong]

Em dùng conditional formating để ẩn những dòng dữ liệu trùng nhau là được em

[@soulrubber5502]

đ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)

[@nguyenquanghuy9213]

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

[@hanhan9741]

chọn về định dạng phần trăm là được mà

[@Sy_NT]

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 ạ

[@tranvanbinh2660]

Không hiểu công thức của bạn như thế nào

[@harddeepnetworking1734]

cai này dùng pivot table ok hơn không anh?

[@TinHocDongPhuong]

Pivot Table nhanh, nhưng không tùy biến linh hoạt bằng code VBA bạn.

[@baduongpham6256]

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

[@quangnguyenngoc4244]

Anh cho em hỏi mình tính toán theo lọc thì tính như thế nào

[@TinHocDongPhuong]

E dùng hàm Subtotal nhé! Em tham khảo video này: kzbin.info/www/bejne/apbUe3p8h5iFnbs

[@lieuhuynhthithuy9271]

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 ạ.

[@TinHocDongPhuong]

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ả.

[@hoaisaker2151]

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 !

[@TuanLe-qz2zg]

Phút thứ 20:00 đúng với yêu cầu của b đấy, mã kh = kh rồi còn gì

[@ThanhNguyen-rd9mu]

cho em xin đoạn code được không ạ

[@kimcuongtran933]

cho em hỏi là, cái số HĐ làm sao cho nó gôm lại thành 1 á anh

[@TuanLe-qz2zg]

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

[@Nguyencanhphu1987]

Phần mềm này bán sao a

[@TinHocDongPhuong]

Em liên hệ 0906864860 nhé!

[@hoanglamlci]

Khó quá không làm được thầy ạ

[@duongnhanong]

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

[@tranvanbinh2660]

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

[@hongquang453]

.Range("A7").Resize(a, 8).Value = kg (sai chỗ "=kg", phải là .Range("A7").Resize(a, 8).Value = kq)

[@TrangDoanJewelry]

chào add có thể cho mình tt để liên hệ ko?

[@TinHocDongPhuong]

Bạn liên hệ sđt [phone] nhé!

[@nono-cr2rk]

Cho e xin code với ạ

[@votanhoang7077]

sao 1 số video quyền riêng tư vậy Anh học lỡ dỡ sao hiểu được ạ

[@TinHocDongPhuong]

A đã fix lỗi và đã mở lại! Chúc em học tốt!

[@CuongNguyen-pf3el]

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?

[@thanhhoangnguyen5960]

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

[@TinHocDongPhuong]

Dữ liệu của em bao nhiêu dòng?

[@thanhhoangnguyen5960]

@@TinHocDongPhuong dạ em lấy file mẫu của anh ra làm luôn ah anh!

[@hontv5262]

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.

[@hoanglamlci]

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.

[@TinHocDongPhuong]

Em gửi file dữ liệu qua zalo, thầy làm video hướng dẫn nhé!

[@TinHocDongPhuong]

0906864860

[@hoanglamlci]

@@TinHocDongPhuong Vâng thầy

[@hoanglamlci]

@@TinHocDongPhuong Em gửi thầy file rồi. thầy giúp em ạ

[@hoanglamlci]

@@TinHocDongPhuong Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ

[@thanhnguyentrung1375]

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)

[@TinHocDongPhuong]

Thiếu End if rồi

[@TinHocDongPhuong]

@@user-ei4gi8uq5y e chưa khai báo biến a.

[@nhannguyentrong6483]

Hồ sơ dữ liệu trên 100.000 dòng và 40 cột viết chắc chết

[@TinHocDongPhuong]

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.

[@tinhocvanphong247]

Dạ anh ơi, cách để mình ẩn tab công cụ ở phía trên bằng Code được không anh??

[@truongththcsso2taphoi91]

Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ