关于excel ，选中行.列就变色，光标离开就还原原色, 如红色. 关于excel vba，选中变色，光标离开还原
\u5173\u4e8eexcel \uff0c\u9009\u4e2d\u884c.\u5217\u5c31\u53d8\u8272\uff0c\u5149\u6807\u79bb\u5f00\u5c31\u8fd8\u539f\u539f\u8272, \u5982\u7ea2\u8272.1\u3001Ctrl+A\u5c06Excel\u5355\u5143\u683c\u5168\u9009\uff0c\u70b9\u51fb\u201c\u5f00\u59cb\u201d\u9009\u9879\u5361\u4e2d\u7684\u201c\u6761\u4ef6\u683c\u5f0f\u201d\uff0c\u9009\u62e9\u201c\u65b0\u5efa\u89c4\u5219\u201d\u3002
2\u3001\u201c\u9009\u62e9\u89c4\u5219\u7c7b\u578b\u201d\u4e2d\u9009\u62e9\u201c\u4f7f\u7528\u516c\u5f0f\u786e\u5b9a\u8981\u8bbe\u7f6e\u683c\u5f0f\u7684\u5355\u5143\u683c\u201d,\u5e76\u5728\u4e0b\u9762\u7684\u6587\u672c\u6846\u4e2d\u8f93\u5165\u516c\u5f0f\uff1a=(CELL("row")=ROW())+(CELL("col")=COLUMN())\u3002
3\u3001\u7136\u540e\u70b9\u51fb\u53f3\u4e0b\u89d2\u7684\u201c\u683c\u5f0f\u201d\uff0c\u8fdb\u5165\u683c\u5f0f\u8bbe\u7f6e\u5bf9\u8bdd\u6846\uff0c\u8fd9\u91cc\u8bbe\u7f6e\u586b\u5145\u5e95\u8272\u4e3a\u9ec4\u8272\u3002
4\u3001\u70b9\u51fb\u786e\u5b9a\u540e\uff0c\u8fd4\u56deExcel\uff0c\u53ef\u4ee5\u770b\u5230\u7b2c\u4e00\u884c\u548c\u7b2c\u4e00\u5217\u5df2\u7ecf\u586b\u5145\u4e86\u9ec4\u8272\uff0c\u4f46\u662f\u8fd9\u4e2a\u989c\u8272\u5e76\u4e0d\u4f1a\u968f\u7740\u9009\u62e9\u7684\u5355\u5143\u683c\u800c\u53d8\u5316\u3002
5\u3001\u6309\u4e0bAlt+F11\uff0c\u6253\u5f00VBE\u754c\u9762\uff0c\u9009\u62e9\u5de6\u4fa7\u7684\u5f53\u524d\u5de5\u4f5c\u8868\uff0c\u5e76\u5728\u53f3\u4fa7\u7a7a\u767d\u5904\u8f93\u5165\u4ee3\u7801\uff1aPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)CalculateApplication.ScreenUpdating = FalseApplication.ScreenUpdating = TrueEnd Sub\u3002
6\u3001\u8fd4\u56deExcel\uff0c\u8fd9\u6837\u5c31\u5b9e\u73b0\u4e86\u9009\u62e9\u5355\u5143\u683c\uff0c\u8fd9\u4e2a\u5355\u5143\u683c\u5bf9\u5e94\u7684\u884c\u5217\u53d8\u8272\u3002
\u6253\u5f00EXCEL \u8fdb\u5165VBA \u53cc\u51fb\u5bf9\u5e94\u7684\u5de5\u4f5c\u8868 \u5c06\u4ee3\u7801\u590d\u5236\u8fdb\u53bb
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 3
End With
With Target.EntireColumn.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 3
End With
End Sub
1、Ctrl+A将Excel单元格全选，点击“开始”选项卡中的“条件格式”，选择“新建规则”。
2、“选择规则类型”中选择“使用公式确定要设置格式的单元格”,并在下面的文本框中输入公式：=(CELL("row")=ROW())+(CELL("col")=COLUMN())。
3、然后点击右下角的“格式”，进入格式设置对话框，这里设置填充底色为黄色。
4、点击确定后，返回Excel，可以看到第一行和第一列已经填充了黄色，但是这个颜色并不会随着选择的单元格而变化。
5、按下Alt+F11，打开VBE界面，选择左侧的当前工作表，并在右侧空白处输入代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range)CalculateApplication.ScreenUpdating = FalseApplication.ScreenUpdating = TrueEnd Sub。
6、返回Excel，这样就实现了选择单元格，这个单元格对应的行列变色。
扩展阅读：如何选中一列很长的数据 ... excel选中不相邻两列 ... 表格太长怎么快速选中 ... excel 工作表最多可有 列 ... excel选中特定几行 ... excel显示选中的行和列 ... 表格快捷选中1000行 ... excel十字显示行列 ... 如何选中第一行到最后一行 ...
