Nhờ giúp cách lọc dữ liệu vào Báo cáo chi tiết trong excell bằng VBA

Liên hệ QC
M

muexcell

Thành viên chính thức
Tham gia
14/5/21
Bài viết
52
Được thích
8
Nhờ diễn đàn giải pháp excell mình mới biết về VBA,và thấy rất phù hợp với nhu cầu của việc mình đang làm nhưng mình vẫn chưa viết đc nên nhờ mọi người giúp
Từ bảng cáo cáo tổng hợp hàng ngày mình cần làm báo cáo chi tiết dựa theo điều kiện thay đổi ở các ô B5:B7 ( thời gian và mã hàng tại sheet thịt)
Nhờ mọi người viết giùm mình và cho mình cái hướng dẫn để mình có thể viết các sheet còn lại.
nhờ mọi người giúp mình với
Xin cảm ơn
 

File đính kèm

  • BCKDT5.xlsx
    174.6 KB · Đọc: 14
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Sửa lại tiêu đề bài viết đi bạn.

Nhờ giúp viết VAB​

Chắc là : Viết giúp VBA có vẻ đúng hơn

Mà giống như bạn phó mặc mọi dữ liệu cho người khác hay sao vậy?
 

File đính kèm

  • 205.jpg
    205.jpg
    60.9 KB · Đọc: 16
Upvote 0
SA_DQ đã viết:
Sửa lại tiêu đề bài viết đi bạn.

Nhờ giúp viết VAB​

Chắc là : Viết giúp VBA có vẻ đúng hơn

Mà giống như bạn phó mặc mọi dữ liệu cho người khác hay sao vậy?
Nhấp chuột vào đây để mở rộng...
Mình cần cung cấp thêm thông tin gì bạn hướng dẫn giúp mình nha
Mình thấy bài chỉ trước của bạn rất hay nhưng mình chưa biết nhiều nên ko sửa lại theo ý mình muốn được
Cảm ơn bạn,
 

File đính kèm

  • BCKDT5.xlsx
    174.6 KB · Đọc: 11
Lần chỉnh sửa cuối:
Upvote 0
Tiêu đề vi phạm nội qui vì chung chung. Bạn cứ tưởng tượng là ai cũng cho tiêu đề "Nhờ giúp viết VBA" thì loạn mất.
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Chưa ai đi vào nội dung nên chưa thấy góp ý gì, chứ thật tình tôi thấy bạn rất hời hợt khi trình bày để nhờ giúp đỡ:
1/ "điều kiện thay đổi ở các ô B5:B7 ( thời gian và mã hàng tại sheet thịt)": các ô B5:B7 của sheet nào? tôi thấy có mỗi sheet THUCHI có dữ liệu tại B5:B7 nhưng trật lất và cũng chẳng thấy có mối liên hệ gì đến kết quả tại sheet THỊT
1621612611730.png

2/ Dữ liệu ví dụ không thể hiện được bạn muốn lấy thứ gì đưa vào đâu (xem sheet THỊT thì không hiểu lấy các thông tin này từ đâu)
1621612848411.png
 
Upvote 0
muexcell đã viết:
Nhờ diễn đàn giải pháp excell mình mới biết về VBA,và thấy rất phù hợp với nhu cầu của việc mình đang làm nhưng mình vẫn chưa viết đc nên nhờ mọi người giúp
Từ bảng cáo cáo tổng hợp hàng ngày mình cần làm báo cáo chi tiết dựa theo điều kiện thay đổi ở các ô B5:B7 ( thời gian và mã hàng tại sheet thịt)
Nhờ mọi người viết giùm mình và cho mình cái hướng dẫn để mình có thể viết các sheet còn lại.
nhờ mọi người giúp mình với
Xin cảm ơn
Nhấp chuột vào đây để mở rộng...
Chạy code
Mã: 
Sub ABC()
  Dim sArr(), Res()
  Dim sRow&, i&, k&, fDay, eDay, MH$, total#
 
  With Sheets("THUCHI")
    i = .Range("B" & Rows.Count).End(xlUp).Row
    If i < 10 Then MsgBox ("Khong co du lieu!"): Exit Sub
    sArr = .Range("B10:F" & i).Value
  End With
  sRow = UBound(sArr)
  Application.ScreenUpdating = False
  With Sheet5
    i = .Range("C" & Rows.Count).End(xlUp).Row
    If i > 8 Then .Range("A9:D" & i).Clear
    fDay = Range("B5").Value: eDay = Range("B6").Value
    MH = Range("B7").Value
    If TypeName(fDay) = "Date" And TypeName(eDay) = "Date" And TypeName(MH) = "String" Then
      ReDim Res(1 To sRow, 1 To 4)
      For i = 1 To sRow
        If sArr(i, 1) >= fDay Then
          If sArr(i, 1) <= eDay Then
            If sArr(i, 3) = MH Then
              k = k + 1
              Res(k, 1) = sArr(i, 1): Res(k, 2) = sArr(i, 2)
              Res(k, 3) = sArr(i, 3): Res(k, 4) = sArr(i, 5)
              total = total + sArr(i, 5)
            End If
          End If
        End If
      Next i
      If k Then
        k = k + 1
        Res(k, 3) = "Tong Cong": Res(k, 4) = total
        .Range("A9").Resize(k, 4) = Res
        .Range("A9").Resize(k, 4).Borders.LineStyle = 1
      End If
    Else
      MsgBox ("Phai Nhap chinh xac Ngay Thang va Mat Hang!")
    End If
  End With
  Application.ScreenUpdating = True
End Sub
 
Upvote 0
Maika8008 đã viết:
Chưa ai đi vào nội dung nên chưa thấy góp ý gì, chứ thật tình tôi thấy bạn rất hời hợt khi trình bày để nhờ giúp đỡ:
1/ "điều kiện thay đổi ở các ô B5:B7 ( thời gian và mã hàng tại sheet thịt)": các ô B5:B7 của sheet nào? tôi thấy có mỗi sheet THUCHI có dữ liệu tại B5:B7 nhưng trật lất và cũng chẳng thấy có mối liên hệ gì đến kết quả tại sheet THỊT
View attachment 259174

2/ Dữ liệu ví dụ không thể hiện được bạn muốn lấy thứ gì đưa vào đâu (xem sheet THỊT thì không hiểu lấy các thông tin này
Nhấp chuột vào đây để mở rộng...

Maika8008 đã viết:
Chưa ai đi vào nội dung nên chưa thấy góp ý gì, chứ thật tình tôi thấy bạn rất hời hợt khi trình bày để nhờ giúp đỡ:
1/ "điều kiện thay đổi ở các ô B5:B7 ( thời gian và mã hàng tại sheet thịt)": các ô B5:B7 của sheet nào? tôi thấy có mỗi sheet THUCHI có dữ liệu tại B5:B7 nhưng trật lất và cũng chẳng thấy có mối liên hệ gì đến kết quả tại sheet THỊT
View attachment 259174

2/ Dữ liệu ví dụ không thể hiện được bạn muốn lấy thứ gì đưa vào đâu (xem sheet THỊT thì không hiểu lấy các thông tin này từ đâu)
View attachment 259175
Nhấp chuột vào đây để mở rộng...
Hi
Cảm ơn bạn đã góp ý
Trong sheet thịt mình có hai bảng,bảng một là bảng muốn được giúp.
Còn bảng này là bảng số liệu kết quả mong muốn ( mình tự coppy từ bảng thuchi lấy filter mã "detinh")
 
Upvote 0
muexcell đã viết:
Hi
Cảm ơn bạn đã góp ý
Trong sheet thịt mình có hai bảng,bảng một là bảng muốn được giúp.
Còn bảng này là bảng số liệu kết quả mong muốn ( mình tự coppy từ bảng thuchi lấy filter mã "detinh")
Nhấp chuột vào đây để mở rộng...
Sorry! Lúc đầu nhìn không rõ, chừ tôi hiểu rồi. Code cho bạn tham khảo, đảm bảo chạy nhanh.
Rich (BB code): 
Sub Loc_SQL()
Dim Ngay1 As String, Ngay2 As String, MS As String

    Ngay1 = "#" & Sheet5.Range("B5") & "#"
    Ngay2 = "#" & Sheet5.Range("B6") & "#"
    MS = "'" & Sheet5.Range("B7") & "'"
    Dim cnn As String
    cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No"""
    With CreateObject("ADODB.Recordset")
        .Open ("Select F2,F3,F4,F6 From [THUCHI$A10:F592] Where F4 = " & MS & " And  F2 Between " & Ngay1 & " And " & Ngay2), cnn   'F4 = " & MS & " And  F2 Between " & Ngay1 & " And " & Ngay2
        Sheet5.Range("G9").CopyFromRecordset .DataSource
    End With
End Sub
 
Upvote 0
Maika8008 đã viết:
Sorry! Lúc đầu nhìn không rõ, chừ tôi hiểu rồi. Code cho bạn tham khảo, đảm bảo chạy nhanh.
Rich (BB code): 
Sub Loc_SQL()
Dim Ngay1 As String, Ngay2 As String, MS As String

    Ngay1 = "#" & Sheet5.Range("B5") & "#"
    Ngay2 = "#" & Sheet5.Range("B6") & "#"
    MS = "'" & Sheet5.Range("B7") & "'"
    Dim cnn As String
    cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No"""
    With CreateObject("ADODB.Recordset")
        .Open ("Select F2,F3,F4,F6 From [THUCHI$A10:F592] Where F4 = " & MS & " And  F2 Between " & Ngay1 & " And " & Ngay2), cnn   'F4 = " & MS & " And  F2 Between " & Ngay1 & " And " & Ngay2
        Sheet5.Range("G9").CopyFromRecordset .DataSource
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn rất nhiều.
Bài đã được tự động gộp:

HieuCD đã viết:
Chạy code
Mã: 
Sub ABC()
  Dim sArr(), Res()
  Dim sRow&, i&, k&, fDay, eDay, MH$, total#
 
  With Sheets("THUCHI")
    i = .Range("B" & Rows.Count).End(xlUp).Row
    If i < 10 Then MsgBox ("Khong co du lieu!"): Exit Sub
    sArr = .Range("B10:F" & i).Value
  End With
  sRow = UBound(sArr)
  Application.ScreenUpdating = False
  With Sheet5
    i = .Range("C" & Rows.Count).End(xlUp).Row
    If i > 8 Then .Range("A9:D" & i).Clear
    fDay = Range("B5").Value: eDay = Range("B6").Value
    MH = Range("B7").Value
    If TypeName(fDay) = "Date" And TypeName(eDay) = "Date" And TypeName(MH) = "String" Then
      ReDim Res(1 To sRow, 1 To 4)
      For i = 1 To sRow
        If sArr(i, 1) >= fDay Then
          If sArr(i, 1) <= eDay Then
            If sArr(i, 3) = MH Then
              k = k + 1
              Res(k, 1) = sArr(i, 1): Res(k, 2) = sArr(i, 2)
              Res(k, 3) = sArr(i, 3): Res(k, 4) = sArr(i, 5)
              total = total + sArr(i, 5)
            End If
          End If
        End If
      Next i
      If k Then
        k = k + 1
        Res(k, 3) = "Tong Cong": Res(k, 4) = total
        .Range("A9").Resize(k, 4) = Res
        .Range("A9").Resize(k, 4).Borders.LineStyle = 1
      End If
    Else
      MsgBox ("Phai Nhap chinh xac Ngay Thang va Mat Hang!")
    End If
  End With
  Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn nhiều.
Mình gắn không chạy đc,bạn gắn rồi gởi file cho mình giúp đc ko.
hic cảm ơn bạn rất rất nhiều.
Thật sự mình rất yếu chỉ đang mò mẫm từng bước.
 
Lần chỉnh sửa cuối:
Upvote 0
Tay này khoái viết tắt. Nhưng riêng từ 'Excel' thì lại không tắt, mà còn viết dư. :p
 
Upvote 0
HieuCD đã viết:
Chạy code
Mã: 
Sub ABC()
  Dim sArr(), Res()
  Dim sRow&, i&, k&, fDay, eDay, MH$, total#
 
  With Sheets("THUCHI")
    i = .Range("B" & Rows.Count).End(xlUp).Row
    If i < 10 Then MsgBox ("Khong co du lieu!"): Exit Sub
    sArr = .Range("B10:F" & i).Value
  End With
  sRow = UBound(sArr)
  Application.ScreenUpdating = False
  With Sheet5
    i = .Range("C" & Rows.Count).End(xlUp).Row
    If i > 8 Then .Range("A9:D" & i).Clear
    fDay = Range("B5").Value: eDay = Range("B6").Value
    MH = Range("B7").Value
    If TypeName(fDay) = "Date" And TypeName(eDay) = "Date" And TypeName(MH) = "String" Then
      ReDim Res(1 To sRow, 1 To 4)
      For i = 1 To sRow
        If sArr(i, 1) >= fDay Then
          If sArr(i, 1) <= eDay Then
            If sArr(i, 3) = MH Then
              k = k + 1
              Res(k, 1) = sArr(i, 1): Res(k, 2) = sArr(i, 2)
              Res(k, 3) = sArr(i, 3): Res(k, 4) = sArr(i, 5)
              total = total + sArr(i, 5)
            End If
          End If
        End If
      Next i
      If k Then
        k = k + 1
        Res(k, 3) = "Tong Cong": Res(k, 4) = total
        .Range("A9").Resize(k, 4) = Res
        .Range("A9").Resize(k, 4).Borders.LineStyle = 1
      End If
    Else
      MsgBox ("Phai Nhap chinh xac Ngay Thang va Mat Hang!")
    End If
  End With
  Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

Khi mình chạy máy báo như thế này bạn,bảng báo cáo tự động mình chạy hôm qua giờ ko đc
Nhờ bạn xem giúp
cảm ơn bạn nhiều
 

File đính kèm

  • Screenshot (1).png
    Screenshot (1).png
    339.9 KB · Đọc: 14
Upvote 0
muexcell đã viết:
Khi mình chạy máy báo như thế này bạn,bảng báo cáo tự động mình chạy hôm qua giờ ko đc
Nhờ bạn xem giúp
cảm ơn bạn nhiều
Nhấp chuột vào đây để mở rộng...
Lỗi đó bạn nhập ngày tháng định dạng dd/MM/yyyy. Bạn xem đã nhập mặt hàng đúng chưa?
 
Upvote 0
Maika8008 đã viết:
Sorry! Lúc đầu nhìn không rõ, chừ tôi hiểu rồi. Code cho bạn tham khảo, đảm bảo chạy nhanh.
Rich (BB code): 
Sub Loc_SQL()
Dim Ngay1 As String, Ngay2 As String, MS As String

    Ngay1 = "#" & Sheet5.Range("B5") & "#"
    Ngay2 = "#" & Sheet5.Range("B6") & "#"
    MS = "'" & Sheet5.Range("B7") & "'"
    Dim cnn As String
    cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No"""
    With CreateObject("ADODB.Recordset")
        .Open ("Select F2,F3,F4,F6 From [THUCHI$A10:F592] Where F4 = " & MS & " And  F2 Between " & Ngay1 & " And " & Ngay2), cnn   'F4 = " & MS & " And  F2 Between " & Ngay1 & " And " & Ngay2
        Sheet5.Range("G9").CopyFromRecordset .DataSource
    End With
End Sub
Nhấp chuột vào đây để mở rộng...
Mình gắn được nhưng file báo cáo chi tiết sheet thịt vẫn không tự động đươc bạn
bạn xem giúp mình tí
cảm ơn bạn
 
Upvote 0
Hay là bạn muốn sau khi cập nhật đủ 3 ô từ B5 - B7 thì code tự động chạy?
 
Upvote 0
muexcell đã viết:
Đúng rồi bạn.
cột B7 khi mình nhập mã hàng không hiện thị thông tin gì hết.
Nhấp chuột vào đây để mở rộng...
Bạn xem thử nhé. Chú ý trong trang code VBA của sheet Thit có 1 đoạn mã đếm số lần cập nhật (thay đổi) của các ô B5:B7. Nếu ô nào đó không thay đổi gì thì cũng bấm đúp vào rồi Enter thoát ra nhằm đếm cho đủ 3 lần để khởi động code lọc.
 

File đính kèm

  • BCKDT5_muexcell.xlsm
    187.5 KB · Đọc: 15
Upvote 0
Maika8008 đã viết:
Bạn xem thử nhé. Chú ý trong trang code VBA của sheet Thit có 1 đoạn mã đếm số lần cập nhật (thay đổi) của các ô B5:B7. Nếu ô nào đó không thay đổi gì thì cũng bấm đúp vào rồi Enter thoát ra nhằm đếm cho đủ 3 lần để khởi động code lọc.
Nhấp chuột vào đây để mở rộng...
Chạy rồi bạn ơi
thông tin mới chạy mà số hàng thông tin cũ vẫn còn phía dưới.
bạn xem giúp mình
(^-^) cảm ơn bạn.
 

File đính kèm

  • Screenshot (9).png
    Screenshot (9).png
    320.2 KB · Đọc: 5
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

B
Lọc dữ liệu trùng, đếm số lần, tự tô màu theo điều kiện.
Trả lời
3
Đọc
80
batista911
B
Tuấn Bụng Bự
  • Question
Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)
2
Trả lời
23
Đọc
437
Tuấn Bụng Bự
Tuấn Bụng Bự
C
Chia sẻ: Kết quả xổ số Keno
    • Thích
Trả lời
4
Đọc
154
Tuấn Bụng Bự
Tuấn Bụng Bự
P
Tổng hợp dữ liệu từ các sheet theo chọn lọc
Trả lời
12
Đọc
207
ptm0412
ptm0412
C
Công thức tự nhập liệu số lượng nhập khi bị âm
Trả lời
1
Đọc
66
hoangtuaotrang_hp_vn
H
kimtanmap
  • Question
Nhờ viết code VBA Macro lập lại.
Trả lời
5
Đọc
124
kimtanmap
kimtanmap
nguyenphuochien166
Cách Vlookup hoặc cách lấy thông tin dữ liệu có dấu mũ lũy thừa?
    • Cười
Trả lời
2
Đọc
36
nguyenphuochien166
nguyenphuochien166
dung09031989
Xin giúp công thức tô màu các ô phía sau khi kế hoạch đặt hàng thiếu so với tồn kho.?
Trả lời
1
Đọc
65
hoangtuaotrang_hp_vn
H
huynhnhu1234
Tìm giá vé máy bay một chiều và khứ hồi
Trả lời
0
Đọc
33
huynhnhu1234
huynhnhu1234
V
[Nhờ giúp đỡ] Cách tìm thời gian bị trùng trong excel ở nhiều thời gian khác nhau
Trả lời
7
Đọc
119
tranvansau278
T
N
Hàm tìm giá trị theo giờ vào - ra
Trả lời
6
Đọc
106
Nguyễn Linh hn94
N
zarra
Cần giúp tạo form in mã vạch cho vật tư theo SL cụ thể.
Trả lời
4
Đọc
152
zarra
zarra
Nguyễn Duy Tuân
  • Question
Chia sẻ ControlForOffice - Bộ công cụ điều khiển Office/Excel
    • Thích
6 7 8
Trả lời
148
Đọc
95K
leminhksvl
L
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Cảm ơn
    • Thích
Trả lời
5
Đọc
288
anhdepjai
A
H
Hàm đếm số ngày thứ bảy và chủ nhật trong một khoảng thời gian
Trả lời
18
Đọc
19K
DeTong
D
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
11 12 13
Trả lời
245
Đọc
13K
Hoàng Trọng Hữu
Hoàng Trọng Hữu
D
  • Question
Xin cách sắp xếp dữ liệu theo thứ tự không làm hỏng link
Trả lời
7
Đọc
296
cantl
C
N
Giúp sửa mã code
Trả lời
16
Đọc
274
ptm0412
ptm0412
N
Vẽ biểu đồ kết hợp nhiều yếu tố trong excel
Trả lời
1
Đọc
58
hoangminhtien
hoangminhtien
GPE-Trợ Lý
KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL
    • Thích
Trả lời
0
Đọc
193
GPE-Trợ Lý
GPE-Trợ Lý
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom