[已解决]Range("A1").Style = "Percent"是什么意思

爱疯

2Xvco2vM.rar (8.86 KB, 下载次数: 0)

2009-9-30 18:01 上传

点击文件名下载附件
Range("A1").Style = "Percent"是什么意思

Sub aaa()  '当激活单元格是修改格式的单元格时,正确
    [a1] = [c1] / [b1]
    Range("A1").Select
    Selection.Style = "Percent"
    Selection.NumberFormatLocal = "0.000%"
End Sub

Sub bbb() '当激活单元格不是修改格式的单元格时,出现错误
    [a10].Select
    [a1] = [c1] / [b1]
    Range("A1").Style = "Percent"   '错误发生在此句执行后
    Selection.NumberFormatLocal = "0.000%"
End Sub

请问

1、如题

2、为什么蓝字处，运行后，结果会错误？

谢谢！

[此贴子已经被作者于2009-9-30 18:03:48编辑过]

最佳答案

月排行榜 / 总排行榜

雨狐

2009-9-30 18:09

好象不对:

Sub bbb() '当激活单元格不是修改格式的单元格时,出现错误

    [a10].Select
    [a1] = [c1] / [b1]
   
    Range("A1").Style = "Percent"   '错误发生在此句执行后
    [a1].NumberFormatLocal = "0.000%"
End Sub

[此贴子已经被作者于2009-9-30 18:14:04编辑过]

跳转到最佳答案楼层

雨狐

好象不对:

Sub bbb() '当激活单元格不是修改格式的单元格时,出现错误

    [a10].Select
    [a1] = [c1] / [b1]
   
    Range("A1").Style = "Percent"   '错误发生在此句执行后
    [a1].NumberFormatLocal = "0.000%"
End Sub

[此贴子已经被作者于2009-9-30 18:14:04编辑过]

雨狐

大概和format差不多,批量修改单元格格式时format  好像不行,要用Style

lotte

占位学习一下，做个记号

sd6310514

学习下~~~~~

爱疯

谢谢雨狐！

发了贴才想起，忘查帮助 ... 问题1，解决了。

问题2，现在想起了，

执行完Range("A1").Style = "Percent" 后，A1被设为无小数位的百分比，

接着执行Selection.NumberFormatLocal = "0.000%"后，A10被设为含3位小数的百分比。

所以，设置style和单元格是否被激活无关。2个过程，不同的是bbb()中，添加一句 [a10].Select，以及省略一对select(select和selection)。[a10].Select是为造成修改单元格未是非激活的，而添加的。当时并没有[a10].Select时，我发现，有时2个过程结果一样，有时又不一样，其实造成区别的真相是：有时我先中了A1，又是又没有。可当时我没察觉，误以为是单元格非激活状态时，设置style不行，于是提的第2问题。

至于style和format的区别，还没想过，谢谢雨狐提醒。

PS：又一次粗心的经历[em11]