Excel如何设置选中一格后所在列和行都有颜色第二步，设置宏安全性等级流程：开发工具→宏安全性→宏设置→启用所有的宏(选中)；
第三步，将以下代码考录到Sheet1(代码)窗口中，设置VBA代码流程：开发工具→VisualBaaic→Sheet1(Sheet1)(双击)；
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
IfTarget.Row>=5AndTarget.Row<=70Then’指定行
IfTarget.Column=9OrTarget.Column=10OrTarget.Column=11OrTarget.Column=16OrTarget.Column=17Then’指定列
‘限定只有在点击I、J、K、P、Q五列并且在>=第5行到<=第70行之间的单元格才变色
Target.Parent.Range(“G3:w70”).Interior.ColorIndex=xlNone’清除工作表单元格的原来的背景色
Range(Target.Offset(0,7-Target.Column),Target.Offset(0,-1)).Interior.Color=vbGreen’设置所在行变为绿色，vbGreen可改变
Range(Target.Offset(3-Target.Row,0),Target.Offset(-1,0)).Interior.Color=vbGreen’设置所在行列为绿色，vbGreen可改变
EndIf
EndIf
EndSub
第四步，保存(2003版不需要选保存类型)流程：文件→保存→保存类型→Excel启用宏的工作簿(*.xlsm)(选中)→保存；
第五步，设置效果，点击需录入的单元格，对应的行列即自动变色。
谢谢您的阅读！偶是#Excel财务VBA#，懂会计的程序员，Excel&VBA精通。上面回答如果对您有帮助，或需要更多自动化财务表单原创模板下载，请记得点赞、分享、关注偶的“Excel财务VBA”哦！