Lỗi sub or function not define ? (1 người xem)

[boydaigai]

E không hiểu sao đoạn code này có phải sai cú pháp không mà lại hiện lên vậy?

Sub abc()
Dim Dic, Dic1 As Object
Dim sArr(), dArr(), tArr()
Dim I, J, K As Long
Dim fDate As Date
Dim eDate As Date
Dim Tem, Tem1 As String


Set Dic = CreateObject(

 

[SA_DQ]

Bạn nên đưa file mà khi chạy macro báo lỗi lên đi;

. . . . . . .

 

[Hau151978]

Dòng đầu sau Sub abc() phải xuống dòng, dòng cuối bỏ dấu ] đi.

 

[boydaigai]

File này không có dữ liệu , đã update lên post1

 

[SA_DQ]

Nếu tác giả đoạn mã này là bạn, thì bạn đáng chế trách; Còn không thì . . .

Thứ nhất: Bạn nên thêm câu lệnh

 Option Explicit

& bấm {F5} để tìm & xử lí hết lỗi không đáng có;

Thứ đến, Bạn xem câu lệnh:

sArr = S01.Range("A3:R65000").Value      '???'
fDate = S20.Range("D6").Value       '???'
fDate = S20.Range("F6").Value       '???'

đối chiếu xem bạn đã có những trang tính tương ứng mà macro cần chưa?

Trước mắt chúng ta với bạn tạm là vậy.
Hẹn tái ngộ!

 

[Hau151978]

Dòng dArr(K, 3) = dArr(K, 3) + sArrr(I, 18) cần sửa thành dArr(K, 3) = dArr(K, 3) + sArr(I, 18)

 

[VetMini]

Bạn gõ cẩu thả, có những tên biến bị sai.
Chịu khó tìm cách dò chỗ đó. Nếu không biết thì dò tìm từ trên xuống dưới xem có tên biến nào bị gõ sai hay không.

Tôi không muốn chỉ thẳng biến đó cho bạn vì muốn bạn tự học debug lấy.

(ui cha, chưa kịp lên thì có người mách trước rồi)

 

[boydaigai]

Option ExplicitSub abc()
Dim Dic, Dic1 As Object
Dim sArr(), dArr(), tArr()
Dim I, J, K As Long
Dim fDate As Date
Dim eDate As Date
Dim Tem, Tem1 As String




Set Dic = CreateObject(

 

[VetMini]

Thuật toán chẳng hiểu sao ở chỗ nào mà kết quả ko thấy j hết

Ít nhất phải biết bạn muốn làm cái gì thì mới nói chuyện thuật toán được.

 

[boydaigai]

Ít nhất phải biết bạn muốn làm cái gì thì mới nói chuyện thuật toán được.

Ý e là như sau :

Duyệt từng số hiệu ở vùng [A12:A174] ở sheet CDPS đối chiếu sang cột K ở sheet form

=

 

[boydaigai]

Giải được bài này thì e sẽ có cơ sở giải tiếp các các bảng tổng hợp khác nữa. Giúp e nha

 

[gtri]

Ý e là như sau :

Duyệt từng số hiệu ở vùng [A12:A174] ở sheet CDPS đối chiếu sang cột K ở sheet form

=> nếu cột H < fdate thì cộng dồn số tiền cột R trả sang cột nợ đầu năm (cột D) sheet CDPS
=> nếu fdate=< cột H =<edate thì cộng dồn số tiền cột R trả sang cột nợ phát sinh(cột E) năm sheet CDPS

Tương tự :
Duyệt từng số hiệu ở vùng [A12:A174] ở sheet CDPS đối chiếu sang cột M ở sheet form

=> nếu cột H < fdate thì cộng dồn số tiền cột R trả sang cột có đầu năm (cột D) sheet CDPS
=> nếu fdate=< cột H =<edate thì cộng dồn số tiền cột R trả sang cột có phát sinh(cột E) năm sheet CDPS

Bạn chưa add gì vào Dic và Dic1 thì không có dữ liệu so sánh được.

 

[boydaigai]

Ai giải hộ e bài này cho e khai sáng đầu óc được không ? - - - - - -
Ví dụ như bạn này cũng cần ạ http://www.giaiphapexcel.com/forum/showthread.php?97632-Làm-bảng-cân-đối-số-phát-sinh-vba

Bài này có thể giải bằng công thức như bạn ấy nhưng cực hình lắm
e giải hộ bài của bạn ấy bằng find method (dữ liệu 2000 dòng) thì bị lỗi tràn bộ nhớ

 

[ChanhTQ@]

Mình cũng định thử với FIND(), nhưng không có nghiệp vụ, nên đành chờ!

 

[boydaigai]

Option Explicit
Private Sub sddn()
Dim Sh As Worksheet
Dim cls, rng, sRng As Range
Dim Rg0 As Range
Dim MyAdd As String
Set Sh = ThisWorkbook.Worksheets(