返回目录：word文档
Excel如何设置选中一格后所在列和行都有颜色？
第一步，添加<开发工具>到菜单栏(2007、2010版Office必须)流程：Office按钮→Excel选项→常用→在功能区显示“开发工具”选项卡(打√)；
第二步，设置宏安全性等级流程：开发工具→宏安全性→宏设置→启用所有的宏(选中)；
第三步，将以下代码考录到Sheet1(代码)窗口中，设置VBA代码流程：开发工具→Visual Baaic→Sheet1(Sheet1)(双击)；
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 5 And Target.Row <= 70 Then '指定行
If Target.Column = 9 Or Target.Column = 10 Or Target.Column = 11 Or Target.Column = 16 Or Target.Column = 17 Then '指定列
'限定只有在点击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可改变
End If
End If
End Sub
第四步，保存(2003版不需要选保存类型)流程：文件→保存→保存类型→Excel 启用宏的工作簿(*.xlsm)(选中)→保存；
第五步，设置效果，点击需录入的单元格，对应的行列即自动变色。
谢谢您的阅读！我是#Excel财务VBA#，懂会计的程序员，Excel&VBA精通。上面回答如果对您有帮助，或需要更多自动化财务表单原创模板下载，请记得点赞、分享、关注我的头条号“Excel财务VBA”哦！