[已解决]VBA中如何调用Value函数？

lxh1988lxh

VBA中如何调用Value函数？

最佳答案

月排行榜 / 总排行榜

香川群子

2014-2-12 20:58

一句话，VBA中对应工作表函数=Value(txt)的VBA函数是 =Val()

而且这个函数功能比工作表Value函数强大的多……具体看帮助文件。

Val 函数
      

返回包含于字符串内的数字，字符串中是一个适当类型的数值。

语法

Val(string)

必要的 string 参数可以是任何有效的字符串表达式.

说明

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198：

Val("    1615 198th Street N.E.")

在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。

Val("&HFFFF")

注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。

跳转到最佳答案楼层

不信这样还重名

呃，如果是你想用VBA把单元格中填入公式，公式中包涵了VALUE函数，那么你只需要把原本的公式两头加引号即可
例如：
range("a1")="=VALUE(C1)"
如果你想把单元格中的值运于运算，那么不用调用VALUE来得到单元格中的值了（调也调不成），直接用单元格的.value就可以了
例如：
range("a1")=Range("c1").Value + 1

不信这样还重名

呃，单纯的单元格值引用时，上面那个.value可有可无，即
range("a1")=Range("c1")+ 1
如果C1里面是个文本型的数字，通过运算后会自动转成数字，而如果里面不是个文本型数字，运算时也会报错，类型不匹配

lxh1988lxh

不信这样还重名 发表于 2014-2-9 18:38
呃，如果是你想用VBA把单元格中填入公式，公式中包涵了VALUE函数，那么你只需要把原本的公式两头加引号即可 ...

呵呵，我想把这个文本型的数字在VBA中变成数字放到变量y里，Right(Range("a" & x).MergeArea.Address, 1)，你那个方法好像不行

不信这样还重名

lxh1988lxh 发表于 2014-2-9 21:42
呵呵，我想把这个文本型的数字在VBA中变成数字放到变量y里，Right(Range("a" & x).MergeArea.Address, 1) ...

楼主上个附件吧，我测试了一下，同样是文本型数值，下面这个是可以的，不知楼主具体什么问题
Sub test()
Dim st As String
    st = "12"
    Range("a" & st).Select
End Sub

lxh1988lxh

这个是附件，按钮8中的y变量是要得到的数字，y变量要用于下面的分析，里面我没写。

不信这样还重名

lxh1988lxh 发表于 2014-2-9 22:56
这个是附件，按钮8中的y变量是要得到的数字，y变量要用于下面的分析，里面我没写。

楼主，里面没东西呀，不带这么玩儿的{:191:}

lxh1988lxh

有呀，在VBA中，没看到按钮吗？

不信这样还重名

lxh1988lxh 发表于 2014-2-10 21:33
有呀，在VBA中，没看到按钮吗？

EXCEL文件都没有，更何谈按钮。。。、

香川群子

一句话，VBA中对应工作表函数=Value(txt)的VBA函数是 =Val()

而且这个函数功能比工作表Value函数强大的多……具体看帮助文件。

Val 函数
      

返回包含于字符串内的数字，字符串中是一个适当类型的数值。

语法

Val(string)

必要的 string 参数可以是任何有效的字符串表达式.

说明

Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。但是函数可以识别进位制符号 &O（八进制）和 &H（十六进制）。空白、制表符和换行符都从参数中被去掉。

下面的返回值为 1615198：

Val("    1615 198th Street N.E.")

在下面的代码中，Val 为所示的十六进制数值返回十进制数值 -1。

Val("&HFFFF")

注意 Val 函数只会将句点（.）当成一个可用的小数点分隔符。当使用不同的小数点分隔符时，如在国际版应用程序中，代之以 CDbl 来把字符串转换为数字。