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






