将文本转换为数字 – VBA

如果我想将单元格中的文本转换为数字，我通常会写下如下的子文件：

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

我最近发现，我可以在没有任何自定义编码和没有任何VBA的情况下执行转换。 我可以通过从警告上下文菜单中select转换为数字来做到这一点：

我的问题是如何从VBA获得这个function？ 是否有任何“内置” 属性或方法与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)