Không chạy được code cho thẻ kho

[Ngoctham1994]

Chào mọi người, em có đoạn code sau để chạy thẻ kho, không biết bị lỗi đọan nào, nhờ anh chị xem giúp ạ.
Option Explicit
Sub LocXuatNhap()
Dim ShN As Worksheet, ShX As Worksheet, ShTK As Worksheet
Dim arr(), kq(), i As Long, a As Long, lr As Long
Dim TuNgay As Date, DenNgay As Date, MaHC As String


Set ShN = Sheets("NHAP")
Set ShX = Sheets("XUAT")
Set ShTK = Sheets("THEKHO")
TuNgay = ShTK.Range("J1").Value
DenNgay = ShTK.Range("J2").Value
MaHC = ShTK.Range("B3").Value
With ShN 'xu ly sheet nhap
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A8:S" & lr).Value
ReDim kq(1 To 10000, 1 To 5)

For i = 1 To UBound(arr, 1)
If arr(i, 4) >= TuNgay And arr(i, 4) <= DenNgay And arr(i, 8) = MaHC Then
a = a + 1
kq(a, 1) = arr(i, 4) 'ngay
kq(a, 2) = arr(i, 2) 'so ct
kq(a, 3) = arr(i, 7) 'ncc/nguoi xuat
kq(a, 4) = arr(i, 12) 'sl nhap
'kq(a, 1) = arr(i, 4) 'sl xuat
End If
Next i
End With

With ShX 'xu ly sheet xuat
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A8:S" & lr).Value
For i = 1 To UBound(arr, 1)
If arr(i, 4) >= TuNgay And arr(i, 4) <= DenNgay And arr(i, 8) = MaHC Then
a = a + 1
kq(a, 1) = arr(i, 4) 'ngay
kq(a, 2) = arr(i, 2) 'so ct
kq(a, 3) = arr(i, 7) 'ncc/nguoi xuat
'kq(a, 4) = arr(i, 12) 'sl nhap
kq(a, 1) = arr(i, 4) 'sl xuat
End If
Next i
End With
'dan ra sheets
If a > 10000 Then
MsgBox "Ket qua vuot qua gioi han", vbCritical
Exit Sub
End If
With ShTK
If a > 0 Then
.Range("A11:E10010").ClearContents 'xoa trang truoc khi dan
.Range("A11").Resize(a, 5).Value = kq 'dan ket qua ra sheet
End If
End With
End Sub

anh chị cho em hỏi, em có tham khảo code trên youtube để chạy thẻ kho nhưng không chạy được, nhờ anh chị xem giùm em code sai chỗ nào với ạ.

Bài đã được tự động gộp: 3/5/23

em bị báo là file nặng nên ko gửi dc file, nhờ anh chị xem giúp em đoạn code

 

[SA_DQ]

em bị báo là file nặng nên ko gửi dc file, nhờ anh chị xem giúp em đoạn code

(1) Lý do không chính đáng; Không thể giả lập file ư?
(2) Đầu câu nên viết hoa/bông, ngỏ hầu tỏ ra tôn trọng người đọc bài của mình;
(3) Nên đưa các dòng lệnh macro vô thẻ [ code] . . .[/code ] hay [PHP ]. . . [/ php]
Để chứng tỏ mình luôn lịch sự với người đọc & cộng đồng làm nên diễn đàn (DĐ);

Nếu bạn muốn nhận được giúp đỡ nhanh từ DĐ thì nện sửa lại bài viết theo 3 ý trên.

 

[Ngoctham1994]

(1) Lý do không chính đáng; Không thể giả lập file ư?
(2) Đầu câu nên viết hoa/bông, ngỏ hầu tỏ ra tôn trọng người đọc bài của mình;
(3) Nên đưa các dòng lệnh macro vô thẻ [ code] . . .[/code ] hay [PHP ]. . . [/ php]
Để chứng tỏ mình luôn lịch sự với người đọc & cộng đồng làm nên diễn đàn (DĐ);

Nếu bạn muốn nhận được giúp đỡ nhanh từ DĐ thì nện sửa lại bài viết theo 3 ý trên.

Dạ em xin lỗi do em sơ ý quá, nhưng file của em bị báo như thế ạ. Có thể hướng dẫn em giả lập file không ạ?

Bài đã được tự động gộp: 3/5/23

Chào mọi người, em có đoạn code sau để chạy thẻ kho, không biết bị lỗi đọan nào, nhờ anh chị xem giúp ạ.
Option Explicit
Sub LocXuatNhap()
Dim ShN As Worksheet, ShX As Worksheet, ShTK As Worksheet
Dim arr(), kq(), i As Long, a As Long, lr As Long
Dim TuNgay As Date, DenNgay As Date, MaHC As String


Set ShN = Sheets("NHAP")
Set ShX = Sheets("XUAT")
Set ShTK = Sheets("THEKHO")
TuNgay = ShTK.Range("J1").Value
DenNgay = ShTK.Range("J2").Value
MaHC = ShTK.Range("B3").Value
With ShN 'xu ly sheet nhap
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A8:S" & lr).Value
ReDim kq(1 To 10000, 1 To 5)

For i = 1 To UBound(arr, 1)
If arr(i, 4) >= TuNgay And arr(i, 4) <= DenNgay And arr(i, 8) = MaHC Then
a = a + 1
kq(a, 1) = arr(i, 4) 'ngay
kq(a, 2) = arr(i, 2) 'so ct
kq(a, 3) = arr(i, 7) 'ncc/nguoi xuat
kq(a, 4) = arr(i, 12) 'sl nhap
'kq(a, 1) = arr(i, 4) 'sl xuat
End If
Next i
End With

With ShX 'xu ly sheet xuat
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A8:S" & lr).Value
For i = 1 To UBound(arr, 1)
If arr(i, 4) >= TuNgay And arr(i, 4) <= DenNgay And arr(i, 8) = MaHC Then
a = a + 1
kq(a, 1) = arr(i, 4) 'ngay
kq(a, 2) = arr(i, 2) 'so ct
kq(a, 3) = arr(i, 7) 'ncc/nguoi xuat
'kq(a, 4) = arr(i, 12) 'sl nhap
kq(a, 1) = arr(i, 4) 'sl xuat
End If
Next i
End With
'dan ra sheets
If a > 10000 Then
MsgBox "Ket qua vuot qua gioi han", vbCritical
Exit Sub
End If
With ShTK
If a > 0 Then
.Range("A11:E10010").ClearContents 'xoa trang truoc khi dan
.Range("A11").Resize(a, 5).Value = kq 'dan ket qua ra sheet
End If
End With
End Sub

 

[SA_DQ]

. . . . . .. Có thể hướng dẫn em giả lập file không ạ?

Được thôi, ta bắt đầu nha:
Bạn lập ra 4 trang tính với các tên tương ứng:
'DMuc'; 'Nhap'; 'Xuat'; & cuối cùng là 'TKho'
Dữ liệu trong 'DMuc' cần có các trường/cột tối thiểu sau
[STT], [Mã HH], [Tên HH], [Tồn Đầu]; Ngoài ra có thể có thêm các cột/trường: [ĐVT], [Tồn Min], . . . .
Ví dụ:

Quản lý kho ver2.0

STT	Mã vật tư	Tên vật tư	ĐVT	Số lượng đầu kỳ
(1)	(2)	(3)	(4)	(5)
1	10CL-A	BANANA-MALAYSIA-CLASS A-10CL	Thùng	1
2	10CL-B	BANANA-MALAYSIA-CLASS B-10CL	Thùng	2
3	10C_	BANANA-KOREA-CLASS A-10CP	Thùng	3
4	11CL-B	BANANA-MALAYSIA-CLASS B-11CL	Thùng	4
5	12CL-A	BANANA-MALAYSIA-CLASS A-12CL	Thùng	5
6	12CL-B	BANANA-MALAYSIA-CLASS B-12CL	Thùng	6
7	12CP	BANANA-KOREA-CLASS A-12CP	Lố	7
8	13CL-B	BANANA-MALAYSIA-CLASS B-13CL	Lố	8
9	14CL-A	BANANA-MALAYSIA-CLASS A-14CL	Lố	9
10	14CL-B	BANANA-MALAYSIA-CLASS B-14CL	Lố	10
11	15CL-B	BANANA-MALAYSIA-CLASS B-15CL	Lố	11
12	16CL-B	BANANA-MALAYSIA-CLASS B-16CL	Lố	12
13	17CL-B	BANANA-MALAYSIA-CLASS B-17CL	Lố	13
14	18CL-A	BANANA-MALAYSIA-CLASS A-18CL	Lố	14
15	18CL-B	BANANA-MALAYSIA-CLASS B-18CL	Thùng	15
16	18CP	BANANA-KOREA-CLASS A-18CP	Thùng	16
17	19CL-B	BANANA-MALAYSIA-CLASS B-19CL	Thùng	17
18	20CL-B	BANANA-MALAYSIA-CLASS B-20CL	Thùng	18
19	21CL-B	BANANA-MALAYSIA-CLASS B-21CL	Chậu	19
20	22CL-B	BANANA-MALAYSIA-CLASS B-22CL	Chậu	20
21	5H_	BANANA-KOREA-CLASS A-5H	Chậu	21
22	6H_	BANANA-KOREA-CLASS A-6H	Chậu	22
23	8D_	BANANA-KOREA-DOLITA-8D	Chậu	23
24	9CL-B	BANANA-MALAYSIA-CLASS B-9CL	Thùng	24
25	9D_	BANANA-KOREA-DOLITA-9D	Chục	25
26	V5H	BANANA-JAPAN-CLASS A-V5H	Chục	26
27	V6H	BANANA-JAPAN-CLASS A-V6H	Chục	27
28	VCPD19	BANANA-JAPAN-CLASS A-VCPD19	Chục	28
29	VCPE23	BANANA-JAPAN-CLASS A-VCPE23	Chục	29
30	VCPG29	BANANA-JAPAN-CLASS A-VCPG29	Thùng	30

 

[Ngoctham1994]

Được thôi, ta bắt đầu nha:
Bạn lập ra 4 trang tính với các tên tương ứng:
'DMuc'; 'Nhap'; 'Xuat'; & cuối cùng là 'TKho'
Dữ liệu trong 'DMuc' cần có các trường/cột tối thiểu sau
[STT], [Mã HH], [Tên HH], [Tồn Đầu]; Ngoài ra có thể có thêm các cột/trường: [ĐVT], [Tồn Min], . . . .
Ví dụ:

Quản lý kho ver2.0

STT	Mã vật tư	Tên vật tư	ĐVT	Số lượng đầu kỳ
(1)	(2)	(3)	(4)	(5)
1	10CL-A	BANANA-MALAYSIA-CLASS A-10CL	Thùng	1
2	10CL-B	BANANA-MALAYSIA-CLASS B-10CL	Thùng	2
3	10C_	BANANA-KOREA-CLASS A-10CP	Thùng	3
4	11CL-B	BANANA-MALAYSIA-CLASS B-11CL	Thùng	4
5	12CL-A	BANANA-MALAYSIA-CLASS A-12CL	Thùng	5
6	12CL-B	BANANA-MALAYSIA-CLASS B-12CL	Thùng	6
7	12CP	BANANA-KOREA-CLASS A-12CP	Lố	7
8	13CL-B	BANANA-MALAYSIA-CLASS B-13CL	Lố	8
9	14CL-A	BANANA-MALAYSIA-CLASS A-14CL	Lố	9
10	14CL-B	BANANA-MALAYSIA-CLASS B-14CL	Lố	10
11	15CL-B	BANANA-MALAYSIA-CLASS B-15CL	Lố	11
12	16CL-B	BANANA-MALAYSIA-CLASS B-16CL	Lố	12
13	17CL-B	BANANA-MALAYSIA-CLASS B-17CL	Lố	13
14	18CL-A	BANANA-MALAYSIA-CLASS A-18CL	Lố	14
15	18CL-B	BANANA-MALAYSIA-CLASS B-18CL	Thùng	15
16	18CP	BANANA-KOREA-CLASS A-18CP	Thùng	16
17	19CL-B	BANANA-MALAYSIA-CLASS B-19CL	Thùng	17
18	20CL-B	BANANA-MALAYSIA-CLASS B-20CL	Thùng	18
19	21CL-B	BANANA-MALAYSIA-CLASS B-21CL	Chậu	19
20	22CL-B	BANANA-MALAYSIA-CLASS B-22CL	Chậu	20
21	5H_	BANANA-KOREA-CLASS A-5H	Chậu	21
22	6H_	BANANA-KOREA-CLASS A-6H	Chậu	22
23	8D_	BANANA-KOREA-DOLITA-8D	Chậu	23
24	9CL-B	BANANA-MALAYSIA-CLASS B-9CL	Thùng	24
25	9D_	BANANA-KOREA-DOLITA-9D	Chục	25
26	V5H	BANANA-JAPAN-CLASS A-V5H	Chục	26
27	V6H	BANANA-JAPAN-CLASS A-V6H	Chục	27
28	VCPD19	BANANA-JAPAN-CLASS A-VCPD19	Chục	28
29	VCPE23	BANANA-JAPAN-CLASS A-VCPE23	Chục	29
30	VCPG29	BANANA-JAPAN-CLASS A-VCPG29	Thùng	30

Được thôi, ta bắt đầu nha:
Bạn lập ra 4 trang tính với các tên tương ứng:
'DMuc'; 'Nhap'; 'Xuat'; & cuối cùng là 'TKho'
Dữ liệu trong 'DMuc' cần có các trường/cột tối thiểu sau
[STT], [Mã HH], [Tên HH], [Tồn Đầu]; Ngoài ra có thể có thêm các cột/trường: [ĐVT], [Tồn Min], . . . .
Ví dụ:

Quản lý kho ver2.0

STT	Mã vật tư	Tên vật tư	ĐVT	Số lượng đầu kỳ
(1)	(2)	(3)	(4)	(5)
1	10CL-A	BANANA-MALAYSIA-CLASS A-10CL	Thùng	1
2	10CL-B	BANANA-MALAYSIA-CLASS B-10CL	Thùng	2
3	10C_	BANANA-KOREA-CLASS A-10CP	Thùng	3
4	11CL-B	BANANA-MALAYSIA-CLASS B-11CL	Thùng	4
5	12CL-A	BANANA-MALAYSIA-CLASS A-12CL	Thùng	5
6	12CL-B	BANANA-MALAYSIA-CLASS B-12CL	Thùng	6
7	12CP	BANANA-KOREA-CLASS A-12CP	Lố	7
8	13CL-B	BANANA-MALAYSIA-CLASS B-13CL	Lố	8
9	14CL-A	BANANA-MALAYSIA-CLASS A-14CL	Lố	9
10	14CL-B	BANANA-MALAYSIA-CLASS B-14CL	Lố	10
11	15CL-B	BANANA-MALAYSIA-CLASS B-15CL	Lố	11
12	16CL-B	BANANA-MALAYSIA-CLASS B-16CL	Lố	12
13	17CL-B	BANANA-MALAYSIA-CLASS B-17CL	Lố	13
14	18CL-A	BANANA-MALAYSIA-CLASS A-18CL	Lố	14
15	18CL-B	BANANA-MALAYSIA-CLASS B-18CL	Thùng	15
16	18CP	BANANA-KOREA-CLASS A-18CP	Thùng	16
17	19CL-B	BANANA-MALAYSIA-CLASS B-19CL	Thùng	17
18	20CL-B	BANANA-MALAYSIA-CLASS B-20CL	Thùng	18
19	21CL-B	BANANA-MALAYSIA-CLASS B-21CL	Chậu	19
20	22CL-B	BANANA-MALAYSIA-CLASS B-22CL	Chậu	20
21	5H_	BANANA-KOREA-CLASS A-5H	Chậu	21
22	6H_	BANANA-KOREA-CLASS A-6H	Chậu	22
23	8D_	BANANA-KOREA-DOLITA-8D	Chậu	23
24	9CL-B	BANANA-MALAYSIA-CLASS B-9CL	Thùng	24
25	9D_	BANANA-KOREA-DOLITA-9D	Chục	25
26	V5H	BANANA-JAPAN-CLASS A-V5H	Chục	26
27	V6H	BANANA-JAPAN-CLASS A-V6H	Chục	27
28	VCPD19	BANANA-JAPAN-CLASS A-VCPD19	Chục	28
29	VCPE23	BANANA-JAPAN-CLASS A-VCPE23	Chục	29
30	VCPG29	BANANA-JAPAN-CLASS A-VCPG29	Thùng	30

Dạ em gửi file ạ

 

[BuiQuangThuan]

em bị báo là file nặng nên ko gửi dc file, nhờ anh chị xem giúp em đoạn code

1.Tên sheet đưa vào trong modul cũng không đúng.
2.Sheet Nhap thi ngày tháng đúng là arr(i,4) chứ sheet Xuất thì ngày tháng không phải là arr(i,4). Hãy tìm hiểu và sửa chỗ đó
Nói chung code trên có lẽ chưa đáp ứng được điều kiện của bài toán. Chứ không phải code của bạn đã từng chạy được mà giờ nó bị lỗi

 

[Hoàng Tuấn 868]

Hình như không ai để ý, đây là chuyên mục "Hàm và công thức Excel"

 

[Ngoctham1994]

1.Tên sheet đưa vào trong modul cũng không đúng.
2.Sheet Nhap thi ngày tháng đúng là arr(i,4) chứ sheet Xuất thì ngày tháng không phải là arr(i,4). Hãy tìm hiểu và sửa chỗ đó
Nói chung code trên có lẽ chưa đáp ứng được điều kiện của bài toán. Chứ không phải code của bạn đã từng chạy được mà giờ nó bị lỗi

Dạ em cám ơn anh, em sẽ tìm hiểu lại ạ

Bài đã được tự động gộp: 3/5/23

Hình như không ai để ý, đây là chuyên mục "Hàm và công thức Excel"

Chắc em không để ý, cám ơn anh đã góp ý ạ.

 

[SA_DQ]

Chắc em không để ý, cám ơn anh đã góp ý ạ.

/(/goài ra bạn còn cần nhắn tin nhờ các Mod hay SMOD chuyển dùm cho đúng đề mục qui định.
Nếu không e rằng sẽ vô sọt rác.