Excel教程：VBA智能实现鼠标点击一个单元格，相同内容的所有单元格都变色

下面是详细内容，一起来学习。

小伙伴用Excel制作的面试人员基本信息表，其中，J、K、L列分别是初试日期、复试日期、终试日期。

当我们在这三列中，鼠标单击任意一个单元格的日期，Excel会自动将这3列里面相同的日期用颜色标识出来。比如单击J5单元格，这三列里面所有的“2022/3/3”日期都会标注颜色。

做出来的效果如下。

问题思路分享：

对于这类指定日期的面试，我们可以使用VBA程序来完成，它可以使Excel更自动化，实现函数所无法达到的功能。

我们使用Worksheet_SelectionChange编写过程，当选中某天所在的单元格后，它会自动把该天的所有单元格填充相同的底纹颜色。 

在所在的工作表模块中输入程序：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    Range("J2:L21").Interior.ColorIndex = xlNone  '清除单元格里原有底纹颜色

    '当选中的单元格个数大于1时，重新给Target赋值

    If Target.Count > 1 Then

           Set Target = Target.Cells(1)

    End If

    '当选中的单元格不包含指定区域的单元格时，退出程序

    If Application.Intersect(Target, Range("J2:L21")) Is Nothing Then

         Exit Sub

    End If

    Dim rng As Range   '定义一个Range型变量

    '遍历单元格

    For Each rng In Range("J2:L21")

        If rng.Value = Target.Value Then

           rng.Interior.ColorIndex = 39

        End If

    Next

End Sub 

输入完成后，返回工作表区域，想知道哪天面试哪些人员，就用鼠标选中那一天所在的任意一个单元格，面试哪些人就一目了然了！

具体的操作步骤，请观看下面的动画演示：

最后，记得将Excel表格文件，保存为.xlsm格式，才能把上面的代码保存运行。