再次修改需求，对单元格整体字体颜色判断:红或黑2种情况（排除数字和标点的颜色）

qlmgu

再次感谢出手相助和关注的老师，各位的程序可以应用到精确的颜色判断。顺告，我已经找到可以整体判断单元格颜色三种状态（black,red,mixed）的程序，且运行速度很快。再次感谢各位。

原来提出一个求助方案，得到多位老师出手相助。因为样本的文字太多，程序判断结果都很准确，但就是判断字体颜色的时间太长太长。现修改求助方案，希望继续得到老师们的指点和帮助。原方案给各位老师增加麻烦了，请原谅。

根据前面老师的建议：不需要对具体字色进行判断，只需要对整个单元格的颜色进行判断，如果不是黑色或红色，就可以写混合色，而不需要对所有文字颜色进行逐个判断。万一需要逐个词判断是否混合色，就直接留空，不判断也可以：留空默认为混合色，因为我的文件只有这三种情况，没有其他颜色了。希望这样速度可以快些，使程序在准确判断的情况下，可以缩短运行时间。--原谅我太啰嗦了，因为原来是我的需求不符合程序要求。谢谢各位。


数据排放如下：
A列为文本的编号；B列为测试文本，其中部分字体颜色是红色；3.对具体行的二种情况进行总体判断（即黑色或红色），而不需要对具体字色进行判断，也不需要统计red数。如果不是黑色和红色就默认为混合。判断结果返回到C列：黑色，红色或留空。希望对标点符号和数字的颜色进行排除，即不判断这些字符的颜色。

附件的程序速度较快，就是返回结果和行号序号需要调整。再次感谢各位老师。





判断字体颜色忽略标点数字再求助.rar (18.73 KB, 下载次数: 8)

2023-2-26 09:34 上传

点击文件名下载附件

追风少年丶斌

多循环判断几次就行了

qlmgu

追风少年丶斌 发表于 2023-2-26 10:04
多循环判断几次就行了

感谢追风少年丶斌老师回复。可以请你出手设计程序吗，谢谢

追风少年丶斌

Sub JudgeColor()
    Dim rng As Range
    Dim i As Long
    Dim j As Long
    Dim strColor As String
    Dim blnRed As Boolean
    Dim blnBlack As Boolean
    Set rng = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    For i = 1 To rng.Rows.Count
        blnRed = False
        blnBlack = False
        For j = 1 To Len(rng.Cells(i, 1).Value)
            strColor = rng.Cells(i, 1).Characters(j, 1).Font.Color
            If strColor = vbRed Then
                blnRed = True
            ElseIf strColor = vbBlack Then
                blnBlack = True
            End If
        Next j
        If blnRed And blnBlack Then
            rng.Cells(i, 3).Value = "混合色"
        ElseIf blnRed Then
            rng.Cells(i, 3).Value = "红色"
        ElseIf blnBlack Then
            rng.Cells(i, 3).Value = "黑色"
        End If
    Next i
End Sub

追风少年丶斌

有个回复审核中，需要忽略标点符号

qlmgu

追风少年丶斌 发表于 2023-2-26 11:00
有个回复审核中，需要忽略标点符号

感谢您的帮助，等待程序

qlmgu

追风少年丶斌 发表于 2023-2-26 10:58
Sub JudgeColor()
    Dim rng As Range
    Dim i As Long

反馈老师：我在测试程序，由于我的文本字数太多（单元格最多字为500，最少字为4个，平均129字多，4000到5000个单元格），程序还在运行中。

阿白124

给你个思路 把标点符号去掉，整体判单单元格字体颜色，全是红色或者黑色可以得到具体颜色，混合色为null，这样可以快速得到单元格颜色结果，如果需要具体统计字数，也可以用同样方法使用二分法加快程序速度。

qlmgu

阿白124 发表于 2023-2-26 14:37
给你个思路 把标点符号去掉，整体判单单元格字体颜色，全是红色或者黑色可以得到具体颜色，混合色为null， ...

感谢阿白124老师的回复和建议。我遇到程序时间太长就是这样处理的，去掉标点符号和数字，就是因为看到附件里的那个程序很快可以判断3种情况，我才再次来求助的。可能是我的需求不合理了。谢谢您。

qlmgu

阿白124 发表于 2023-2-26 14:37
给你个思路 把标点符号去掉，整体判单单元格字体颜色，全是红色或者黑色可以得到具体颜色，混合色为null， ...

您的建议很好，我不需要统计字数，能否请您直接出手相助，感谢您。