vba设置单元格颜色代码（vba所有代码大全及语法）

VBA代码示例：单元格填充颜色和字体颜色修改

Private Sub CommandButton1_Click ()

    Range("A1:C6")=100
    '单元格填充颜色修改 Range("A1:C6").Interior.Color = vbBlue '单元格字体颜色修改
    Range("A1:C6").Font.Color = vbYellow
​
End Sub

 

Private Sub CommandButton1_Click()

    i = 1

    Do
        Cells(i, 1) = i
        Cells(i, 2) = i + 1
        Cells(i, 3) = i + 2
        i = i + 1
    Loop Until i > 6

    Range("A1:C6").Interior.Color = vbYellow
    Range(Cells(1, 1), Cells(6, 3)).Font.Color = vbRed

End Sub