将中文“：”符号前面连续的中文汉字，变成黑色。

zyhui1961

将中文“：”符号前面连续的中文汉字，变成黑色。

补充一下：代码只对选中单元格启作用（可以同时选中多个区域）

tiger1976

Sub lll()

    Dim fos As Object
    Dim str As String
    Dim a
    Dim i As Integer
   
    Set fos = CreateObject("VBSCRIPT.REGEXP")
    str = Range("b8")

    With fos
        .Global = True
        .IgnoreCase = True
        .Pattern = "[^0-9。（]+?："
        For Each a In .Execute(str)
           i = InStr(1, Range("b8"), a, 1)
           k = Len(a)
           Range("b8").Characters(i, k).Font.ColorIndex = 0
        Next
    End With
   
End Sub

cjc209

就用这个区匹配 ([\u4e00-\u9fa5]+)(?=：)

zyhui1961

cjc209 发表于 2023-3-12 14:13
就用这个区匹配 ([%u4e00-%u9fa5]+)(?=：)

说了不怕你笑话，我是小学二年级毕业。只会做伸手党，真的不好意思！能帮一下吗？真的谢谢了！

cjc209

做好了               

cjc209

就是正则匹配 找出位置  上指定颜色就可以了

剑指E

~~~~~~~~~~

zyhui1961

cjc209 发表于 2023-3-12 14:27
做好了

非常好，太感谢了！
再就是能不能把那个中文“：”也带上变成黑色？

zyhui1961

剑指E 发表于 2023-3-12 14:54
~~~~~~~~~~

非常完美，真心感谢！！！

zyhui1961

剑指E 发表于 2023-3-12 14:54
~~~~~~~~~~

请教一下：下面两个事件能不能同时使用？怎么才能同时使用？
Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)
Private Sub Worksheet_Change(ByVal Tg As Range)
因为我前面已经有了一个Private Sub Workbook_Sheetchange(ByVal Sh As Object, ByVal Target As Range)事件