VBA根据单元格中RGB值设置字体颜色

可以使用以下VBA代码来根据单元格中的RGB值设置字体颜色：

Sub SetFontColor()
    Dim r As Integer, g As Integer, b As Integer
    Dim cell As Range

    For Each cell In Selection
        r = cell.Font.Color Mod 256
        g = (cell.Font.Color \ 256) Mod 256
        b = (cell.Font.Color \ 65536) Mod 256
        '将RGB值输出到调试窗口，方便调试
        Debug.Print "R: " & r & " G: " & g & " B: " & b
        
        '根据RGB值设置字体颜色
        If r = 255 And g = 0 And b = 0 Then
            cell.Font.Color = RGB(255, 255, 0)
        ElseIf r = 0 And g = 255 And b = 0 Then
            cell.Font.Color = RGB(0, 0, 255)
        ElseIf r = 0 And g = 0 And b = 255 Then
            cell.Font.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub

这个例子中，我们假设如果单元格的字体颜色是红色、绿色或蓝色，则将其分别改为黄色、蓝色或红色。你可以根据自己的需要修改代码。