Excel日程系统：基于BB列值切换选中单元格颜色的VBA需求

针对你的需求，以下是优化后的VBA代码，需粘贴到Sheet1的代码模块中（右键工作表标签→查看代码）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetArea As Range
    Dim cell As Range
    Dim bbCellValue As String
    Dim targetColor As Long
    
    ' 定义目标区域：BC13到DT40
    Dim mainRange As Range
    Set mainRange = Me.Range("BC13:DT40")
    
    ' 只处理选中区域与目标区域的交集部分
    Set targetArea = Intersect(Target, mainRange)
    If targetArea Is Nothing Then Exit Sub ' 无交集则直接退出
    
    ' 遍历每个选中的有效单元格
    For Each cell In targetArea
        ' 获取对应行BB列的值
        bbCellValue = cell.Offset(0, -1).Value
        
        ' 匹配对应颜色
        Select Case bbCellValue
            Case "Action"
                targetColor = RGB(255, 0, 0) ' 红色
            Case "Plan"
                targetColor = RGB(0, 0, 255) ' 蓝色
            Case Else
                targetColor = xlNone ' 其他值不处理颜色
        End Select
        
        ' 颜色切换逻辑：已有对应颜色则清除，否则设置颜色
        If cell.Interior.Color = targetColor Then
            cell.Interior.Color = xlNone
        Else
            cell.Interior.Color = targetColor
        End If
    Next cell
End Sub

关键优化点说明 #

• 触发逻辑：用Worksheet_SelectionChange事件实现鼠标选中/点击时自动触发，无需手动执行宏。
• 范围控制：通过Intersect仅处理选中区域与BC13:DT40的重叠部分，避免操作无关单元格。
• 颜色切换：新增颜色判断逻辑，若单元格已有对应Action/Plan的颜色则清除，否则设置对应颜色。
• 容错处理：当BB列值既不是"Action"也不是"Plan"时，不修改单元格颜色。

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