Как изменить цвет фона содержимого ячейки?

Question

Я написал некоторый код, и он изменит цвет фона ячейки, но я просто хочу изменить цвет содержимого ячейки.

Я пытался найти правильный код, но не смог исправить его с помощью своего кода.

Sub cellColor()
    Dim colCount As Integer
    Dim count As Integer

    colCount = Selection.Tables(1).Columns.count
    col = 0

    If Selection.Shading.BackgroundPatternColor = RGB(255, 255, 255) Then
        While col < colCount
            Selection.Shading.BackgroundPatternColor = RGB(255, 114, 86)
            col = col + 1
        Wend
    Else
        Selection.Shading.BackgroundPatternColor = RGB(255, 255, 255)
    End If
    Exit Sub
End Sub

Answer 1

Вам нужно использовать Shading диапазона ячейки, а не диапазона Selection.

Это должно работать:

Selection.Cells(1).Range.Font.Shading.BackgroundPatternColor = RGB(255, 114, 86)