一个单元格里面如何多种颜色字体？

jyb2002

求教：如何实现一个单元格多种字体和颜色？谢谢？

LangQueS

http://club.excelhome.net/thread-268447-1-817.html

水平一般

单独选中一个字符，右键，设置颜色和字体就行了，但要批量设置就要用VBA了。

zhc19620430

这不好实现的，就是条件格式也不会设有多种字体颜色的。

LangQueS

http://club.excelhome.net/dispbbs.asp?boardid=2&id=297956

jyb2002

首先谢谢各位。vba的确有点费劲。
我想我的表达还是有问题：实际上我使用公式把一串字符链接，如“计算机”&a3&"台“，其中的数字要红色，如何实现？

吾股丰登

这个估计得使用VBA了

LangQueS

Sub 设置A列单元指定字符串的颜色()
Dim i As Long
y = Sheets(1).Range("a65536").End(xlUp).Row       'A列最后可见单元的行号
For a = 1 To y
For i = 1 To Len(Range("A" & a))    '遍历单元字符
If Mid(Range("A" & a), i, 2) = "台" Then    '指定设置颜色的字符数量和内容
Range("A" & a).Characters(i, 2).Font.ColorIndex = 3   '设置指定数量的字体红色
End If
Next
Next
End Sub

jyb2002

谢谢版主。我还要认真研究一下这段代码。vba始终不懂，感到很难入门。见到此类问题总是绕着走。

lrlxxqxa

学习8楼的代码。