UC知道关于VBA改变字体颜色
来源：百度知道 编辑：UC知道 时间：2024/05/04 19:32:28
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
以上是我的程序，为什么实现不了我想要的字体变红的效果呢？应该怎么修改
请高手指教
For i = 1 To 7
If Sheet2.Cells(i, 1) = "456" Then
Sheet2.Range("i:i").Font.Color = vbRed
End If
Next
End Sub
以上是我的程序，为什么实现不了我想要的字体变红的效果呢？应该怎么修改
请高手指教
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 时，整行的字体颜色都设为红的？
If Sheet2.Cells(i, 1) = 456 Then