quyenpv
Thu nhặt kiến thức
- Tham gia
- 5/1/13
- Bài viết
- 727
- Được thích
- 97
- Giới tính
- Nam
- Nghề nghiệp
- Decode cuộc đời!
Chạy thử code nàyEm chào anh chị!
Em đang làm đối soát vật tư phải kiểm tra số lượng thực tế xuất kho và thực tế thi công. Danh sách em ví dụ trong file và bảng mong muốn code, mong anh chị ghé qua giúp đỡ
Em cám ơn
Sub TongHop()
Dim Nguon
Dim Kq
Dim i, j, k
With Sheet1
i = .Range("A4").End(xlDown).Row
Nguon = .Range("A4:L" & i)
End With
ReDim Kq(1 To i * 5, 1 To 4)
For i = 1 To UBound(Nguon)
If Nguon(i, 3) <> "" Then
For j = 3 To 7
If Nguon(i, j) <> "" Then
k = k + 1
Kq(k, 1) = Nguon(i, 1)
Kq(k, 2) = Nguon(i, 2)
Kq(k, 3) = Nguon(i, j)
Kq(k, 4) = Nguon(i, j + 5)
Else
Exit For
End If
Next j
End If
Next i
With Sheet1
.Range("N4", .Range("Q4").End(xlDown)).ClearContents
.Range("N4").Resize(k, 4) = Kq
End With
End Sub
Vâng anh! Bảng của em còn nhiều cột lắm, anh xem giúp em với ạ. Hiện tại em đang làm thủ công có bao nhiêu vật tư em cho lần lượt rồi nhân với 10 lần số cột phiếu. Dữ liệu quá nhiều mà thủ công không ổn, mỗi lần filter là máy treo luôn ạThiết kế bảng của bạn hình như có gì đó chưa được hợp lý thì phải.
Có lẽ bạn cần diễn giải cách tính & làm 1 vài kết quả thủ công vào file đính kèm thì mới có thể tính được.Vâng anh! Bảng của em còn nhiều cột lắm, anh xem giúp em với ạ. Hiện tại em đang làm thủ công có bao nhiêu vật tư em cho lần lượt rồi nhân với 10 lần số cột phiếu. Dữ liệu quá nhiều mà thủ công không ổn, mỗi lần filter là máy treo luôn ạ
Dạ em gửi file em làm thủ công để anh xem ạCó lẽ bạn cần diễn giải cách tính & làm 1 vài kết quả thủ công vào file đính kèm thì mới có thể tính được.
Tức là bạn cần ví dụ 1 ô nào đó, được tính từ những ô nào, bằng công thức gì?Dạ em gửi file em làm thủ công để anh xem ạ
Trong file Sheet Input_TB em lấy dữ liệu từ các phiếu xuất kho (cái này em đã làm rồi), nhập khối lượng vật tư thực tế thi công vào cột G
Trong Sheet BQT_VTU em đã nhờ anh thì sẽ liệt kê các vật tư, khối lượng và đơn giá như file thủ công em làm
Sau đó từ khối lượng xuất kho - khối lượng thực tế thi công ạ
Em diễn giải lại như sau:Tức là bạn cần ví dụ 1 ô nào đó, được tính từ những ô nào, bằng công thức gì?
Em cám ơn anh nhiều!@quyenpv
File đính kèm chỉ tính tới vật tư thu hồi, các cột còn lại không có hướng dẫn nên không tính được.
Bạn kiểm tra xem kết quả đã khớp hay chưa
Trong file mẫu có trường hợp này chưa tính tới: Ví dụ Vật tư xuất 2 lần, giá <> nhau, nếu thừa thì thu hồi lấy giá nào?
Nếu bạn muốn tiếp tục : Hãy làm vào 1 vài dòng trong file, không nói suông. Làm trực tiếp vào file thì mới hiểu được.
Phần in đậm : Xảy ra trong trường hợp không có phiếu nhập kho?Em gửi bổ sung thông tin các cột tiếp theo ạ
Nếu vật tư dư thừa và nhập kho thì sẽ chọn bằng tay datalist số phiếu nhập tương ứng tại cột V trong Sheet Input_TB
Nếu vật tư nào dư thừa mà chưa nhập kho thì đưa sang cột số lượng chưa thu hồi tại Sheet BQT_VTU ạ
Mong anh hỗ trợ giúp em
Cám ơn anh nhiều
Em cám ơn anh nhiều!
1. Trong trường hợp vật tư xuất nhiều lần thì lấy giá lớn nhất ạ.
2. Có trường hợp này anh kiểm tra lại giúp em nhé vì nó chưa đúng ạ
Cũng Ví dụ tại dòng Tổng số vật tư xuất 2 lần Automat 63A là 6 (1 lần 4, 1 lần 2), thực tế thi công 2.
- Lấy lần 1 xuất trừ đi 2 (Ở đây là 4, thi công 2==>Nhập kho 2
- Do số lượng thi công lần 1 nhỏ hơn số lượng xuất lần 1 nên số lượng xuất lần 2 đưa vào nhập kho luôn
Anh chỉnh giúp em nhé>
Cám ơn anh
Em gửi bổ sung thông tin các cột tiếp theo ạ
Nếu vật tư dư thừa và nhập kho thì sẽ chọn bằng tay datalist số phiếu nhập tương ứng tại cột V trong Sheet Input_TB
Nếu vật tư nào dư thừa mà chưa nhập kho thì đưa sang cột số lượng chưa thu hồi tại Sheet BQT_VTU ạ
Mong anh hỗ trợ giúp em
Cám ơn anh nhiều
Rồi đó bạnCám ơn anh. Lát em coi và phản hồi ạ
Riêng vụ format Mã vật tư anh định dạng text giúp em luôn với ạ
Rồi đó bạn
ReDim Kq(1 To Dong * 4, 1 To 22)
Thay *4 thành *6. Đây là số dòng dự kiến của mảng Kq, thực tế chỉ dùng hết "k" dòng trong code.Em cám ơn anh nhiều, đúng các trường hợp có thể xảy ra rồi ạ
Hi vọng có dịp gặp anh lai rai xíu ạ
Cám ơn anh
Bài đã được tự động gộp:
Anh giải thích em đoạn Code này với ạMã:ReDim Kq(1 To Dong * 4, 1 To 22)
Trường hợp em đang làm muốn chèm thêm cột phiếu xuất thêm 6 cột và đơn giá xuất lên 6 cột thì chỉnh sửa chỗ nào ạ