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.
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.
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
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 🥰🥰🥰
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 !!
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ẽ ạ
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?
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.
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 ạ
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!
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
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!
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!
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
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
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
Đó 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é!
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
đ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)
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
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
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.
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 ạ.
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?
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)
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.
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 ạ.
Cảm ơn tác giả, bài giảng rất dễ hiểu.
Chúc anh nhiều sức khỏe.
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 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
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
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
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 🥰🥰🥰
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!
Cảm ơn bạn, hướng dẫn này giúp mình rất nhiều
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
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!
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
Video hướng dẫn rất hay. Cảm ơn anh nhé
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"
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 ạ
rất hay, cảm ơn chủ kênh
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ỉ
đỉnh quá luôn
Cảm ơn bạn
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
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
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
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!
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
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
Dùng mảng, mình có thể chạy tính tổng theo mã KH và mã SP dc không anh.
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 ạ
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 ạ.
có dạy vba không ạ
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.
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?
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?
32:40 change
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
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
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.
ban nhan viet phan mem bao nhieu vay a
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...
Thầy chưa làm được Video HD giải quyết vấn đề em nhà ạ
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 ạ!
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)
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
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
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!
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,..)
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.
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ì
Phần mềm này bán sao a
Em liên hệ 0906864860 nhé!
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
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 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é!
Mọi người giúp mình với.
Nếu đề bài như video. Nhưng có nhiều sheet Data. Mỗi sheet Data là một khách hàng. thì làm sao để VBA lọc
Vậy trước khi lọc cần gộp nhiều sheet thành 1 sheet!
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
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é!
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
đ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)
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ứ,
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: ua-cam.com/video/4eqJGFR3RgY/v-deo.html
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?
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à
cho em xin đoạn code được không ạ
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 xin code đi anh, em gõ sai chỗ nào mà ko chạy đc . pls help me
chào add có thể cho mình tt để liên hệ ko?
Bạn liên hệ sđt 0906864860 nhé!
Cho e xin code với ạ
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ả.
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.
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!
Khó quá không làm được thầy ạ
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?
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
@@VanChu-s6y 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à ạ