实用VBA收集

作者: 小T数据站 | 来源:发表于2019-07-23 16:49 被阅读0次

1、点击单元格时行列都有颜色显示，效果如下：

举例1

VBA代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With Target
If .Count > 1 Then
Exit Sub
Else
Rows(.Row).Interior.ColorIndex = 6
Columns(.Column).Interior.ColorIndex = 6
End If
End With
End Sub

VBA中颜色的对照可参照此网页
操作流程：在EXCEL中，按键ALT+F11，打开VBA窗口，双击左边的SHEET1（SHEET1），在右边窗口粘贴上面的代码。回到EXCEL中，SHEET1表就会有效果了。
但是每个文件都得设置一下，比较麻烦，下载这个文件（密码:w1kw），打开这个文件，选择“启用宏”，保持这个文件是打开状态，再打开其他Excel文件就可以实现高亮显示了。