如果我在一个单元格中输入数字 85,在另一个单元格中输入数字 104,有没有办法可以自动更改 5 和 4 的字体颜色?我知道我可以使用 =right(a1,1) 提取数字,然后设置该单元格的字体颜色,但我想将数字保留在那里。我希望这有意义。
答案1
下面的宏可以帮你完成一半目标,但有一些注意事项:
您需要将数字的单元格格式更改为文本
它只在活动单元格上起作用
并且每次只能处理一个数字,您需要为 2 个数字创建 2 个宏。
但这是一个起点:
Sub FontChange()
Dim j As Long
j = InStr(1, ActiveCell.Text, "5", vbTextCompare)
j x > 0 Then ActiveCell.Characters(j, 5).Font.Color = vbGreen
End Sub