电竞比分网-中国电竞赛事及体育赛事平台

分享

Excel教程:VBA智能實現(xiàn)鼠標點擊一個單元格,相同內(nèi)容的所有單元格都變色

 部落窩教育BLW 2022-03-24
下面是詳細內(nèi)容,一起來學習。
小伙伴用Excel制作的面試人員基本信息表,其中,J、K、L列分別是初試日期、復(fù)試日期、終試日期。

當我們在這三列中,鼠標單擊任意一個單元格的日期,Excel會自動將這3列里面相同的日期用顏色標識出來。比如單擊J5單元格,這三列里面所有的“2022/3/3”日期都會標注顏色。

做出來的效果如下。

問題思路分享:

對于這類指定日期的面試,我們可以使用VBA程序來完成,它可以使Excel更自動化,實現(xiàn)函數(shù)所無法達到的功能。

我們使用Worksheet_SelectionChange編寫過程,當選中某天所在的單元格后,它會自動把該天的所有單元格填充相同的底紋顏色。 

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

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

    '當選中的單元格個數(shù)大于1時,重新給Target賦值

    If Target.Count > 1 Then

           Set Target = Target.Cells(1)

    End If

    '當選中的單元格不包含指定區(qū)域的單元格時,退出程序

    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 

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

具體的操作步驟,請觀看下面的動畫演示:

最后,記得將Excel表格文件,保存為.xlsm格式,才能把上面的代碼保存運行。

    轉(zhuǎn)藏 分享 獻花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多