Câu chuyện của chúng ta là chuyển string thành số.
1. Kiểm tra có phải là số hay không bằng hàm sẵn có của VBA là isnumeric.
2. Nếu là số, chúng ta muốn convert, chúng ta có thể sử dụng hàm sẵn có của VBA là Val.
1. Kiểm tra có phải là số hay không bằng hàm sẵn có của VBA là isnumeric.
Mã:
Sub test1()
Dim s As String
s = "a"
If IsNumeric(s) = True Then
MsgBox "OK"
Else
MsgBox "Not Good"
End If
End Sub
Mã:
Sub test2a()
Dim s As String
Dim d As Double
s = "-0.02"
If IsNumeric(s) = True Then
d = Val(s)
Else
d = -1
End If
MsgBox d
End Sub