[已解决]【四】截取特定字符，并改变颜色

mn860429

6KYaKxgU.rar (9.24 KB, 下载次数: 24)

2010-6-24 13:25 上传

点击文件名下载附件
vba菜鸟求助

开始学习vba，很多不懂得，希望大家帮助[em04]

[此贴子已经被作者于2010-7-10 12:40:44编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2010-6-24 13:33

Sub 变色()
    Dim i&
    For i = 1 To Range("A65536").End(xlUp).Row
        Cells(i, 1).Characters(Start:=Len(Cells(i, 1)) - 4 + 1, Length:=4).Font.Color = vbRed
    Next i
End Sub

跳转到最佳答案楼层

amulee

Sub 变色()
    Dim i&
    For i = 1 To Range("A65536").End(xlUp).Row
        Cells(i, 1).Characters(Start:=Len(Cells(i, 1)) - 4 + 1, Length:=4).Font.Color = vbRed
    Next i
End Sub

tkgg93

学习一下代码

mn860429

谢谢阿木老师[em01]

帅

Cells(i, 1).Characters(Start:=Len(Cells(i, 1)) - 4 + 1, Length:=4).Font.Color = vbRed
这句啥意思[em04]

帅

我只知道最后是等于红色[em04]

amulee

Cells(i, 1)单元格

Characters字符

(Start:=Len(Cells(i, 1)) - 4 + 1, Length:=4)起始为倒数第四个字符，长度为4

Font.Color = vbRed 字体红色

mn860429

为什么red前面要加个vb？

amulee

这个vbRed是VBA里面的一个常量，是个数字，是红色对应的数字

nichangdong

学习