[已解决]统计各颜色字符数

爱疯

BxLKhBi2.rar (4.04 KB, 下载次数: 2)

2009-9-22 09:22 上传

点击文件名下载附件
统计各颜色字符数

请问：怎样统计各颜色字符的个数？

谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2009-9-22 09:36

Sub MyCount()
    [d1:d3] = 0
    For i = 1 To Len(Range("A1"))
        Select Case Range("A1").Characters(Start:=i, Length:=1).Font.ColorIndex
            Case 1, xlAutomatic
                [d1] = [d1] + 1
            Case 3
                [d2] = [d2] + 1
            Case 10
                [d3] = [d3] + 1
        End Select
    Next i
End Sub

跳转到最佳答案楼层

lotte

留名关注，这个要学

amulee

Sub MyCount()
    [d1:d3] = 0
    For i = 1 To Len(Range("A1"))
        Select Case Range("A1").Characters(Start:=i, Length:=1).Font.ColorIndex
            Case 1, xlAutomatic
                [d1] = [d1] + 1
            Case 3
                [d2] = [d2] + 1
            Case 10
                [d3] = [d3] + 1
        End Select
    Next i
End Sub

huhaiyan

除了V  还有其他办法吗？

lotte

我估计除了V，无其他办法

寒江非雪

除了V还有办法~！就是不科学！

weiyi060419

蛮高深的了[em01]

爱疯

谢谢amulee！！

太神奇了，学习了！

PS：为什么微软会想到我会这么问，结果给加了这个属性，要不然 ...[em05]

amulee

没这个属性怎么会让你实现一个单元格内五颜六色呢

爱疯

QUOTE:

以下是引用amulee在2009-9-22 9:51:00的发言：
没这个属性怎么会让你实现一个单元格内五颜六色呢

(Start:=i, Length:=1). 特别是这个[em03]

还是想打听一下，如果不借用此属性的话，是不是就很难完成了呢[em09]