Excel 选中单元格后,对应的行列高亮
Jihongchang(讨论 | 贡献)2024年9月11日 (三) 03:32的版本 (建立内容为“<syntaxhighlight lang="vbscript"> Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Rows(Target.Row).Interio…”的新页面)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 40
Columns(Target.Column).Interior.ColorIndex = 40
End Sub