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

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

测试环境:

系统:windows 7

工具:office 专业增强版 2016 - EXCEL

宏语言

1、打开VBA编辑环境:选择对应的sheet文件右键选择【查看代码】即可。

2、粘贴如下代码在编辑区域并保存后关闭。

javascript 复制代码
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 对应的色值表:

相关推荐
Logic10120 分钟前
Excel信息+照片文件夹,自动合成word格式化文档
word·excel·办公自动化·邮件合并·office技巧·自动插入图片·插入域
Data-Miner1 天前
一个省大模型积分的 Excel 数据处理方案:脱敏生成逻辑,脚本复用把 token 降到 0
人工智能·windows·excel
Logic1012 天前
表格智能记账3 销售与库存智能联动,自动标红库存预警
excel·条件格式·excel技巧·vlookup·sumif
技术小甜甜2 天前
【Copilot】能选 Claude 和 GPT-6 了,Excel 分析该交给谁
gpt·excel·copilot·claude·microsoft365·gpt-6
小白今天也很酷3 天前
MCXN947更新板载DAP_Link固件的方法
c语言·python·单片机·ubuntu·excel·1024程序员节
ratel️4 天前
小墨析 · Office Agent 日常办公不烧心
python·langchain·word·excel·fastapi·js·ppt
Logic1014 天前
没有TextSplit函数的老版本也能拆分单元格的内容
excel·拆分数据·excel技巧·数据拆分·拆分单元格·textsplit·旧版excel
2601_967987374 天前
你们都用Python实现了哪些自动化办公?
python·excel·自动化办公·1024程序员节·学习资料·跨平台操作
城数派4 天前
1901-2025年中国省/市/县三级逐月平均气温数据Excel+Shp格式
excel
gtstore5 天前
从 Excel 迁移到仓库管理系统的数据准备与切换方案
excel·数据迁移·仓库管理系统·进销存·信息化实施