如何统计一列中加粗的单元格个数？不用VBA能实现吗？

lster

好像类似的问题必须用VBA实现？请问怎么写啊。。。

我工作中正好遇到这个问题，希望大家能教我一招。。

kepeng100

定义名称AA    =GET.CELL(20, Sheet1!$A$1)

这只能传会这个单元格是否加粗, 然后用countif函数,就可以计算出TRUE的个数了

kepeng100

不过我用名称定义,我知道应该能一步到位的,请高手出招,期待中................

lster

回2楼的。

我试了，没有搞定。。。

你测试了吗？

northwolves

QUOTE:

以下是引用lster在2008-10-24 22:42:00的发言：
回2楼的。

我试了，没有搞定。。。

你测试了吗？

2楼这个意思:

Sub Macro2()
[c1].Select
 ActiveWorkbook.Names.Add Name:="aa", RefersToR1C1:="=GET.CELL(20, Sheet1!RC1)"
 [c1] = "=aa"
[c1].AutoFill Destination:=[c1].Resize([a6536].End(xlUp).Row), Type:=xlFillDefault
End Sub

lster

　　Function CountFormat(rngSel As Range) As Long
　　 Dim cel As Object
　　 Dim lCount As Long
　　 For Each cel In rngSel
　　 'If cel.Font.Bold = True Then lCount = lCount + 1
　　 If cel.Font.Underline <> xlUnderlineStyleNone Then lCount = lCount + 1
　　 Next
　　 CountFormat = lCount
　　End Function
　　
　　
　　把这段VBA复制到标准模块中。然后在单元格中调用这个函数=CountFormat()，参数是范围。就可以得到结果。。。
　　
　　版主交我的，发出来给大家共享，如果有人遇到类似问题，可以参照！（这个函数目前是找出有下划线的，他上面那句找出加粗的被注释了）

hlgtomcat

lz，你好，我也碰上和你一样的问题，但是我对于标准模块很不了解，您发的说明我不太会用。我经过修改后用到我的表里无法运行。

Function CountFormat("b4:ca4") As Long
     Dim cel As Object
     Dim lCount As Long
     For Each cel In rngSel
     If cel.Font.Bold = True Then lCount = lCount + 1     
     Next
     CountFormat = lCount
    End Function
我在我的表里使用后出现：缺少标识符  的问题，请问我做的哪里错了？谢谢。