VBA 通过单元格的rgb值设置字体颜色为相同的rgb值

可以通过以下代码实现：

Sub SetFontColorToCellColor()
    Dim cell As Range
    For Each cell In Selection
        cell.Font.Color = cell.Interior.Color
    Next cell
End Sub

这个代码会遍历选中区域内的每个单元格，并把字体颜色设置为单元格背景色的RGB值。你需要选中需要修改颜色的单元格，然后运行这个宏即可。

相关问题

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

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

VBA对单元格部分选中的文字进行设置字体格式

你可以使用 VBA 的 `Characters` 属性来对单元格中部分选中的文字设置字体格式。以下是一个示例代码：

Sub SetFontFormat()
    Dim rng As Range
    Set rng = Range("A1")
    
    ' 设置选中文字的字体为粗体
    rng.Characters(Start:=3, Length:=5).Font.Bold = True
    
    ' 设置选中文字的字体大小为14
    rng.Characters(Start:=9, Length:=7).Font.Size = 14
    
    ' 设置选中文字的字体颜色为红色
    rng.Characters(Start:=16, Length:=4).Font.Color = RGB(255, 0, 0)
End Sub

在上面的示例中，我们假设要对单元格 A1 中的文字进行设置字体格式。通过 `Characters` 属性，我们可以指定要设置格式的文字的起始位置和长度，然后使用相关的属性来设置字体格式，例如 `Font.Bold` 来设置粗体、`Font.Size` 来设置字体大小、`Font.Color` 来设置字体颜色等。

你可以根据自己的需求修改代码中的起始位置、长度和字体格式属性来进行定制化的设置。