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


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

主题:[求助] 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编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/18 0:48:00 [只看该作者]

 直接写

 

Selection.Font.ColorIndex = 5


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


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

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

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


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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编辑过]

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


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

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


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/20 11:20:00 [只看该作者]

 测试没问题。

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


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

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

 回到顶部