Question

我在这里的房子周围走动，看不到树木的木头。我继续得到这个Else没有If错误但无法解决它。我在这里找到的答案我不能为我工作（我确定，因为我错过了一些明显的东西）。任何帮助指出我正确的方向将非常感激。隐藏/取消隐藏附加工作表的第一部分代码可以单独工作但是当我添加另一个代码来改变某些单元格的字体颜色时，它会断开吗？提前致谢代码如下：

    Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Me.Range("LoB").Address Then
If Target.Value = "AVIATION" Then
        Sheets("Aviation Debit Summary").Visible = True
    Else
        Sheets("Aviation Debit Summary").Visible = False
    Else
If Target.Address = Me.Range("LoB").Address Then
If Target.Value = "MARINE" Then
        Range("C54:E55").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End If
    End If
End If

End Sub

Answer 1

end if之后您需要Sheets("Aviation Debit Summary").Visible = False ，以及end with之后的.TintAndShade = 0

试试这个

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("LoB") = "AVIATION" Then
    Sheets("Aviation Debit Summary").Visible = True
Else
    Sheets("Aviation Debit Summary").Visible = False
End If

If Range("LoB") = "MARINE" Then
    With Range("C54:E55").Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
Else
    With Range("C54:E55").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End If

End Sub

Answer 2

对于这种颜色变化，可以使用您想要Alt + ODD（如果我没记错的话）的范围使用条件格式来完成相同的颜色更改，那么您就不必编写该部分的代码。 / p>

否则没有If多个事件的错误

2 个答案: