Question

关于VBA改变字体颜色

Private Sub CommandButton1_Click()
For i = 1 To 7
If Sheet2.Cells(i, 1) = "456" Then
Sheet2.Range("i:i").Font.Color = vbRed
End If
Next
End Sub

以上是我的程序，为什么实现不了我想要的字体变红的效果呢？应该怎么修改
请高手指教

Answer 1

Private Sub CommandButton1_Click()
For i = 1 To 7
If Sheet2.Cells(i, 1) = "456" Then
Sheet2.Rows(i).Font.Color = vbRed
End If
Next
End Sub

请注意，如果456在excel中是数值的话，不应该用引号括起来。
你的意思是否是如果A(i)单元格等于 文本456 时，整行的字体颜色都设为红的？

Answer 2

sub
changef()
with
worksheets(1).cells(1,
1).font
.name
=
"宋体"
.fontstyle
=
"加粗"
end
with
end
sub
以上为对第一张表的第一个单元格进行的设置，其余类推。

Answer 3

If Sheet2.Cells(i, 1) = 456 Then