excel vba 如何把字符转换为数字

jj_whwzj

sub text1() i = 0.7
j = vba.format( i  ,"0.00%")
k  = j *1    '这句代码错误，如何让j可以参与运算,变成数字
[a1] = j
'如何把[a1]单元格设置为 数字型的 百分比,而不是文本型
end sub

zhjlgaojuan

clng(),或者cdbl(),或者cint()

zopey

[a1] = 0.7
Range("A1").NumberFormatLocal = "0.00%"

jj_whwzj

zhjlgaojuan 发表于 2018-6-22 14:10
clng(),或者cdbl(),或者cint()

不行 ，类型不匹配

zhjlgaojuan

sub text1() i = 0.7
j = vba.format( i  ,"0.00%")
k  =CDbl(Left(j, Len(j) - 1)) / 100 *1    '这句代码错误，如何让j可以参与运算,变成数字
[a1] = CDbl(Left(j, Len(j) - 1)) / 100
'如何把[a1]单元格设置为 数字型的 百分比,而不是文本型
end sub

不行????

yaojil

Sub text1()
i = 0.7
j = Format(i, "0%")
k = Val(j) * 1    '这句代码错误，如何让j可以参与运算,变成数字
Sheet1.[a1] = j

'如何把[a1]单元格设置为 数字型的 百分比,而不是文本型
End Sub

jj_whwzj

zopey 发表于 2018-6-22 14:14
[a1] = 0.7
Range("A1").NumberFormatLocal = "0.00%"

在 vba 里  用一个 m 代替 [a1]单元格 就会出错，不能运算，怎么解

jj_whwzj

zhjlgaojuan 发表于 2018-6-22 14:18
sub text1() i = 0.7
j = vba.format( i  ,"0.00%")
k  =cdbl( j )*1    '这句代码错误，如何让j可以参 ...

嗯 是的  ，有个% 的 就是转换不了 。

东亚五金

Sub text1()
'Dim j%
i = 0.7
j = VBA.Format(i, "0.00%")
k = Evaluate(j) ' * 1    '这句代码错误，如何让j可以参与运算,变成数字
[a1] = j
'如何把[a1]单元格设置为 数字型的 百分比,而不是文本型
End Sub

lsdongjh

1. Sub text1()
   
2.     i = 0.7
   
3.     '下面这句纯粹多余！！
   
4.     'j = VBA.Format(i, "0.00%")
   
5.    
   
6.     '直接赋值就成
   
7.     j = i
   
8.    
   
9.     k = j * 1
   
10.     '设置显示单元格的格式为 百分比
    
11.     Range("A1").NumberFormatLocal = "0.00%"
    
12.    
    
13.     [a1] = j
    
14. 
    
15. End Sub

复制代码