感谢大神帮改一下代码把冒号前文字变红字加粗

lz79206966

感谢大神帮改一下代码把冒号前文字变红字加粗


VBA冒号前文字变红加粗.zip (15.38 KB, 下载次数: 14)

2024-10-26 11:32 上传

点击文件名下载附件

taller

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下，，，
Sub FormatCell()
    Dim color As Long
    Dim target As String
    Dim source As Range
    Dim current As Range
    Set source = Range("A1:A30")
    target = "："
    color = -16776961
    For Each current In source
        With current.Font
            .ColorIndex = 1
            .Bold = False
        End With
        Start = 0
        s = current.Value
        x = Len(s) - Len(Replace(s, Chr(10), ""))
        For i = 1 To x + 1
            If Start = 0 Then
                ret = 1
            Else
                ret = InStr(ret, current.Value, Chr(10)) + 1
            End If
            ret1 = InStr(ret, current.Value, Chr(10))
            Start = InStr(ret, current.Text, target)           '+ 1
            If ret = 0 Or Start = 0 Then Exit For
            If ret1 < Start And ret1 <> 0 Then ret = InStr(ret, current.Value, Chr(10)) + 1
            Length = Len(current.Text) - InStr(1, current.Text, target)
            With current.Characters(Start:=ret, Length:=Start - ret + 1).Font
                .color = color
                .Bold = True
            End With
        Next
    Next
    Beep
End Sub

准提部林

文本項目首段...標紅加粗..by.准提部林
Sub Test_A1()
Dim xR As Range, i&, x%, y%
Application.ScreenUpdating = False
For Each xR In Range("a1:a9")
    For i = 1 To Len(xR)
        x = InStr(i, xR, "：")
        If x = 0 Then Exit For
        y = InStrRev(xR, Chr(10), x)
        With xR.Characters(y + 1, x - y).Font
             .ColorIndex = 3
             .Bold = True
        End With
        i = i + x + 1
    Next i
Next
End Sub

今铭昔

wanghui834

学习了

山海风云轩

准提部林 发表于 2024-10-26 14:58
文本項目首段...標紅加粗..by.准提部林
Sub Test_A1()
Dim xR As Range, i&, x%, y%

大佬，如果只要求将第一个“：”及之前的内容加粗、标红，改怎么设置呢？

GG函数

EX TOOL 插件里面有你想要的功能。全部功能，免费让打工人白嫖。https://cg520.lanzoue.com/b01d50fza 密码6666

准提部林

山海风云轩 发表于 2024-10-27 13:34
大佬，如果只要求将第一个“：”及之前的内容加粗、标红，改怎么设置呢？

是每一單元格的前第一個??

請提供樣本檔及模擬//

或貼上幾個例子~~