用VBA在EXCEL中查找并更改字体颜色（修改代码）
我是在学习VBA在EXCEL财务中的应用。我现在可以把数字金额转换为大写的汉字了，希望在出现“负”这个字的时候，将当前单元格改成红色。但是运行的时候就会卡在那里出现未响应，我写的代码如下，请XDJM帮我调试，谢谢。
举例：将黑色的“负伍元整”全部改为红色的。
Sub 红字()
Range("A1:Z99").Select
Set red = Selection.Find(负, LookIn:=xlValues)
If Not red Is Nothing Then
Do
red.Font.ColorIndex = 3
Set red = Selection.FindNext(red)
Loop While Not red Is Nothing
End If
End Sub
[解决办法]
excel本身就有这种功能 可以不用代码
选中你要处理的单元格区域------开始-----条件格式-----新建规则-----选择规则类型：“只为包含以下内容....”------特定文本 包含 负 ----设置格式 ------确定
ok
