如何自动化修改Teams共享驱动器中Excel单元格颜色（基于另一文件值）

这个流程完全可以实现自动化，下面提供两种可行的实现方式：

方式一：使用Power Automate（无代码方案） #

适合没有编程基础的用户，通过可视化配置完成：

• 触发设置：可选择定时触发（比如每天固定时段），或设置为当Teams共享文件夹里的input.xlsx更新时触发
• 读取input文件：添加「Excel Online (Business)」连接器，读取input.xlsx指定工作表，筛选出ID列中填充色为红色的单元格，提取对应ID值
• 匹配output文件状态：同样通过「Excel Online (Business)」连接器读取output.xlsx，用「查找行」操作根据提取的ID匹配对应Status列内容
• 更新单元格颜色：若匹配到的Status为ON，执行「更新单元格」操作，将input.xlsx中对应ID的单元格填充色改为绿色

方式二：使用VBA脚本（代码方案） #

适合有一定VBA基础的用户，编写脚本后可直接在Excel中运行（需先将Teams共享文件夹映射为本地网络驱动器，或使用文件的WebDAV路径）：

Sub UpdateIDColor()
    Dim inputWB As Workbook, outputWB As Workbook
    Dim inputWS As Worksheet, outputWS As Worksheet
    Dim inputLastRow As Long, outputLastRow As Long
    Dim i As Long, j As Long
    Dim targetID As String, statusVal As String
    
    ' 替换为Teams共享驱动器中文件的实际路径
    Set inputWB = Workbooks.Open("\\teams-share-path\input.xlsx")
    Set outputWB = Workbooks.Open("\\teams-share-path\output.xlsx")
    Set inputWS = inputWB.Sheets("Sheet1") ' 替换为实际工作表名
    Set outputWS = outputWB.Sheets("Sheet1") ' 替换为实际工作表名
    
    inputLastRow = inputWS.Cells(inputWS.Rows.Count, "A").End(xlUp).Row
    outputLastRow = outputWS.Cells(outputWS.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历input文件的ID列
    For i = 2 To inputLastRow
        ' 判断单元格填充色是否为红色（可根据实际红色调整RGB值）
        If inputWS.Cells(i, 1).Interior.Color = RGB(255, 0, 0) Then
            targetID = inputWS.Cells(i, 1).Value
            ' 在output文件中查找对应ID
            For j = 2 To outputLastRow
                If outputWS.Cells(j, 1).Value = targetID Then
                    statusVal = UCase(outputWS.Cells(j, 2).Value)
                    ' 若状态为ON，修改为绿色填充
                    If statusVal = "ON" Then
                        inputWS.Cells(i, 1).Interior.Color = RGB(0, 255, 0)
                    End If
                    Exit For
                End If
            Next j
        End If
    Next i
    
    ' 保存并关闭文件
    inputWB.Save
    outputWB.Close SaveChanges:=False
    inputWB.Close SaveChanges:=False
End Sub

示例数据 #

Input：查找红色填充的ID

Output：检查ID的状态

Input：修改单元格颜色后

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