在 VBA 中将字符串转换为数字
本文将讨论如何在 VBA Excel 中将字符串转换为数字。有一个分步指南和许多示例供我们理解。
在 VBA 中将字符串转换为数字
在 VBA 代码中，必须将保存为文本的数字转换为实数。我们有许多转换选项。
我们可以将字符串转换为 Byte、Integer、Long、Single、Double、Currency 和 Decimal 数据类型的数字。我们将通过示例详细讨论每个转换。
在 VBA 中将字符串转换为字节
借助以下代码，我们可以轻松地将字符串转换为多个字节数据类型。
# vba
byte = CByte(str)
我们可以使用 CByte() 函数来实现这种转换。上面的语句有两个项目：CByte() 和字符串。
CByte() 函数强制字符串变为字节类型。CByte() 通常用于执行国际化的字符串到字节数据类型的转换。
简单来说，CByte() 通常区分不同的十进制/千位分隔符和许多取决于你计算机位置的货币选项。字节数据类型可以容纳的范围是 0 到 225。如果你的字符串不在此范围内，则会发生错误。
这是一个宏示例，其中我们将 convertStr 作为参数将字符串转换为字节。
# vba
Function convertStr(newStr As Variant)
MsgBox (CByte(newStr))
End Function
Sub newFunc()
convertStr ("12")
End Sub
输出：
在 VBA 中将字符串转换为整数
借助以下语句，你可以轻松地将字符串转换为整数数据类型的数字。该函数的语法如下所示。
# vba
CInt(newStr)
建议使用 Clnt() 函数将字符串更改为整数数据类型。此函数强制字符串更改为整数数据类型。
如果字符串包含分数，此函数会将其转换为整数。如果分数正好是 0.4，此函数会将其更改为最接近的偶数。
例如：
# vba
0.4 will become 0.
1.6 and 2.4 both will become 2.
3.7 and 4.3 will become 4
Clnt() 通常用于执行国际通用的字符串转换为整数数据类型。简单来说，Clnt() 通常区分不同的十进制/千位分隔符和许多取决于我们计算机位置的货币选项。
整数数据类型可以容纳数字的范围是 -32,768 到 32,767。如果你的字符串不在此范围内，则会发生错误。
让我们通过一个示例并使用 CInt() 函数，如下所示。此示例将 newStr 设置为将字符串更改为整数的参数，如下所示。
# vba
Function convertToInteger(newStr As Variant)
MsgBox (CInt(newStr))
End Function
Sub newFunc()
convertToInteger ("12.5")
End Sub
输出：
在 VBA 中将字符串转换为长整型
我们可以使用 CLng() 函数来实现这种转换。该函数的语法如下所示。
# vba
CLng(Str)
当我们的目标是将字符串更改为几种长数据类型时，我们可以使用 CLng() 函数。此语句中的项目是 CLng() 和字符串。
此函数强制将字符串更改为长数据类型。
如果一个字符串包含一个分数，这个函数会将它四舍五入。如果分数恰好为 0.4，此函数会将其更改为最接近的偶数，如下所示。
# vba
0.4 will become 0.
1.6 and 2.4 both will become 2.
3.7 and 4.3 will become 4
CLng() 通常用于执行国际化的字符串到长数据类型的转换。简单来说，CLng() 通常区分不同的十进制/千位分隔符和许多取决于你计算机位置的货币选项。
整数数据类型可以容纳数字的范围是 -2,147,483,648 到 2,147,483,647。如果你的字符串不在此范围内，则会发生错误。
让我们看一个例子并使用 CLng() 函数。在此示例中，我们将 newStr 设置为参数以将字符串更改为长字符串，如下所示。
# vba
Function convertToLong(newStr As Variant)
MsgBox (CLng(newStr))
End Function
Sub newFunc()
convertToLong ("15.7")
End Sub
输出：
长数据类型与整数数据类型只有一件事不同。较大的数字在长数据类型中是可以接受的。
但是以前内存不够用，不推荐使用长数据类型。
在现代，记忆不再是问题。我们可以使用 long 数据类型而不是整数。
在 VBA 中将字符串转换为单个字符串
借助以下语法，我们可以轻松地将字符串转换为多个单一数据类型，如下所示。
# vba
CSng(str)
我们可以使用 CSng() 函数来实现这种转换。上面的语句中有两个项目，CSng() 和字符串。
此函数强制将字符串更改为单一数据类型。
CSng() 通常用于执行国际化字符串到单一数据类型的转换。CSng() 通常区分不同的十进制/千位分隔符和取决于计算机位置的货币选项。
单个数据类型可以容纳浮点数的范围是
- 当值为负时，3.402823E38 到 -1.401298E-45
- 值为正时为 1.401298E-45 至 3.402823E38
如果你的字符串不在此范围内，则会出现错误。如下所示，让我们来看一个示例，其中我们将 newStr 设置为参数以将字符串更改为单个字符串。
# vba
Function convertToSingle(newStr As Variant)
MsgBox (CSng(newStr))
End Function
Sub newFunc()
convertToSingle ("1.3")
End Sub
输出：
在 VBA 中将字符串转换为双精度
借助以下语句，我们可以轻松地将字符串转换为多种双精度数据类型。该函数的语法如下所示。
# vba
CDbl(str)
建议使用 CDbl() 函数将字符串更改为双精度数据类型。此函数强制将字符串更改为双精度数据类型。
CDbl() 通常用于执行国际感知的字符串转换为双精度数据类型。
简而言之，CDbl() 通常区分独特的十进制/千位分隔符和许多取决于你计算机位置的货币选项。
double 数据类型可以容纳浮点数的范围如下。
- -1.79769313486231E308 到 -4.94065645841247E-324 当值为负数时。
- 当值为正时，4.94065645841247E-324 到 1.79769313486232E308。
如果我们的字符串不在此范围内，则会出现错误。如下所示，让我们通过一个示例，在该示例中，我们将 newStr 设置为参数以将字符串更改为双精度。
# vba
Function convertToDouble(newStr As Variant)
MsgBox (CDbl(newStr))
End Function
Sub newFunc()
convertToDouble ("1.345")
End Sub
输出：
在 VBA 中将字符串转换为货币
借助以下语句，你可以轻松地将字符串转换为多种货币数据类型。该函数的语法如下所示。
# vba
CCur(newStr)
建议使用 CCur() 函数将字符串更改为货币数据类型。此函数强制将字符串更改为货币数据类型。
CCur() 通常用于执行国际通用的字符串转换为货币数据类型。
这意味着 CCur() 通常区分独特的十进制/千位分隔符和许多取决于你计算机位置的货币选项。货币数据类型可以容纳 10,000 的整数。
因此，一种货币可以在小数点左侧容纳 15 个数字，在小数点右侧容纳 4 个数字。因此，一种货币可以容纳数字的范围是：
-922,337,203,685,477.5808 至 922,337,203,685,477.5807。
如果你的字符串不在此范围内，则会出现错误。
如下所示，让我们来看一个示例，在该示例中，我们将 newStr 设置为参数以将字符串更改为货币。
# vba
Function convertToCurrency(newStr As Variant)
msgBox(CCur(newStr))
End Function
在 VBA 中将字符串转换为十进制
我们可以使用下面的语句来实现这种转换。
# vba
CDec(newStr)
当我们的目标是将字符串更改为多种十进制数据类型时，我们可以使用 CDec() 函数。此函数强制将字符串更改为 Variant 数据类型的十进制数据子类型。
简单来说，CDec() 将返回一个更改为 Decimal 子类型的变体。
CDec() 通常用于将字符串转换为十进制数据类型。这意味着 CDec() 通常区分不同的十进制/千位分隔符和许多取决于你计算机位置的货币选项。
十进制数据类型可以携带具有 10 的可变幂的整数。幂表示可以出现在小数点右侧的位数。
小数可以保存的值的范围如下所示。
- 当比例为 0 时，即不存在小数，范围从 79,228,162,514,264,337,593,543,950,335 到 79,228,162,514,264,337,593,543,950,335。
- 有 28 位小数时，最大值和最小值分别为 +7.9228162514264337593543950335 和 -7.9228162514264337593543950335。
- 不包含零值的最小值是 -0.00000000000000000000000000001 和 0.0000000000000000000000000001。
如下所示，让我们通过一个示例，其中我们将 newStr 设置为参数以将字符串更改为小数。
# vba
Function convertToDecimal(newStr As Variant)
msgBox(CDec(newStr))
End Function
