Lỗi code bThang = Format(vung(i, 4), "m") (1 người xem)

[ninhmoon]

Cho e gửi lại đề tài
Em vẫn bị lối tại vị trí fill đỏ, khi em nhập thêm mới dữ liệu
tại sheet USD E không lọc được kết quả!
Mọi người có thể giúp e khắc phục nó không?
Em gửi file đính kèm bên dưới
[GPECODE=vb]
Sub Loc_1122NKC() 'loc 1122NKC
Dim ws As Worksheet
Dim vung(), dArr()
Dim i As Long, K As Long
Dim tenNganhang As String


Set ws = ThisWorkbook.Sheets("1122NKC") 'dang dung` sheet name <> sheet code name
Set wsUSD = ThisWorkbook.Sheets("USD") 'dang dung` sheet name <> sheet code name
'nha loc
'With ws.ListObjects("Table1").AutoFilter
'If .FilterMode Then .ShowAllData 'phai mo? khoa' truoc'
'End With

vung = ws.Range("tbl_1122NKC").Value '.Range(.Range("A65000").End(xlUp), .Range("l12")).Value


'ket qua xuat' ra chi? co' 10 cot.
'ReDim dArr(1 To UBound(vung, 1), 1 To 10) 'xac dinh kich thuoc mang
ReDim dArr(1 To UBound(vung, 1), 1 To 9)

tenNganhang = wsUSD.Range("USD_tenNH").Value

Dim bThang As Byte

For i = 1 To UBound(vung, 1)
If vung(i, 2) = tenNganhang Then

bThang = Format(vung(i, 4), "m")

If bThang >= Range("USD_tuthang") And bThang <= Range("USD_denthang") Then

K = K + 1

dArr(K, 1) = vung(i, 2) 'ngay ghi so
dArr(K, 2) = vung(i, 3) 'chung tu` (so)
dArr(K, 3) = vung(i, 4) 'chung tu` (ngay thang)
dArr(K, 4) = vung(i, 5) 'dien giai
dArr(K, 5) = vung(i, 6) 'ma KH
dArr(K, 6) = vung(i, 7) 'So phat sinh (Debit)
dArr(K, 7) = vung(i, 8) 'So phat sinh (Credit)
dArr(K, 8) = vung(i, 9) 'Tong tien (No)
dArr(K, 9) = vung(i, 10) 'Tong tien co'
'cot so' 10 la` cthuc se~ do Table tu* dong. Fill xuong'

End If
End If
Next i

If K Then
wsUSD.Select
Range("tbl_USD").Offset(1).EntireRow.Delete 'xoa' row (ko xoa' row 1 trong Table)
'copy gia tri cua? mang? dArr tai. o^ nam ben duoi' header 2 la` 2 o^
Range("tbl_USD[[#Headers],[2]]").Offset(2).Resize(K, 9) = dArr
Erase dArr
End If

MsgBox "Loc_1122NKC xong", vbInformation

End Sub


[/GPECODE]

 

[ninhmoon]

Cho e gửi lại đề tài
Em vẫn bị lối tại vị trí fill đỏ, khi em nhập thêm mới dữ liệu
tại sheet USD E không lọc được kết quả!
Mọi người có thể giúp e khắc phục nó không?
Em gửi file đính kèm bên dưới
[GPECODE=vb]
Sub Loc_1122NKC() 'loc 1122NKC
Dim ws As Worksheet
Dim vung(), dArr()
Dim i As Long, K As Long
Dim tenNganhang As String


Set ws = ThisWorkbook.Sheets("1122NKC") 'dang dung` sheet name <> sheet code name
Set wsUSD = ThisWorkbook.Sheets("USD") 'dang dung` sheet name <> sheet code name
'nha loc
'With ws.ListObjects("Table1").AutoFilter
'If .FilterMode Then .ShowAllData 'phai mo? khoa' truoc'
'End With

vung = ws.Range("tbl_1122NKC").Value '.Range(.Range("A65000").End(xlUp), .Range("l12")).Value


'ket qua xuat' ra chi? co' 10 cot.
'ReDim dArr(1 To UBound(vung, 1), 1 To 10) 'xac dinh kich thuoc mang
ReDim dArr(1 To UBound(vung, 1), 1 To 9)

tenNganhang = wsUSD.Range("USD_tenNH").Value

Dim bThang As Byte

For i = 1 To UBound(vung, 1)
If vung(i, 2) = tenNganhang Then

bThang = Format(vung(i, 4), "m")

If bThang >= Range("USD_tuthang") And bThang <= Range("USD_denthang") Then

K = K + 1

dArr(K, 1) = vung(i, 2) 'ngay ghi so
dArr(K, 2) = vung(i, 3) 'chung tu` (so)
dArr(K, 3) = vung(i, 4) 'chung tu` (ngay thang)
dArr(K, 4) = vung(i, 5) 'dien giai
dArr(K, 5) = vung(i, 6) 'ma KH
dArr(K, 6) = vung(i, 7) 'So phat sinh (Debit)
dArr(K, 7) = vung(i, 8) 'So phat sinh (Credit)
dArr(K, 8) = vung(i, 9) 'Tong tien (No)
dArr(K, 9) = vung(i, 10) 'Tong tien co'
'cot so' 10 la` cthuc se~ do Table tu* dong. Fill xuong'

End If
End If
Next i

If K Then
wsUSD.Select
Range("tbl_USD").Offset(1).EntireRow.Delete 'xoa' row (ko xoa' row 1 trong Table)
'copy gia tri cua? mang? dArr tai. o^ nam ben duoi' header 2 la` 2 o^
Range("tbl_USD[[#Headers],[2]]").Offset(2).Resize(K, 9) = dArr
Erase dArr
End If

MsgBox "Loc_1122NKC xong", vbInformation

End Sub


[/GPECODE]

EM quên không đính kèm, e để file ở bên dưới. Mong đuợc sự giúp đỡ của mọi người
File E để bên dưới

 

[dhn46]

Lỗi là do vùng của bạn

vung = ws.Range("tbl_1122NKC").Value

Khi code duyệt tới vị trí thứ 365 cột 4, tương ứng Excel dong 375 thì gặp ô trống nên code sau bị lỗi.

        bThang = Format(vung(i, 4), "m")

Để khắc phục thì "vung" của bạn nên sử dụng Name động hoặc dùng Code để xác định.

 

[SA_DQ]

VBE báo lỗi câu đó, nhưng có thể lỗi thật sự là ở dòng lệnh trước nó.

Theo mình bạn cần xem lại dòng lệnh này:

  vung = ws.Range("tbl_1122NKC").Value '.Range(.Range("A65000").End(xlUp), .Range("l12")).Value'

Bạn hỏi xem thử địa chỉ cụ thể của
ws.Range("tbl_1122NKC") là vùng nào?

Như mình thì sau tìm kiếm 1 hồi trực tiếp trên trang tính, không thấy vùng nào có tên gán là "tbl_1122NKC" cả?

(Thậm chí cũng không có vùng nào mang tên "I12" như trong fần chú thích của câu lệnh luôn)

(Theo mình, nếu macro này không fải do bạn viết, thì bạn cần tìm mọi cách hiểu nội dung từng dòng lệnh trong nớ

 

[ninhmoon]

Theo mình bạn cần xem lại dòng lệnh này:

  vung = ws.Range("tbl_1122NKC").Value '.Range(.Range("A65000").End(xlUp), .Range("l12")).Value'

Bạn hỏi xem thử địa chỉ cụ thể của
ws.Range("tbl_1122NKC") là vùng nào?

Như mình thì sau tìm kiếm 1 hồi trực tiếp trên trang tính, không thấy vùng nào có tên gán là "tbl_1122NKC" cả?

(Thậm chí cũng không có vùng nào mang tên "I12" như trong fần chú thích của câu lệnh luôn)

(Theo mình, nếu macro này không fải do bạn viết, thì bạn cần tìm mọi cách hiểu nội dung từng dòng lệnh trong nớ

Vâng macro không pải em viết mà là thầy của e viết, mỗi tội giờ thầy ấy đang bận nên e tự sửa. mà sửa tới sửa lui cũng bị hỏng.
Do viết cho mấy cái file có gần cấu trúc giông nhau, nên những comments vẫn giữ nguyên.
Bình thường nó vẫn chạy nhưng e nghĩ nó bị quá mức số row giới hạn gì đó nên không chạy được nữa.

 

[ninhmoon]

Lỗi là do vùng của bạn

vung = ws.Range("tbl_1122NKC").Value

Khi code duyệt tới vị trí thứ 365 cột 4, tương ứng Excel dong 375 thì gặp ô trống nên code sau bị lỗi.

        bThang = Format(vung(i, 4), "m")

Để khắc phục thì "vung" của bạn nên sử dụng Name động hoặc dùng Code để xác định.

Sau khi e xóa cái vùng trống ở ô 375 thì nó chạy bình thường.
Làm thế nào để tạo ra name động hoặc dùng code để xác định ah?
Cái này e không biết rõ.

 

[ninhmoon]

Theo mình bạn cần xem lại dòng lệnh này:

  vung = ws.Range("tbl_1122NKC").Value '.Range(.Range("A65000").End(xlUp), .Range("l12")).Value'

Bạn hỏi xem thử địa chỉ cụ thể của
ws.Range("tbl_1122NKC") là vùng nào?

Cái Range("tbl_1122NKC") E có tạo tại sheet "1122NKC" sao Bác SA_DQ không thấy nhỉ?