Foxtable(狐表)用户栏目专家坐堂 → [求助] VBA单元格字体颜色


  共有3118人关注过本帖树形打印复制链接

主题:[求助] VBA单元格字体颜色

帅哥哟,离线,有人找我吗?
Gryvip
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:479 积分:4505 威望:0 精华:0 注册:2008/9/4 14:40:00
[求助] VBA单元格字体颜色  发帖心情 Post By:2016/4/15 18:23:00 [显示全部帖子]

求助各位前辈,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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Gryvip
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:479 积分:4505 威望:0 精华:0 注册:2008/9/4 14:40:00
  发帖心情 Post By:2016/4/20 11:06:00 [显示全部帖子]

大红袍,你好,谢谢你的回复,这几天忙着其他事情,没及时回应,抱歉。

代码达不到要求,上传附件,请抽空调试,谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:字体变色.xls


 回到顶部
帅哥哟,离线,有人找我吗?
Gryvip
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:479 积分:4505 威望:0 精华:0 注册:2008/9/4 14:40:00
  发帖心情 Post By:2016/4/20 11:17:00 [显示全部帖子]

大红袍,你好,是输入上诉代码,只是字体颜色回应不正常,时蓝时黑,请抽空看看,谢谢。


 回到顶部
帅哥哟,离线,有人找我吗?
Gryvip
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:479 积分:4505 威望:0 精华:0 注册:2008/9/4 14:40:00
  发帖心情 Post By:2016/4/20 11:23:00 [显示全部帖子]

好的,这问题也不是非解决不可,那就先不管它啦,谢谢你的回复。

 回到顶部