Xử lý giúp em lỗi Type missmatch

Liên hệ QC

Phanvuhaiduong

Thành viên chính thức
Tham gia
18/4/17
Bài viết
65
Được thích
2
Các bác sửa dùm em,
Em khai báo biến S là Variant rồi mà nó vẫn báo lỗi là sao ạ
Sheet Nvalue ạ
 

File đính kèm

  • BASIC-CGV.xlsm
    54.2 KB · Đọc: 7
Xóa hết code trong Module1

Thay 2 dòng
PHP:
n(i, 1) = a(i, 1)

s = s + b(j, 2)
thành
PHP:
n(i, 1) = Val(a(i, 1))

s = s + Val(b(j, 2))
 
Xóa hết code trong Module1

Thay 2 dòng
PHP:
n(i, 1) = a(i, 1)

s = s + b(j, 2)
thành
PHP:
n(i, 1) = Val(a(i, 1))

s = s + Val(b(j, 2))
Dạ em cảm ơn anh, cách đó thì kết quả chạy ra lại quá rối,
Em cũng có một file tương tự mà sao nó vẫn chạy bình thường anh ạ
Đều là tự viết cả nên em phát hiện được sai khác cái gì
 

File đính kèm

  • BASIC-CGV.xlsm
    54.7 KB · Đọc: 2
Dạ em cảm ơn anh, cách đó thì kết quả chạy ra lại quá rối,
Em cũng có một file tương tự mà sao nó vẫn chạy bình thường anh ạ
Đều là tự viết cả nên em phát hiện được sai khác cái gì
1/ Khác nhau do khai báo: Dim n(100, 2) As Variant
2/ Code bạn không cần dùng 3 mảng
Dim a(100, 2) As Variant
Dim b(100, 2) As Variant
Dim n(100, 2) As Double
Dùng biến bình thường
3/ Nên có lệnh exit For của cả 2 vòng for
 
Rối hay bình thường là ở code bạn viết, chứ mình không làm gì để thay đổi cái đó của bạn. Mình chỉ làm một động tác duy nhất là:

"Xử lý giúp em lỗi Type missmatch"
Bạn làm được hay quá. Tôi thì hôm qua đến giờ vẫn chưa tìm ra được Cô Match là ai.
 
1/ Khác nhau do khai báo: Dim n(100, 2) As Variant
2/ Code bạn không cần dùng 3 mảng
Dim a(100, 2) As Variant
Dim b(100, 2) As Variant
Dim n(100, 2) As Double
Dùng biến bình thường
3/ Nên có lệnh exit For của cả 2 vòng for
Em cảm ơn ạ
Em tìm la lỗi rồi, thực chất nó không phải như thế, như kiểu có ma ấy ạ, em để 2 đoạn code cùng một module
Khóa đoạn bị lỗi lại, chạy đoạn ko không lỗi thì file cho kết quả bình thường
Sau đó em lại khóa đoạn vừa chạy xong đó, chuyển xuống dưới chạy đoạn bị lỗi ban nãy, thì nó lại chạy ngon lành, (em sửa lại từng chứ giống nhau i chang luôn )
Đến lúc này em xóa luôn đoạn trên đi, cho đoạn dưới chạy một mình thì lại lỗi như cũ,
cứ kiểu như là phải có sự hiện diện của cái đoạn code đúng kia thì đoạn code lỗi nó mới chạy, còn chỉ có mình nó là nó không chạy , em cũng đến ạ cái đoạn code này luôn ạ :))
Bài đã được tự động gộp:

Bạn làm được hay quá. Tôi thì hôm qua đến giờ vẫn chưa tìm ra được Cô Match là ai.
đoạn code của em nó giống như có ma ấy, bác tin không, em không đùa đâu
Bài đã được tự động gộp:

Bạn làm được hay quá. Tôi thì hôm qua đến giờ vẫn chưa tìm ra được Cô Match là ai.
Cuối cùng nó là chố này ạ :
If Sheets("Nvalue").Cells(i + 3, 2) = "" Then
Nếu em để 0 là nó báo lỗi, còn để như trên là hết lỗi
 
Bạn làm được hay quá. Tôi thì hôm qua đến giờ vẫn chưa tìm ra được Cô Match là ai.
Cô này ở Việt Nam vừa đoạt giải thi Excel toàn cầu mà. Món tủ của cô này là hàm Match nên bạn bè quốc tế gọi là Miss Match.
 
Web KT
Back
Top Bottom