- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] VBA单元格字体颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83746)
-- 发布时间：2016/4/15 18:23:00
-- [求助] VBA单元格字体颜色
求助各位前辈，Excel单元格字体变色，执行速度很慢，如何修改为只对当前单元格起作用，谢谢。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)
rng.Font.ColorIndex = 5
End Sub
[此贴子已经被作者于2016/4/15 20:16:32编辑过]
-- 发布时间：2016/4/18 0:48:00
--
直接写
Selection.Font.ColorIndex = 5
-- 发布时间：2016/4/20 11:06:00
--
大红袍，你好，谢谢你的回复，这几天忙着其他事情，没及时回应，抱歉。
代码达不到要求，上传附件，请抽空调试，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:字体变色.xls |
-- 发布时间：2016/4/20 11:14:00
--
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 5
End Sub
[此贴子已经被作者于2016/4/20 11:14:30编辑过]
-- 发布时间：2016/4/20 11:17:00
--
大红袍，你好，是输入上诉代码，只是字体颜色回应不正常，时蓝时黑，请抽空看看，谢谢。
-- 发布时间：2016/4/20 11:20:00
--
测试没问题。
-- 发布时间：2016/4/20 11:23:00
--
好的，这问题也不是非解决不可，那就先不管它啦，谢谢你的回复。