Excel VBA需求：根据另一工作表日期为对应年月单元格着色

核心逻辑 #

1. 监听EXCEL2工作表的单元格变更，一旦日期或姓名修改，立即触发更新
2. 从EXCEL2提取姓名+对应日期的年月映射关系
3. 在EXCEL工作表中定位同姓名的行、对应年月的列，为单元格填充颜色
4. 每次更新前清除EXCEL中旧的着色，避免残留

代码实现 #

第一步：插入通用模块代码 #

打开Excel按Alt+F11进入VBA编辑器，右键左侧项目列表→插入→模块，粘贴以下代码：

Sub UpdateNameDateColor()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long, lastColTarget As Long
    Dim i As Long, j As Long, nameRow As Long
    Dim targetName As String, targetYearMonth As String
    Dim cellColor As Long
    
    ' 绑定目标和源工作表
    Set wsSource = ThisWorkbook.Worksheets("EXCEL2")
    Set wsTarget = ThisWorkbook.Worksheets("EXCEL")
    ' 设置着色颜色（示例为黄色，可自行修改RGB值）
    cellColor = RGB(255, 255, 0)
    
    ' 清除EXCEL中所有旧着色（仅清除填充色，保留内容）
    wsTarget.Cells.Interior.ColorIndex = xlColorIndexNone
    
    ' 获取数据边界（假设EXCEL2的姓名在A列、日期在B列；EXCEL的姓名在A列、年月为表头）
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
    lastColTarget = wsTarget.Cells(1, wsTarget.Columns.Count).End(xlToLeft).Column
    
    ' 遍历EXCEL2的每一行数据
    For i = 2 To lastRowSource ' 跳过表头行
        targetName = wsSource.Cells(i, "A").Value
        targetYearMonth = Format(wsSource.Cells(i, "B").Value, "yyyy-MM") ' 统一年月格式
        
        ' 在EXCEL中查找对应姓名的行
        On Error Resume Next
        nameRow = wsTarget.Columns("A").Find(What:=targetName, LookIn:=xlValues, LookAt:=xlWhole).Row
        On Error GoTo 0
        
        ' 找到姓名后，匹配对应的年月列并着色
        If nameRow > 0 Then
            For j = 2 To lastColTarget ' 跳过姓名列，遍历年月表头
                If wsTarget.Cells(1, j).Value = targetYearMonth Then
                    wsTarget.Cells(nameRow, j).Interior.Color = cellColor
                    Exit For
                End If
            Next j
        End If
    Next i
End Sub

第二步：添加工作表变更监听代码 #

在VBA编辑器左侧项目列表中找到EXCEL2工作表，双击打开代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改姓名（A列）或日期（B列）时触发更新
    If Not Intersect(Target, Me.Range("A:B")) Is Nothing Then
        UpdateNameDateColor
    End If
End Sub

注意事项 #

• 需确保EXCEL2的结构：A列姓名、B列日期，第一行为表头
• 需确保EXCEL的结构：A列姓名，第一行为yyyy-MM格式的年月表头
• 可通过修改cellColor = RGB(255,255,0)调整着色，RGB值可自行查询
• 若姓名或年月格式不匹配，会导致着色失败，需保持两边格式一致

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