内在将文本转换为数字 - VBA

Question

如果我在要转换为数字的单元格中有文本，我通常会写一些像：

Sub ConvertToNumber()
    With ActiveCell
        .NumberFormat = "General"
        .Value = Trim(.Text)
    End With
End Sub

我最近发现我可以在没有任何自定义编码且没有任何 VBA的情况下执行转换。我可以通过从警告上下文菜单中选择转换为数字来执行此操作：

我的问题是如何从 VBA获得此功能？是否有任何＆＃34;内置＆＃34;与范围对象关联的属性或方法直接执行转换？

Answer 1

VBA.Conversion类包含许多转换函数，包括CInt()和CDbl()，它们似乎特别适合您的问题：

CBool(expression)
CByte(expression)
CChar(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CObj(expression)
CSByte(expression)
CShort(expression)
CSng(expression)
CStr(expression)
CUInt(expression)
CULng(expression)
CUShort(expression)