Question

本人菜鸟一枚，请问在Excel VBA中，统计加粗字体的个数的自定义函数的代码这样写为什么不能得出结果？

Function CountBlod()
Dim rng As Range
For Each rng In Ranges
If rng.Font.Bold = True Then
CountBold = CountBold + 1
End If
Next rng
End Function
编写的时候没有提示错误，但是使用的时候总是显示”#VALUE!",比如，在空白单元格输入“=countBold（A1:A10)"，不能得出结果，而是显示”#VALUE!“

Answer 1

使用Excel中的按颜色“筛选”功能可以轻松实现统计颜色为红色的用户个数

下面以统计红色用户为例，详细讲解如何使用颜色筛选来做统计：
1.首先，选中需要统计数量的一列

2.选择”数据“菜单，再点击”筛选“按钮：

3.此时，选中列中的第一个单元格左侧出现了一个带三角的按钮，点击这个按钮，出现如下对话框：

4.选择”按颜色筛选“，此时会出现此列中所有的底色，选择需要统计数量的底色

5.此时，所有该底色的单元格都被筛选出来了

6.最后的统计个数就简单了，可以看有多少行，当然最简单的还是右下角的状态栏，如下图所示（当然别忘了取消表头，这个计数是包含了表头的，实际个数要-1哟）

Answer 2

VBA函数无法使用在单元格，只能在代码中操纵单元格，然后通过F8宏方式运行
附代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s(2) As String
s = Split(Cells(1, 2), ",")
Dim i As Integer, j As Integer
Dim Count As Integer
Count = 0
For i = 1 To s(0)
For j = 1 To s(1)
If Cells(i, j).Font.Bold = True Then Count = Count + 1
Next j
Next i
Cells(1, 2) = Count
End Sub