Excel甘特图点击指定单元格高亮同行特定单元格的实现方法

要实现点击「item_in_plan」区域单元格时，高亮同行「task」列的单元格，用Excel的VBA事件就能搞定，步骤如下：

1. 打开目标工作表的VBA编辑器

   • 右键你要设置的工作表标签（比如“年度计划”），选择「查看代码」

2. 粘贴以下VBA代码，根据你的实际区域修改参数：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 先清除所有task列的高亮（这里假设task列是C列，范围C2到C1000，按需调整）
    Me.Range("C2:C1000").Interior.ColorIndex = xlNone
    
    ' 定义item_in_plan的目标区域（这里假设是X2到X1000，按需调整）
    Dim clickArea As Range
    Set clickArea = Me.Range("X2:X1000")
    
    ' 判断当前选中的单元格是否在clickArea范围内
    If Not Intersect(Target, clickArea) Is Nothing Then
        ' 高亮同行的task列单元格（C列），这里用黄色高亮，可自行修改颜色
        Me.Range("C" & Target.Row).Interior.Color = RGB(255, 255, 0)
    End If
End Sub

3. 代码参数说明：

   • 把Range("X2:X1000")替换成你的「item_in_plan」实际单元格范围
   • 把Range("C2:C1000")和Range("C" & Target.Row)里的C替换成你的「task」列对应的列标（比如如果是D列就改成D）
   • 高亮颜色可以改：RGB(255,255,0)是黄色，换成其他RGB值或者用ColorIndex（比如ColorIndex = 6也是黄色）

4. 保存文件：

   • 因为用了VBA，文件要保存为「Excel启用宏的工作簿（.xlsm）」格式，否则代码会失效

这样设置后，只要点击你指定的「item_in_plan」区域内的单元格，同行的「task」列单元格就会自动高亮；点击其他区域时，之前的高亮会自动清除。

内容的提问来源于stack exchange，提问作者sbreslin14