VBA函数精选之三十七（Str 和 CStr 函数）

蓝桥玄霜

第1.37例 Str 和CStr 函数
一、题目：
　　要求编写一段代码，运用 Str  函数或者CStr 函数来将一个数字转成字符串。
二、代码：
Sub 示例_1_037()
    Dim Zfc$
    Zfc = Str(459)
MsgBox Len(Zfc)
Zfc = Str(-459.65)
    Zfc = CStr(459)
MsgBox Len(Zfc)
Zfc = CStr(-459.65)
End Sub
三、代码详解
1、Sub 示例_1_037()：宏程序的开始语句。宏名为示例_1_037。
2、Dim Zfc$  ：声明变量Zfc 为字符串变量，$为字符串变量String的类型声明字符，其它有类型声明字符的数据类型请见第1.24例。
3、Zfc = Str(459) ：用Str 函数将数字转换成字符串，返回” 459”；注意数字前面会保留一个空位来表示正负。
4、MsgBox Len(Zfc) ：用消息框显示变量Zfc的长度，返回4；说明数字前面有一个空位。
5、Zfc = Str(-459.65) ：用Str 函数将数字转换成字符串，返回”- 459.65”；因为是负数有一个负号，所以没有另外的空位了。如果用消息框显示变量Zfc的长度，返回7。
6、Zfc = CStr(459) ：用CStr 函数将数字转换成字符串，返回”459”；注意数字前面没有一个空位。
7、MsgBox Len(Zfc) ：用消息框显示变量Zfc的长度，返回3；说明数字前面没有空位。

Str 函数
返回代表一数值的字符串 Variant (String)。

Str(number)
必要的 number 参数为一 Long，其中可包含任何有效的数值表达式。
说明
当一数字转成字符串时，总会在前头保留一空位来表示正负。如果 number 为正，返回的字符串包含一前导空格暗示有一正号。
使用 Format 函数可将数值转成必要的格式，如日期、时间、货币或其他用户自定义格式。与 Str 不同的是，Format 函数不包含前导空格来放置 number 的正负号。
注意 Str 函数只视句点 (.) 为有效的小数点。如果使用不同的小数点（例如，国际性的应用程序），可使用 CStr 将数字转成字符串。

CBool等类型转换函数
每个函数都可以强制将一个表达式转换成某种特定数据类型。
语法
CBool(expression) CByte(expression) CCur(expression) CDate(expression)
CDbl(expression) CDec(expression) CInt(expression) CLng(expression)
CSng(expression) CStr(expression) CVar(expression)
必要的 expression 参数可以是任何字符串表达式或数值表达式。

CStr 函数
可强制将一个表达式转换成字符串，返回代表一数值的字符串 Variant (String)。

CStr(expression)
CStr         String        依据 expression 参数返回一个字符串。

VBA函数精选之三十六（Sqr 函数）：http://club.excelhome.net/thread-382978-1-1.html

qiujwen

学习。。。

kepeng100

支持楼主,向楼主学习!

赵文竹

谢谢，学习了！！

lostinspace

呵呵，收藏了慢慢揣摩

anyewuzhe

谢谢楼主分享，学习了

anqinghu

谢谢楼主，一边查帖子一边解决问题，感觉eh真是太强大了！

zhy_ng

不断跟踪学习

bluexuemei

原来str和cstr是有区别的,
Str(number)
必要的 number 参数为一 Long，其中可包含任何有效的数值表达式。
说明
当一数字转成字符串时，总会在前头保留一空位来表示正负
用CStr 函数将数字转换成字符串，注意数字前面没有一个空位

imonior

学习了，多谢指导。。。