请教大神：VBA怎样把指定颜色（红色）内容修改为另一种颜色（绿色）？谢！

白云无尽9987

请教大神：VBA怎样把指定颜色（红色）内容修改为另一种颜色（绿色）？谢！.rar (9.63 KB, 下载次数: 6)

2022-12-28 21:39 上传

点击文件名下载附件

风中的我脸

练习修改字符颜色

相见是缘8

风中的我脸 发表于 2022-12-28 22:01
练习修改字符颜色

老师！

呀！我怎么不成呢？抄错了？


Sub Character()
    Dim i As Long, s As Long, LngRow As Long
    LngRow = Cells(Rows.Count, "c").End(xlUp).Row
    Range("c8:c" & LngRow).Copy Range("d8")
    For i = 8 To LngRow
        With Cells(i, "d")
            For s = 1 To Len(.Value)
                If .Characters(s, 1).Font.Color = vbRed Then
                    Characters(s, 1).Font.Color = vbGreen
                End If
            Next
        End With
    Next
End Sub

nicleyuan

相见是缘8 发表于 2022-12-29 07:33
老师！呀！我怎么不成呢？抄错了？

Sub Character()
    Dim i As Long, s As Long, LngRow As Long
    LngRow = Cells(Rows.Count, "c").End(xlUp).Row
    Range("c8:c" & LngRow).Copy Range("d8")
    For i = 8 To LngRow
        With Cells(i, "d")
            For s = 1 To Len(.Value)
                If .Characters(s, 1).Font.Color = vbRed Then
                    .Characters(s, 1).Font.Color = vbGreen
                End If
            Next
        End With
    Next
End Sub

刘大川

相见是缘8 发表于 2022-12-29 07:33
老师！呀！我怎么不成呢？抄错了？

倒数第六行
Chararcters(s,1).Font.Color= vbGreen   最前面少了个点，with语句语法

相见是缘8

刘大川 发表于 2022-12-29 12:16
倒数第六行
Chararcters(s,1).Font.Color= vbGreen   最前面少了个点，with语句语法

啊，感谢老师指点！

相见是缘8

nicleyuan 发表于 2022-12-29 10:36
Sub Character()
    Dim i As Long, s As Long, LngRow As Long
    LngRow = Cells(Rows.Count, "c") ...

感谢老师！