Tuesday, June 18, 2013

Lỗi 13 : Type mismatch trong VBA

Lỗi 13 : Type mismatch trong VBA


Lỗi 13 : Type mismatch trong VBA

Posted: 18 Jun 2013 02:41 AM PDT

Chào các bác;
Em hiện đang phải làm 1 công vc là:
cột D là ngày bắt đầu trả tiền, cột E là ngày cuối cùng trả tiền, Cột G là khoản tiền phải trả.
Nếu cột A có cùng số Numero, Ngày ở cột D (i+1) là ngày nối sau cột E (i) thì sẽ phải nhóm nó lại thành 1 dòng, tức là khi xuất ra, ngày đầu tiên tra tien vẫn là D(i), ngày kết thúc phải là E(i+1), G(i)+G(i+1).
Em đã viết đc cái code VBA dưới đây, chạy trên 1 bộ số liệu jong thế này ngon lành, riêng bộ này, lúc đầu e cũng chạy đc, sau có dừng lại vì số liệu sai. Em đã sửa lại hoàn chỉnh, chạy thì bị lỗi 13. Hôm đầu tiên chạy số liệu này nó cứ báo lỗi 13, sau hôm sau lại chạy đc, sau lại k chạy đc.
Em có search trên mạng có thể do số liệu k đồng đều, e đã cất cong sửa từ file gốc để định dạng số liệu trong cùng 1 cột là như nhau nhưng vẫn k đc. Nhờ các bác jup e với ạ.
Em cũng đã gỡ hết add in đi mà cũng k ăn thua.
Code VBA
Sub Culmul()
Dim i As Integer
For i = 2 To 2057
If Feuil1.Range("A" & i) <> 0 And Feuil1.Range("A" & i) = Feuil1.Range("A" & i + 1) And Feuil1.Range("D" & i + 1) - Feuil1.Range("E" & i) = 1 Then
Feuil1.Range("G" & i + 1) = Feuil1.Range("G" & i + 1) + Feuil1.Range("G" & i)
Feuil1.Range("D" & i + 1) = Feuil1.Range("D" & i)
Feuil1.Rows(i).Delete
i = i - 1
End If
Feuil1.Range("A" & i + 1 & ":R" & i + 1).Select
Next i
Feuil1.Range("A2:R2").Select
End Sub
...................
Cảm ơn các bác nhiều
Tập tin đính kèm

No comments:

Post a Comment

Dịch vụ quản trị website|Chăm sóc website Thiết kế web giá rẻ Dịch vụ SEO giá rẻ|SEO chuyên nghiệp Công ty thiết kế web chuyên nghiệp Dịch vụ nâng cấp website|Sửa chữa website