lỗi Type Mismatch (1 người xem)

[hoangphuong965]

anh chị giúp em với ạ. em cảm ơn

 

[befaint]

giúp

Giúp cái gì? Viết có đầu có đũa chứ?

Biến age khai báo kiểu dữ liệu Integer, nếu gặp lỗi thì do giá trị gán vào nó không đúng kiểu dữ liệu đã khi báo --> Kiểm tra dữ liệu tại ô có tọa độ: Dòng = giá trị tại ô F5 + 1, Cột = 3 xem nó là cái gì

 

[hoangphuong965]

Giúp cái gì? Viết có đầu có đũa chứ?

Biến age khai báo kiểu dữ liệu Integer, nếu gặp lỗi thì do giá trị gán vào nó không đúng kiểu dữ liệu đã khi báo --> Kiểm tra dữ liệu tại ô có tọa độ: Dòng = giá trị tại ô F5 + 1, Cột = 3 xem nó là cái gì

dạ, nó chỉ báo lỗi: Run-time eror 13... type mismatch...em đã thử hết các biến rồi nhưng vẫn không được

 

[befaint]

đã thử hết các biến rồi

Thử cái gì mới được? Hướng dẫn tìm nguyên nhân lỗi ở trên đó.

 

[moctriet]

dạ, nó chỉ báo lỗi: Run-time eror 13... type mismatch...em đã thử hết các biến rồi nhưng vẫn không được

Viết code kiểu đó sao không lỗi cho được :3

Option Explicit
Sub checkType()
Dim iNum As Integer
iNum = Range("A2") + 1
Debug.Print "TypeName(1): " & TypeName(1)
Debug.Print "TypeName(iNum): " & TypeName(iNum)
Debug.Print "TypeName(Range(''A2'')): " & TypeName(Range("A2"))
End Sub

TypeName(1): Integer
TypeName(iNum): Integer
TypeName(Range(''A2'')): Range

lastname, firstname kiểu String:
String (variable-length)10 bytes + string length

age kiểu Integer
Integer 2 bytes

 

[Quang_Hải]

View attachment 190620
anh chị giúp em với ạ. em cảm ơn

Chơi võ rừng nhé. Sửa dòng Dim Age As Integer thành Dim Age
Hy vọng hết lỗi

 

[befaint]

Sửa dòng Dim Age As Integer thành Dim Age
Hy vọng hết lỗi

Mới hi vọng thôi anh.
Nếu ô đó bị lỗi trên bảng tính (ví dụ: #DIV/0! chẳng hạn) thì dòng MsgBox kế tiếp lại dính lỗi "Type mismatch"

 

[SA_DQ]

Góp vui với bạn:

Sub XemLaiDi()
 Dim lName As String, fName As String
 Dim aGe As Integer, Rws As Integer

 If IsNumeric([F5].Value) Then
    Rws = 1 + Range("F5").Value
 Else
    MsgBox "Xéo Ngay!"
 End If
End Sub