Lọc vật tư đã xuất trong tháng và tính tổng (2 người xem)

  • Thread starter Thread starter hunynhi
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

hunynhi

Thành viên mới
Tham gia
28/5/19
Bài viết
10
Được thích
2
Em có file xuất vật tư gốc. Yêu cầu lọc theo từng bộ phận, để xem mỗi bộ phận trong tháng tiêu hao bao nhiêu vật tư.

Anh/chị giúp e tạo vba cho file dữ liệu này đc không ạ. e đã thử lm nhiều cách vba có, a-tools có nhưng với kiến thức hạn hẹp nó chạy sai miết.
Yêu cầu là lọc các cột Tên vật tư, Đơn vị, Số lượng, Đơn giá, Thành tiền theo từng Tên bộ phận sử dụng, Tên kho.
Sau khi lọc những vật tư có tên trùng nhau sẽ tự động gộp lại và cột Số lượng, Thành tiền tự động cộng lại
 

File đính kèm

hunynhi đã viết:
Em có file xuất vật tư gốc. Yêu cầu lọc theo từng bộ phận, để xem mỗi bộ phận trong tháng tiêu hao bao nhiêu vật tư.

Anh/chị giúp e tạo vba cho file dữ liệu này đc không ạ. e đã thử lm nhiều cách vba có, a-tools có nhưng với kiến thức hạn hẹp nó chạy sai miết.
Yêu cầu là lọc các cột Tên vật tư, Đơn vị, Số lượng, Đơn giá, Thành tiền theo từng Tên bộ phận sử dụng, Tên kho.
Sau khi lọc những vật tư có tên trùng nhau sẽ tự động gộp lại và cột Số lượng, Thành tiền tự động cộng lại
Nhấp chuột vào đây để mở rộng...
Thấy dùng pivot ổn mà bạn
 
LamNA đã viết:
Thấy dùng pivot ổn mà bạn
Nhấp chuột vào đây để mở rộng...
Em chưa biết xài pivot
Bài đã được tự động gộp:

phamkimhuy đã viết:
đúng ý bạn chưa
Nhấp chuột vào đây để mở rộng...
Làm sao để filter tên vật tư phụ thuộc vào tên bộ phận sd ạ?

Mình muốn làm một list cho tên bộ phận sd. Và một list cho tên vật tư với điều kiện khi tên bộ phận sd thay đổi thì list vật tư tự động cập nhật theo.

Vì tên bộ phận sd trong file này lên đến hơn 50 bộ phận.
Tổng vật tư lên đến hơn 10.000 sản phẩm.
nếu cứ coppy từng mục thả vào ô để dò thì rất lâu.

Cảm ơn bạn đã giúp <3<3
 
Lần chỉnh sửa cuối:
Vậy tên bộ phận sử dụng là nhóm từ sau dấu '-' của cột TENDTNHAN?
Mà bạn nên tạo ra bộ mã cho vật tư của bạn; Xài tên VT như vậy dễ có ngày cúng cô hồn cái file này lắm!
 
hunynhi đã viết:
Em có file xuất vật tư gốc. Yêu cầu lọc theo từng bộ phận, để xem mỗi bộ phận trong tháng tiêu hao bao nhiêu vật tư.

Anh/chị giúp e tạo vba cho file dữ liệu này đc không ạ. e đã thử lm nhiều cách vba có, a-tools có nhưng với kiến thức hạn hẹp nó chạy sai miết.
Yêu cầu là lọc các cột Tên vật tư, Đơn vị, Số lượng, Đơn giá, Thành tiền theo từng Tên bộ phận sử dụng, Tên kho.
Sau khi lọc những vật tư có tên trùng nhau sẽ tự động gộp lại và cột Số lượng, Thành tiền tự động cộng lại
Nhấp chuột vào đây để mở rộng...
Tham khảo cách dùng pivot
 

File đính kèm

SA_DQ đã viết:
Vậy tên bộ phận sử dụng là nhóm từ sau dấu '-' của cột TENDTNHAN?
Mà bạn nên tạo ra bộ mã cho vật tư của bạn; Xài tên VT như vậy dễ có ngày cúng cô hồn cái file này lắm!
Nhấp chuột vào đây để mở rộng...
File này nó như vậy sẳng rồi. Mình không thay đổi được
(T_T)
Bài đã được tự động gộp:

LamNA đã viết:
Tham khảo cách dùng pivot
Nhấp chuột vào đây để mở rộng...
Cảm ơn a ạ!!
 
Lần chỉnh sửa cuối:
hunynhi đã viết:
Em chưa biết xài pivot
Bài đã được tự động gộp:


www.giaiphapexcel.com

Quà tặng từ Smod Ptm0412 - Tài liệu về PowerPivot nhân sinh nhật GPE13

Tài liệu về Pivot Table, PowerPivot, Power Query (được chia sẻ miễn phí bởi smod ptm0412) Thân gởi mọi người, Trong buổi tiệc sinh nhật GPE13 tại TPHCM, anh Mỹ Smod @ptm0412 đã có chia sẻ về những điểm độc đáo trong PowerPivot (và PowerQuery). Cùng với đó là tài liệu liên quan đến PowerPivot...
www.giaiphapexcel.com www.giaiphapexcel.com

PIVOT RẤT HAY ĐÓ BẠN!
Nhấp chuột vào đây để mở rộng...
 
hunynhi đã viết:
Em có file xuất vật tư gốc. Yêu cầu lọc theo từng bộ phận, để xem mỗi bộ phận trong tháng tiêu hao bao nhiêu vật tư.

Anh/chị giúp e tạo vba cho file dữ liệu này đc không ạ. e đã thử lm nhiều cách vba có, a-tools có nhưng với kiến thức hạn hẹp nó chạy sai miết.
Yêu cầu là lọc các cột Tên vật tư, Đơn vị, Số lượng, Đơn giá, Thành tiền theo từng Tên bộ phận sử dụng, Tên kho.
Sau khi lọc những vật tư có tên trùng nhau sẽ tự động gộp lại và cột Số lượng, Thành tiền tự động cộng lại
Nhấp chuột vào đây để mở rộng...
bạn xem file xem đã đúng ý chưa?

Mã: 
Sub loc_dl()
Dim sArr(), dArr(1 To 50000, 1 To 8), i As Long, k As Long

With Sheet1
    sArr = .Range("A2:H" & .Range("B50000").End(xlUp).Row).Value
End With
With Sheet2
    If .Range("A50000").End(xlUp).Row > 5 Then .Range("A6:H" & .Range("A50000").End(xlUp).Row).ClearContents
    For i = 1 To UBound(sArr)
        If sArr(i, 5) = .Range("B1").Value And Month(sArr(i, 1)) = .Range("B2").Value Then
            k = k + 1
            dArr(k, 1) = sArr(i, 1)
            dArr(k, 2) = sArr(i, 2)
            dArr(k, 3) = sArr(i, 4)
            dArr(k, 4) = sArr(i, 4)
            dArr(k, 5) = sArr(i, 5)
            dArr(k, 6) = sArr(i, 6)
            dArr(k, 7) = sArr(i, 7)
            dArr(k, 8) = sArr(i, 8)
        End If
    Next i
    If k = 0 Then
        MsgBox "khong co du lieu phu hop voi 2 dieu kien nay"
    Else
        .Range("A6").Resize(k, 8) = dArr
        .Range("B3").Value = "=sum(H6:H" & k & ")"
    End If
End With
End Sub
 

File đính kèm

nguyenthuy13388 đã viết:
bạn xem file xem đã đúng ý chưa?

Mã: 
Sub loc_dl()
Dim sArr(), dArr(1 To 50000, 1 To 8), i As Long, k As Long

With Sheet1
    sArr = .Range("A2:H" & .Range("B50000").End(xlUp).Row).Value
End With
With Sheet2
    If .Range("A50000").End(xlUp).Row > 5 Then .Range("A6:H" & .Range("A50000").End(xlUp).Row).ClearContents
    For i = 1 To UBound(sArr)
        If sArr(i, 5) = .Range("B1").Value And Month(sArr(i, 1)) = .Range("B2").Value Then
            k = k + 1
            dArr(k, 1) = sArr(i, 1)
            dArr(k, 2) = sArr(i, 2)
            dArr(k, 3) = sArr(i, 4)
            dArr(k, 4) = sArr(i, 4)
            dArr(k, 5) = sArr(i, 5)
            dArr(k, 6) = sArr(i, 6)
            dArr(k, 7) = sArr(i, 7)
            dArr(k, 8) = sArr(i, 8)
        End If
    Next i
    If k = 0 Then
        MsgBox "khong co du lieu phu hop voi 2 dieu kien nay"
    Else
        .Range("A6").Resize(k, 8) = dArr
        .Range("B3").Value = "=sum(H6:H" & k & ")"
    End If
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Code của bạn sẽ bị lỗi như:
1/Trường hợp1:
Tại sheet1 xóa tất cả các dòng (xóa từ dòng 3 trở xuống, chỉ chừa dòng 1 và 2)
Sang sheet loc, ở ô B2 chọn 1 tháng bất kỳ

1/Trường hợp2:
Tại sheet1 xóa tất cả các dòng (xóa từ dòng 2 trở xuống , chỉ chừa dòng 1(tiêu đề))
Sang sheet loc, ở ô B2 chọn 1 tháng bất kỳ
 
AnhThu-1976 đã viết:
Code của bạn sẽ bị lỗi như:
1/Trường hợp1:
Tại sheet1 xóa tất cả các dòng (xóa từ dòng 3 trở xuống, chỉ chừa dòng 1 và 2)
Sang sheet loc, ở ô B2 chọn 1 tháng bất kỳ

1/Trường hợp2:
Tại sheet1 xóa tất cả các dòng (xóa từ dòng 2 trở xuống , chỉ chừa dòng 1(tiêu đề))
Sang sheet loc, ở ô B2 chọn 1 tháng bất kỳ
Nhấp chuột vào đây để mở rộng...
oki. vậy bạn chờ câu trả lời khác vậy.:victory::victory::victory:
Bài đã được tự động gộp:

nguyenthuy13388 đã viết:
bạn xem file xem đã đúng ý chưa?

Mã: 
Sub loc_dl()
Dim sArr(), dArr(1 To 50000, 1 To 8), i As Long, k As Long

With Sheet1
    sArr = .Range("A2:H" & .Range("B50000").End(xlUp).Row).Value
End With
With Sheet2
    If .Range("A50000").End(xlUp).Row > 5 Then .Range("A6:H" & .Range("A50000").End(xlUp).Row).ClearContents
    For i = 1 To UBound(sArr)
        If sArr(i, 5) = .Range("B1").Value And Month(sArr(i, 1)) = .Range("B2").Value Then
            k = k + 1
            dArr(k, 1) = sArr(i, 1)
            dArr(k, 2) = sArr(i, 2)
            dArr(k, 3) = sArr(i, 4)
            dArr(k, 4) = sArr(i, 4)
            dArr(k, 5) = sArr(i, 5)
            dArr(k, 6) = sArr(i, 6)
            dArr(k, 7) = sArr(i, 7)
            dArr(k, 8) = sArr(i, 8)
        End If
    Next i
    If k = 0 Then
        MsgBox "khong co du lieu phu hop voi 2 dieu kien nay"
    Else
        .Range("A6").Resize(k, 8) = dArr
        .Range("B3").Value = "=sum(H6:H" & k & ")"
    End If
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Xin sửa lại code phần chữ đỏ
Mã: 
Sub loc_dl()
Dim sArr(), dArr(1 To 50000, 1 To 8), i As Long, k As Long

With Sheet1
    sArr = .Range("A2:H" & .Range("B50000").End(xlUp).Row).Value
End With
With Sheet2
    If .Range("A50000").End(xlUp).Row > 5 Then .Range("A6:H" & .Range("A50000").End(xlUp).Row).ClearContents
    For i = 1 To UBound(sArr)
        If sArr(i, 5) = .Range("B1").Value And Month(sArr(i, 1)) = .Range("B2").Value Then
            k = k + 1
            dArr(k, 1) = sArr(i, 1)
            dArr(k, 2) = sArr(i, 2)
            dArr(k, 3) = sArr(i, 3)
            dArr(k, 4) = sArr(i, 4)
            dArr(k, 5) = sArr(i, 5)
            dArr(k, 6) = sArr(i, 6)
            dArr(k, 7) = sArr(i, 7)
            dArr(k, 8) = sArr(i, 8)
        End If
    Next i
    If k = 0 Then
        MsgBox "khong co du lieu phu hop voi 2 dieu kien nay"
    Else
        .Range("A6").Resize(k, 8) = dArr
        .Range("B3").Value = "=sum(H6:H" & k + 5 & ")"
    End If
End With
End Sub
 
Lần chỉnh sửa cuối:
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

00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup (1 người xem)
Trả lời
3
Đọc
114
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (1 người xem)
2
Trả lời
22
Đọc
431
nguyendang95
N
G
Xin Code xóa Module.
Trả lời
7
Đọc
206
VetMini
V
S
Mở 2 cửa sổ riêng biệt (1 người xem)
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy) (2 người xem)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt (1 người xem)
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
134
lamvu0677
L
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
9
Đọc
5K
SonBDND
S
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (2 người xem)
    • Thích
Trả lời
0
Đọc
984
GPE-Trợ Lý
GPE-Trợ Lý
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
1
Đọc
110
khkkh
K
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
783
SteveNguyen1991
S
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
6
Đọc
210
Hoàng Tuấn 868
H
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
0
Đọc
133
nguyendang95
N
H
Nhờ anh/chị giúp đỡ em viết công thức trừ dữ liệu theo FiFo
Trả lời
1
Đọc
121
HieuCD
H
BNTT
LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel (1 người xem)
    • Thích
4 5 6
Trả lời
118
Đọc
73K
YêuCN
Y
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
14
Đọc
214
thuytrangbp28
T
micam111
  • Question Question
Cách chạy nhiều đồng hồ đếm giờ trong VBA
Trả lời
4
Đọc
705
thuytrangbp28
T
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
26
Đọc
7K
Tuấn Bụng Bự
Tuấn Bụng Bự
Emyeuexcel
  • Question Question
In tất cả các file trong cùng 1 thư mục
Trả lời
3
Đọc
219
Hoàng Tuấn 868
H
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
214
Gà Công Nghệ
Gà Công Nghệ
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom