Question

excelvba改变字体颜色的问题

例如当H3<>“”，那么C3：H6中所有字体为蓝色

Answer 1

选主页→条件书式→新建规则→在规则种类里选最后一个
然后在规则栏里输入=$H$3<>""，颜色选蓝色 点ok。
再在适用范围里输入=$C$3:$H$6。
就可以了 $一定需要哦

Answer 2

见附件。

Sub 按钮1_Click()
For i = 3 To 18 Step 5
    If Cells(i + 1, 8) <> "" Then
        Range(Cells(i, 3), Cells(i + 4, 8)).Font.ColorIndex = 5
    End If
    If Cells(i + 1, 15) <> "" Then
        Range(Cells(i, 10), Cells(i + 4, 15)).Font.ColorIndex = 5
    End If
Next
End Sub
Sub 按钮2_Click()
For i = 3 To 18 Step 5
    If Cells(i + 1, 8) <> "" Then
        Range(Cells(i, 3), Cells(i + 4, 8)).Font.ColorIndex = 1
    End If
    If Cells(i + 1, 15) <> "" Then
        Range(Cells(i, 10), Cells(i + 4, 15)).Font.ColorIndex = 1
    End If
Next
End Sub