Excel VBA 十字变色

最新推荐文章于 2024-12-19 07:00:46 发布

@下雨下雨#

最新推荐文章于 2024-12-19 07:00:46 发布

阅读量633

点赞数 11

分类专栏： EXCEl 文章标签： excel

本文链接：https://blog.csdn.net/qq_40685414/article/details/135966360

版权

EXCEl 专栏收录该内容

2 篇文章

订阅专栏

文章详细描述了一个VBA子过程，当Excel工作表中的单元格或行被选中时，清除选定区域的背景颜色，并将选中行和列范围设置为特定颜色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.EntireColumn.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    If Target.EntireRow.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    Cells.Interior.ColorIndex = xlNone
    Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 20
    Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 20
End Sub