如何让鼠标点击到的excel 单元格变色?

 我来答
刺任芹O
2022-11-16 · TA获得超过6.2万个赞
知道顶级答主
回答量:38.7万
采纳率:99%
帮助的人:8944万
展开全部
让鼠标点击到的excel 单元格变色的方法:\x0d\x0a1.打开需要应用的excel。\x0d\x0a2.按ALT+F11,会弹出代码编辑框。\x0d\x0a3.在左边会显示出上下两个类别框里,名字分别是Project-VBAProject和Properties-sheet1(这个sheet几是你当前编辑的表单)\x0d\x0a(注意:如果什么也新出来的窗口什么也不显示的话,就->视图->工程资源管理器 就会出来了,此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码,在里面直接粘贴第六条的代码即可)\x0d\x0a4.在上面的框边有三个小图标,view code(查看代码),view project(查看项目),toggle folder(打开或折叠文件夹)。\x0d\x0a5.选择view code,会弹出一个编辑框。\x0d\x0a6.在编辑框里黏贴下面的语言:\x0d\x0aPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)\x0d\x0a With Target\x0d\x0a '清除工作表单元格的背景色\x0d\x0a .Parent.Cells.Interior.ColorIndex = xlNone\x0d\x0a '设置选中区域所在行的背景色\x0d\x0a .EntireRow.Interior.Color = vbGreen\x0d\x0a '设置选中区域所在列的背景色\x0d\x0a .EntireColumn.Interior.Color = vbGreen\x0d\x0a End With\x0d\x0aEnd Sub\x0d\x0a7. 贴完之后,关闭对话框。关闭编辑框,返回到excel。\x0d\x0a8.这时候再点击任意单元格,就会自动出现要的效果了。\x0d\x0a备注:上面语言中的汉语不用删除,汉语可以帮助了解该行的意思,同时也不会影响编辑效果。如果对行或列的色彩不满意,可以参考下面的色彩代码,自行修改。\x0d\x0avbBlack 黑\x0d\x0avbRed 红\x0d\x0avbGreen 绿\x0d\x0avbYellow 黄\x0d\x0avbBlue 蓝\x0d\x0avbMagenta 洋红\x0d\x0avbCyan 青\x0d\x0avbWhite 白\x0d\x0a\x0d\x0a上面的办法对已经有填充色的表格是个灾难,它会清楚原有颜色。\x0d\x0a也可以试试下面的方法:\x0d\x0aPrivate Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) \x0d\x0aOn Error Resume Next \x0d\x0aCells.FormatConditions.Delete \x0d\x0aWith Target.EntireRow.FormatConditions \x0d\x0a.Delete \x0d\x0a.Add xlExpression, , "TRUE" \x0d\x0a.Item(1).Interior.ColorIndex = 7 \x0d\x0aEnd With \x0d\x0aEnd Sub\x0d\x0a\x0d\x0a这个虽然只能显示行不能显示列,但是不会破坏原有填充色。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式