VBA Excel -同一单元格中不同数字的不同颜色
VBA Excel -同一单元格中不同数字的不同颜色
提问于 2015-03-11 22:08:08
这是一个棘手的问题:我在同一个单元格中通过三个不同的公式提取了三个不同的数字(如下图所示)。
有没有办法用不同的风格给这些数字上色(即第一种蓝色，第二种绿色，第三种粗体)？
谢谢!
Stack Overflow用户
发布于 2015-03-11 23:02:32
这就是你所需要的，你所要做的就是把范围(“A3”)换成你拥有的值=]
Sub Color_Part_of_Cell()
Dim cont1 As Integer
Dim cont2 As Integer
cont1 = WorksheetFunction.Search("%", Range("A3"))
cont2 = Len(Mid(Range("A3"), WorksheetFunction.Search("-", Range("A3"), 1), _
WorksheetFunction.Search("%", Range("A3"), _
WorksheetFunction.Search("-", Range("A3"), 1)))) - cont1 - 2
With Range("A3")
.Characters(1, cont1).Font.Color = RGB(0, 0, 255)
.Characters(cont1 + 3, cont2).Font.Color = RGB(0, 255, 0)
.Characters(cont1 + cont2 + 6, 10).Font.Bold = true
End With
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/28988842
复制相关文章
相似问题
腾讯云开发者
