如何根据用户点击位置为Excel甘特图对应单元格添加边框？

以下是直接可用的VBA代码，基于工作表选择变更事件实现需求：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    Dim targetRow As Long
    
    ' 清除工作表中所有已着色单元格的旧边框
    For Each cell In Me.UsedRange
        If cell.Interior.ColorIndex <> xlNone Then
            cell.Borders.LineStyle = xlNone
        End If
    Next cell
    
    ' 仅处理第一列的单个单元格点击事件
    If Target.Column = 1 And Target.Cells.Count = 1 Then
        targetRow = Target.Row
        
        ' 遍历目标行，为已着色单元格添加边框
        For Each cell In Me.Rows(targetRow).Cells
            If cell.Interior.ColorIndex <> xlNone Then
                With cell.Borders
                    .LineStyle = xlContinuous ' 细实线边框
                    .Weight = xlThin ' 边框粗细
                    .ColorIndex = xlAutomatic ' 使用默认黑色
                End With
            End If
        Next cell
    End If
End Sub

使用步骤： #

1. 打开目标Excel工作簿，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」中找到甘特图所在的工作表（如Sheet1），双击打开其代码窗口
3. 将上述代码粘贴到窗口中
4. 保存工作簿为「Excel 启用宏的工作簿（*.xlsm）」格式

自定义说明： #

• 若要调整边框样式，可修改.Weight（如xlMedium为中等粗细）或.ColorIndex（如3对应红色）参数
• 若不需要清除旧边框，可删除开头的边框清除循环

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