當(dāng)我們?cè)谶@三列中，鼠標(biāo)單擊任意一個(gè)單元格的日期，Excel會(huì)自動(dòng)將這3列里面相同的日期用顏色標(biāo)識(shí)出來(lái)。比如單擊J5單元格，這三列里面所有的“2022/3/3”日期都會(huì)標(biāo)注顏色。

做出來(lái)的效果如下。

問(wèn)題思路分享：

對(duì)于這類指定日期的面試，我們可以使用VBA程序來(lái)完成，它可以使Excel更自動(dòng)化，實(shí)現(xiàn)函數(shù)所無(wú)法達(dá)到的功能。

我們使用Worksheet_SelectionChange編寫過(guò)程，當(dāng)選中某天所在的單元格后，它會(huì)自動(dòng)把該天的所有單元格填充相同的底紋顏色。 

在所在的工作表模塊中輸入程序：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    Range("J2:L21").Interior.ColorIndex = xlNone  '清除單元格里原有底紋顏色

    '當(dāng)選中的單元格個(gè)數(shù)大于1時(shí)，重新給Target賦值

    If Target.Count > 1 Then

           Set Target = Target.Cells(1)

    End If

    '當(dāng)選中的單元格不包含指定區(qū)域的單元格時(shí)，退出程序

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

         Exit Sub

    End If

    Dim rng As Range   '定義一個(gè)Range型變量

    '遍歷單元格

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

        If rng.Value = Target.Value Then

           rng.Interior.ColorIndex = 39

        End If

    Next

End Sub 

輸入完成后，返回工作表區(qū)域，想知道哪天面試哪些人員，就用鼠標(biāo)選中那一天所在的任意一個(gè)單元格，面試哪些人就一目了然了！

具體的操作步驟，請(qǐng)觀看下面的動(dòng)畫演示：

最后，記得將Excel表格文件，保存為.xlsm格式，才能把上面的代碼保存運(yùn)行。