[已解决]Excel VBA当前编辑单元格怎么表示

Gordon_Gan

Sub A()     A=0.1     ???.NumberFormat = "0.00%" End Sub 大神，请问我要在一个单元格输入=A()，然后要让它以百分比显示，这个单元格就是我当前在编辑的单元格，但我不知道地址，上面那个问号里应该填什么呀，非常感谢。

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-7-28 19:41

1. SC = Format(SC / X, "0.00%")

复制代码

自定义函数，直接format就好了

跳转到最佳答案楼层

大灰狼1976

ActiveCell

Gordon_Gan

第一次上咱们这个论坛，发现好多大牛，以后多多在这学习。

Gordon_Gan

大灰狼1976 发表于 2017-7-28 16:50
ActiveCell

非常感谢大神指教，那个上面那个0.1已经按百分比显示了。
下面是我想实现一个功能：计算出指定颜色单元格在选定单元格中个数占比，我想以百分比形式显示出这个占比，后面补了这条代码：ActiveCell.NumberFormat = "0.00%"，但还是以小数显示，求大神赐教。

Function SC(ColorCell, Sum_range)
Application.Volatile
   '【参数1: ColorCell】      指定底色的单元格(单一单元格)
   '【参数2: Sum_range】   单元格矩形区域
   '【功能】返回指定单元格颜色在选中单元格个数的占比
  '
  SC = 0
  X = 0
   '下面开始统计第1参数对象区域中，所有相同底色单元格中的结果
    For i = 1 To Sum_range.Cells.Count '遍历区域中所有单元格
    If Sum_range.Cells(i).Rows.Hidden = False Then
    If Sum_range.Cells(i).Columns.Hidden = False Then
    X = X + 1 '统计未隐藏的单元格数
        If Sum_range.Cells(i).Interior.ColorIndex = ColorCell.Interior.ColorIndex Then '如果底色相同则
                SC = SC + 1 '仅仅统计同底色单元格的个数
                    '如果同底色单元格中为数值（含文本数值）时求总和。
                End If
             End If
        End If
    Next
                            SC = SC / X '计算占比
                        ActiveCell.NumberFormat = "0.00%"
End Function

苏子龙

1. SC = Format(SC / X, "0.00%")

复制代码

自定义函数，直接format就好了

Gordon_Gan

苏子龙 发表于 2017-7-28 19:41
自定义函数，直接format就好了

非常感谢大神，解决了