EXCEL中点击单元格,所在行和列都改变颜色

在日常工作中,尤其是办公室工作人群,尝尝需要处理大量的数据,在对数据进行修改时,时长发生看错行的事情,导致数据越改越乱,因此,我常用的一种方法就是选中单元格时,所在行、列标记为特殊颜色,下面就是我常用的标记方法,仅供参考,如大家还有其他方法,可以评论一下,大家互相学习。

测试环境:
系统:windows 7
工具:office 专业增强版 2016 - EXCEL

宏语言

1、打开VBA编辑环境:选择对应的sheet文件右键选择【查看代码】即可。
在这里插入图片描述
2、粘贴如下代码在编辑区域并保存后关闭。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
// 如下代码是行变,在粘贴到VBA中时,需要删除。
With Target.EntireRow.FormatConditions 
.Delete
.Add xlExpression, , "TRUE"
//颜色选择,改变该值,行的颜色会改变,在粘贴到VBA中时,需要删除。
.Item(1).Interior.ColorIndex = 35 
// 如下代码是列变,在粘贴到VBA中时,需要删除。
End With
With Target.EntireColumn.FormatConditions '列变色
.Delete
.Add xlExpression, , "TRUE"
//颜色选择,改变该值,行的颜色会改变,在粘贴到VBA中时,需要删除。
.Item(1).Interior.ColorIndex = 35
End With
End Sub

备注:
1、当在保存宏文件时如果有如下提示:
在这里插入图片描述

解决上图问题按照如下步骤启用宏即可:在这里插入图片描述

2、Interior.ColorIndex 对应的色值表:
在这里插入图片描述

  • 0
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值