无法将数字百分比转换为字符串

时间:2019-04-05 16:04:51

标签: excel vba format

我正在尝试运行“选择情况”,如果有问题的值属于指定范围,它将把值转换为字符串:

EX:if pr = 70% in cell,它将转换为字符串,形式为“ 70%”,而不是0.7

我注意到,仅在使用占位符变量时,它会转换字符串(即“ p= = CStr(pr * 100 & "%")”与“ pr = CStr(pr * 100 & "%")

Private RCN_pars, pr As Range  'databody range of parameters 

Select Case pr.Column
            Case Range("RCNS_U[Enhanced Contrast]").Column, 
     Range("RCNS_U[Recon Mode]").Column, _
            Range("RCNS_U[IQ Enhance]").Column, 
     Range("RCNS_U[Interval]").Column, Range("RCNS_U[Flip/Rotate]").Column
                GoTo NextCell
            Case Range("RCNS_U[ASiR-V]").Column, Range("RCNS_U[Phase]").Column  'convert percentages
                pr = CStr(pr * 100) & "%"
        End Select

pr被定义为数值70,而不是“ 70%”

1 个答案:

答案 0 :(得分:1)

尝试使用.NumberFormat的{​​{1}}属性,如下所示:

Range

在您的代码中是这样的:

pr.NumberFormat = "0.00%"