请把 只要是_左边的数字自动改粗体换颜色

刷卡机电脑监控

原来是这样的，




要改成这样，

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "\d+(?=_)"
        .Global = True
        For Each Rng In ActiveSheet.UsedRange.Offset(1)
            If .test(Rng.Value) Then
                For Each m In .Execute(Rng.Value)
                    Rng.Characters(m.firstindex + 1, Len(m)).Font.ColorIndex = 3
                    Rng.Characters(m.firstindex + 1, Len(m)).Font.Bold = True
                Next m
            End If
        Next Rng
    End With
    Application.ScreenUpdating = True
End Sub

liulang0808

测试模板.zip (21.73 KB, 下载次数: 8)

2023-6-16 15:43 上传

点击文件名下载附件

供参考

sdytsxd991122

刷卡机电脑监控

sdytsxd991122 发表于 2023-6-16 15:47

只要运行宏，所有的数字都变了。

sdytsxd991122

区域是固定的，怎么会所有的都变了

刷卡机电脑监控

sdytsxd991122 发表于 2023-6-16 15:47

从I列到P列，，图片上标记的数字也要一同变颜色，麻烦高手门了

liulang0808

刷卡机电脑监控

liulang0808 发表于 2023-6-16 17:05

end if
.pattern=\d+(?=[***]   ''这里边的两个字不会打

刷卡机电脑监控

liulang0808 发表于 2023-6-16 17:05

请上传原文件或源码，有一些字打不出来