vba转为int

如果你要将一个字符串转换为整数（即 VBA 中的 `Integer` 数据类型），可以使用 `CInt` 函数。例如：

Dim str As String
Dim num As Integer

str = "123"
num = CInt(str)

MsgBox num ' 输出 123

如果要将一个浮点数转换为整数，可以使用 `CInt` 或 `CLng` 函数。但是请注意，这可能会导致精度损失或溢出错误。例如：

Dim f As Double
Dim num As Integer

f = 123.45
num = CInt(f)

MsgBox num ' 输出 123

f = 65536
num = CInt(f) ' 这里会产生溢出错误

MsgBox num

如果你要将一个对象转换为整数，可以使用 `CInt` 或 `CLng` 函数，但是要确保该对象可以被转换为数字类型。例如：

Dim obj As Object
Dim num As Integer

Set obj = Range("A1") ' 假设 A1 中包含数字 123

num = CInt(obj)

MsgBox num ' 输出 123