Cảm ơn bạn đã quan tâm. Thực sự thì mình chưa hiểu code của bạn,mình sẽ mày mò tiếp xem có hiểu được không. Mình chỉ biết record macro rồi sửa lại thôi. Công việc của mình cứ lặp đi lặp lại nên mình đang tìm cách làm đỡ mất thời gian hơn.
code sử dụng mảng để tổng hợp. mảng arrN là vùng dữ liệu cần tổng hợp của sh nhập kho, arrX ...., KQ là mảng kết quả trả về. vòng lặp for i= 1 to ubound(arrN) là quét từng dòng của mảng để láy kết quả đưa vào mảng KQ, Qúét hết sh Nhập rồi quét sh X, gán mảng KQ lên sh SOKHO, sau đo sort như bạn đã làm.
Em cảm ơn anh đã quan tâm!
Cháu cảm ơn chú! Hôm qua cháu lên diễn đàn bằng điện thoại lại không thấy tuổi của chú. cái đoạn này: "if arrN(i, 3) >= TỪ and arrN(i,3)<=ĐẾN then" cháu sẽ thử tự làm thêm. Có gì không hiểu cháu lại hỏi chú tiếp,mong chú giúp đỡ!
(1) Các trang danh mục ta nên gộp ngay bay giờ; Nếu để sau này gộp sẽ vướng đâu đó trong chương trình
| STT | Mã lý do | Lý do | Ghi chú | Mã kho | Kho | Ghi chú | ||||||||||||||||||||||
| 1 | XKBH | Xuất bán hàng | Xuất kho bán hàng | KNL | Kho nguyên liệu | |||||||||||||||||||||||
| 2 | XKSX | Xuất cho sản xuất | Xuất kho phục vụ mục đích sản xuất | KHC | Kho hóa chất | |||||||||||||||||||||||
| 3 | XKTH | Xuất Trả hàng lại | Xuất kho trả hàng cho nhà cung cấp | KBB | Kho bao bì | |||||||||||||||||||||||
| 4 | XKHU | Xuất hủy hàng hóa | Xuất kho hủy hàng hóa không phù hợp | KCT | Kho carton | |||||||||||||||||||||||
| 5 | XKKK | Xuất khác | Các loại hình xuất kho khác | KTP | Kho thành phẩm | |||||||||||||||||||||||
| 6 | NKDK | Nhập tồn đầu kì | Nhập kho tồn đầu kỳ trước khi sử dụng file | |||||||||||||||||||||||||
| 7 | NKMH | Nhập mua hàng | Nhập kho mua hàng | |||||||||||||||||||||||||
| 8 | NKSX | Nhập từ sản xuất | Nhập thành phẩm từ sản xuất | |||||||||||||||||||||||||
| 9 | NKHK | Nhập hoàn kho | Nhập kho lại những hàng đã xuất kho nhưng các bộ phận sử dụng không hết yêu cầu hoàn kho | |||||||||||||||||||||||||
| 10 | NKKK | Nhập khác | Các loại hình nhập kho khác | |||||||||||||||||||||||||
Vì chưa biết tuổi nên xin gọi bằng chú vậy. Cháu khi xưng hô trên mạng khi không biết rõ thường cứ gọi anh xưng em.(4) Mình già lắm rồi, nếu chưa muốn nói là nhớn tuổi nhất DĐ,
Cháu gửi file giả lập theo như chú gợi ý.
Cháu cảm ơn chú đã quan tâm và giúp đỡ nhiệt tình!
Sub XoaDuLieuThang()
Dim dRng As Range, Arr()
Dim Thang As Integer, Rws As Long, Col As Integer, J As Long
Thang = InputBox(Month(Date), "Ban Cân Xoa Du Lieu Tháng:")
Sheets("SoKho").Select
Rws = [B9].CurrentRegion.Rows.Count
Col = [B9].CurrentRegion.Columns.Count
Application.ScreenUpdating = False
For J = 10 To Rws + 10
If Month(Cells(J, "B").Value) = Thang Then
If dRng Is Nothing Then
Set dRng = Rows(J & ":" & J)
Else
Set dRng = Union(dRng, Rows(J & ":" & J))
End If
End If
Next J
MsgBox dRng.Address
Application.ScreenUpdating = True
End SubSub TongHopKhoTheoThang()
Dim Thang As Integer
Thang = InputBox(Month(Date), "Ban Cân Xoa Du Lieu Tháng:")
XoaDuLieuThang Thang
End SubSub XoaDuLieuThang(Thang As Integer)
Dim dRng As Range, Arr()
Dim Rws As Long, Col As Integer, J As Long
Sheets("SoKho").Select
Rws = [B9].CurrentRegion.Rows.Count
Col = [B9].CurrentRegion.Columns.Count
Application.ScreenUpdating = False
For J = 10 To Rws + 10
If Month(Cells(J, "B").Value) = Thang Then
If dRng Is Nothing Then
Set dRng = Rows(J & ":" & J)
Else
Set dRng = Union(dRng, Rows(J & ":" & J))
End If
End If
Next J
dRng.Delete
Application.ScreenUpdating = True
End Sub
Sub TongHopKhoTheoThang()
Dim Thang As Integer
Thang = InputBox(Month(Date), "Ban Cân Xoa Du Lieu Tháng:")
XoaDuLieuThang Thang
SoLieuNhapTrongThang Thang 'Dòng Lênh Mói
End SubSub SoLieuNhapTrongThang(Thg As Integer) 'Maxcro Mói '
Dim Rws As Long, W As Integer, J As Long, Col As Integer
Dim Arr()
With Sheets("NhapKho")
Rws = .[b2].CurrentRegion.Rows.Count
Arr() = .[A3].Resize(Rws, 20).Value
ReDim ArrN(1 To UBound(Arr()), 1 To 20)
For J = 1 To UBound(Arr())
If Month(Arr(J, 1)) = Thg Then
W = W + 1
For Col = 1 To 20
ArrN(W, Col) = Arr(J, Col)
Next Col
End If
Next J
End With
MsgBox W 'Ban Kiêm Xem Sô Dòng Du Liêu Tháng Da Dúng Chua? Nêu Dúng Sẽ Tiêp '
End SubDạ được rồi chú ạ. Số dòng dữ liệu tháng đã đúng ạ.
Cháu thử làm nhưng không thấy phần ghi chú được chép sang, chú sửa cho cháu với.
wssokho.Range("B" & LrS).Resize(W, 18).Value = ArrNSub SoLieuNXTrongThang(Thg As Integer, Optional TenKho As SDtring = "N")
Dim Sh As Worksheet
If TenKho ="N" Then
Set Sh = Sheets("NhapKho")
ElseIf TenKho ="X" Then 'Mói Thêm '
Set Sh = Sheets("Xuat-Kho")
Else
MsgBox "Xéo Ngay!", ,"GPE.COM"
End if
'. . . . . '
End SubCháu thử rồi nhưng sau khi chạy macro thì nó lại điền trường quy cách ở nhập kho sang ghi chú ở sổ kho.
