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.
(1) Nếu trình tự các trường (cột) trong 3 trang tính là như nhau thì chuyện chép sang là đơn giản;
Cháu cảm ơn chú. Mấy hôm nay cháu không xem lại được. Cháu sẽ thử sức khi rỗi.
Sub TONGHOP()
Dim wsnhap, wsxuat, wssokho As Worksheet
Dim lrwsnhap, lrwsxuat, lrwssokho As Integer
Dim Tungay, Denngay As Long
Dim i&, j&, k&
Set wsnhap = Sheets("NhapKho")
Set wsxuat = Sheets("XuatKho")
Set wssokho = Sheets("SoKho")
Dim ArrN(), ArrX(), ArrKQ()
Application.ScreenUpdating = False
'mo khoa sheet
'wssokho.Unprotect "5202419"
'xoa du lieu so kho
wssokho.Range("B10:T20000").ClearContents
'Dieu kien tong hop tu ngay den ngay
Tungay = wssokho.Range("D6").Value
Denngay = wssokho.Range("E6").Value
'tim dong cuoi nhap xuat kho
lrwsnhap = wsnhap.Range("A" & Rows.Count).End(xlUp).Row
lrwsxuat = wsxuat.Range("A" & Rows.Count).End(xlUp).Row
ArrN = wsnhap.Range("A3:W" & lrwsnhap).Value2
ArrX = wsxuat.Range("A3:S" & lrwsxuat).Value2
ReDim ArrKQ(1 To UBound(ArrN) + UBound(ArrX), 1 To 23)
For i = 1 To UBound(ArrN)
If ArrN(i, 1) >= Tungay And ArrN(i, 1) <= Denngay Then
ArrKQ(i, 1) = i
For j = 1 To 18
ArrKQ(i, j) = ArrN(i, j)
Next j
ArrKQ(i, 19) = ArrN(i, 23)
End If
Next i
For k = 1 To UBound(ArrX)
If ArrX(k, 1) >= Tungay And ArrX(k, 1) <= Denngay Then
For j = 1 To 19
ArrKQ(i - 1 + k, j) = ArrX(k, j)
Next j
End If
Next k
wssokho.Range("B10").Resize(UBound(ArrN) + UBound(ArrX), 19) = ArrKQ
wssokho.Range("B10").Sort Key1:=wssokho.Columns("B"), Order1:=xlAscending, Header:=xlGuess
Application.ScreenUpdating = True
'khoa sheet
'wssokho.Protect "5202419"
End SubNếu muốn có trị của TuNgay thì phải cất công đi tìm thôi;
của bạn đây, hy vọng là đúng ý .
Tôi lấy ngày đầu tiền của sh nhập kho và so sánh ngày cuối cùng của SH nhập và Sh Xuất, ngày nào cũ hơn thì lấy vào biến Dengay.
(1) Nếu kho này mới thành lập (hay khánh thành) thì bạn làm vậy là đúng;
Tôi cũng đã nghĩ lại, đúng là làm theo bài này thì code chạy ok,
Cháu cảm ơn 2 chú! Cháu cũng không nghĩ đến cái này. Ý tưởng của cháu chỉ là nếu 2 ô Từ ngày,Đến ngày trống thì điền ngày đầu tiên sử dụng file từ sheet "Thongtin" và từ ngày và điền ngày hiện tại vào ô đến ngày.
Thường thì hàng năm các kho phải tiến hành kiểm kê. Lượng hàng hóa (HH) sau kiểm kê sẽ phải ghi vào 1 cột nào đó ở trang 'DanhMuc' HH với tiêu đề có thể là ngày hay năm (kiểm kê)
Cháu cũng ghi như chú đang bảo nhưng chỉ ghi số lượng với batch lúc cần lấy ngày sản xuất với hạn sử dụng ra để báo cáo cháu lại phải tìm ở file cũ.
| Stt | Mã hàng | Tên nguyên vật liệu | Loại | Đơn vị tính | Năm 19 | Năm 20 | |||||||
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||||||
| 1 | 10110001 | Quả cam tươi | Nguyên liệu tươi | Kg | - | 12 | |||||||
| 2 | 13100002 | Pallet gỗ 1m2 x 1m2 | Vật tư | Cái | 119 | 30 | |||||||
| 3 | 13100003 | Pallet gỗ 1m x 1m2 | Vật tư | Cái | 120 | 48 | |||||||
| 4 | 13100004 | Pallet nhựa 1m2 x 1m2 | Vật tư | Cái | 18 | 66 | |||||||
| 5 | 13100005 | Rổ nhựa HA - 009 | Vật tư | Cái | 597 | 84 | |||||||
| 6 | 11110006 | Hoá chất NaOH 32% | Hóa chất | Kg | 2,790 | 102 | |||||||
| 7 | 11110007 | Hoá chất HNO3 68% | Hóa chất | Kg | 1,575 | 120 | |||||||
| 8 | 12100008 | Túi Aseptic Golglio 2.5L | Bao bì | Cái | 205 | 13 | |||||||
| 9 | 12100009 | Túi Aseptic Golglio 220L | Bao bì | Cái | 777 | 156 | |||||||
| 10 | 12100010 | Túi Aseptic Golglio 20L | Bao bì | Cái | 6,360 | 174 | |||||||
| 11 | 12100011 | Thùng phuy nắp mở, đai sắt 220L | Bao bì | Cái | 256 | 0 | |||||||
| 12 | 12100012 | Thùng phuy nắp mở, 200L | Bao bì | Cái | 204 | 210 | |||||||
| 13 | 11110013 | Muối công nghiệp NaCL 99% | Hóa chất | Kg | - | 228 |
Sub Tonghopthekho()
Dim wssokho, wsthekho, wsthongtin As Worksheet
Dim lrwsokho As Integer
Dim Tungay, Denngay As Long
Dim i&
Set wssokho = Sheets("SoKho")
Set wsthekho = Sheets("TheKho")
Set wsthongtin = Sheets("ThongTin")
Dim ArrS(), ArrKQ()
Application.ScreenUpdating = False
wsthekho.Range("A15:H10000").ClearContents
If wsthekho.Range("B6") = Empty Then
wsthekho.Range("B6") = wsthongtin.Range("C12").Value
End If
If wsthekho.Range("B7") = Empty Then
wsthekho.Range("B7") = Date
End If
Tungay = wsthekho.Range("B6").Value
Denngay = wsthekho.Range("B7").Value
Mahang = wsthekho.Range("B9").Value
'Tim dong cuoi so kho
lrwsokho = wssokho.Range("B" & Rows.Count).End(xlUp).Row
ArrS = wssokho.Range("B10:T" & lrwsokho).Value
ReDim ArrKQ(1 To UBound(ArrS), 1 To 5)
For i = 1 To UBound(ArrS)
If ArrS(i, 1) >= Tungay And ArrS(i, 1) <= Denngay And ArrS(i, 7) = Mahang Then
k = k + 1
ArrKQ(k, 1) = ArrS(i, 1)
ArrKQ(k, 2) = ArrS(i, 3)
ArrKQ(k, 3) = ArrS(i, 6)
If Left(ArrS(k, 3), 2) = "PN" Then
ArrKQ(k, 4) = ArrS(i, 12)
ArrKQ(k, 5) = ""
Else
ArrKQ(k, 4) = ""
ArrKQ(k, 5) = ArrS(i, 12)
End If
End If
Next i
wsthekho.Range("B15").Resize(UBound(ArrS), 5) = ArrKQ
Application.ScreenUpdating = True
End SubXin lỗi anh SA_DQ, tôi mạn phép anh làm bài này nhé. Cũng không dám " đánh trống qua cửa nhà sấm" hay "cầm đèn chay trước ô tô" đâu. Mong anh thứ lỗi
Sub TongHopTheKho()
Dim wSSoKho As Worksheet, wSTheKho As Worksheet
Dim i&, lRwSoKho As Integer, TuNgay As Date, DenNgay As Date ' ** '
Dim ArrS()
Set wSSoKho = Sheets("SoKho")
Set wSTheKho = Sheets("TheKho")
Application.ScreenUpdating = False
wSTheKho.Range("A15:H10000").ClearContents ''
If wSTheKho.Range("B6") = Empty Then
wSTheKho.Range("B6") = Sheets("ThongTin").Range("C12").Value
End If
If wSTheKho.Range("B7") = Empty Then
wSTheKho.Range("B7") = Date
End If
TuNgay = wSTheKho.Range("B6").Value
DenNgay = wSTheKho.Range("B7").Value
MaHang = wSTheKho.Range("B9").Value
'Tìm Dòng Cuói So Kho '
lRwSoKho = wSSoKho.Range("B" & Rows.Count).End(xlUp).Row
ArrS = wSSoKho.Range("B10:T" & lRwSoKho).Value
ReDim ArrKQ(1 To UBound(ArrS), 1 To 5)
For i = 1 To UBound(ArrS)
If ArrS(i, 1) >= TuNgay And ArrS(i, 1) <= DenNgay And ArrS(i, 7) = MaHang Then
k = k + 1
ArrKQ(k, 1) = ArrS(i, 1): ArrKQ(k, 2) = ArrS(i, 3)
ArrKQ(k, 3) = ArrS(i, 6)
If Left(ArrS(k, 3), 2) = "PN" Then
ArrKQ(k, 4) = ArrS(i, 12): ArrKQ(k, 5) = ""
Else
ArrKQ(k, 4) = "": ArrKQ(k, 5) = ArrS(i, 12)
End If
End If
Next i
wSTheKho.Range("B15").Resize(UBound(ArrS), 5) = ArrKQ
Application.ScreenUpdating = True
End SubDạ không phải đâu ạ. mà tại cháu thấy chú SA_DQ rất nhiệt tình trả lười bài của cháu mặc dù cháu hỏi những câu rất buồn cười. Cháu cảm ơn chú nhiều. code đãn đúng với mong muốn của cháu.
Dạ vì cháu không có căn bản,cháu học bằng cách lúc rảnh cứ lên diễn đàn học mót nên cháu chưa tìm ra được chỗ sai.
Cháu làm thẻ kho này chỉ để so với thẻ cháu ghi tay bên ngoài theo tháng.
