Excel单元格内部分字符更改字体颜色突出显示,用这两个技巧就够了!
前言|职场实例
Excel的功能虽然很强大,但还是有一些难以解决的问题,比如说如何将下图表格中的部分文字标红呢?例如将A2:C4单元格中所有的字符“河北”两字,字体颜色设置为红色。
代码如下:
Private Sub CommandButton1_Click()Cells.Font.ColorIndex = 1End SubPrintSub Worksheet_SelectionChange(ByVal Target As Range)Dim rng As Range, i As IntegerDim T As StringDim C As IntegerFor Each rng In SelectionT = "河北" 'T是要批量替换颜色的目标文字C = 3 'C是颜色,通过设定不同的值,代表对应的颜色i = 1Do While InStr(i, rng, T) > 0rng.Characters(InStr(i, rng, T), Len(T)).Font.ColorIndex = Ci = InStr(i, rng, T) + 1LoopNextEnd Sub
赞 (0)