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

Question

如果我想将单元格中的文本转换为数字，我通常会写一些小字幕，例如：

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

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

我的问题是如何从 VBA 获得此功能？ 是否有任何“内置”Property 或 Method 与Range 直接执行转换的对象？？

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)