多个 IF 语句从第 3 条语句开始不起作用

Question

在第二个语句之后让多个 If 语句工作时遇到问题。我有 2500 行数据问题集，它们与 217 项下拉列表相关联。我要编码的是，适用的问题将根据下拉列表的选定操作填充。每个操作适用的问题从 3 到 12 不等，不适用于选择的问题应自动隐藏行。我尝试了多种代码变体，使用 ElseIf、If、组合 If 和 ElseIf、组合 If 和 Or_（这是最新的），如下所示。有人可以就此提出建议吗？我不知道还能尝试什么，我需要在代码中添加额外的 213 个变量.....谢谢

Sub Hide_Rows()

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TrigerCell As Range

Set Triggercell = Range("$J$14")
   
    If Not Application.Intersect(Triggercell, Target) Is Nothing Then
            If Triggercell.Value = "Electrician, farm based business" Then
                Rows("19:2500").Hidden = False
                Rows("26:2500").Hidden = True
                Or_
            If Triggercell.Value = "Plumbing and heating contractors, farm based business" Then
                Rows("19:2500").Hidden = False
                Rows("19:25", "47:2500").Hidden = True
                Or_
            If Triggercell.Value = "Plumbing contractors (plumber), farm based business" Then
                Rows("19:2500").Hidden = False
                Rows("19:46", "55:2500").Hidden = True
                Or_
            If Triggercell.Value = "Assembly and installation of agricultural equipment in farm outbuildings, for others, farm based business" Then
                Rows("19:2500").Hidden = False
                Rows("19:55", "61:2500").Hidden = True
            End If
    End If
End Sub

End Sub
End Sub

Answer 1

Or_ 不存在于 VBA 中，因此当您尝试使用它时遇到编译错误也就不足为奇了。这种用法很不寻常，可能会使编译器感到困惑，这可能就是为什么直到第二个或第三个（或者甚至可能是不相关的语句）才会收到错误消息的原因。

您可以使用Select Case 语句或在条件之间使用ElseIf 来完成这项工作。我认为Select Case 对于这个问题来说更自然一些。它应该是这样的：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TriggerCell As Range

    Set Triggercell = Range("$J$14")

    If Application.Intersect(TriggerCell, Target) Is Nothing Then Exit Sub
    
    Select Case Triggercell.Value
        Case "Electrician, farm based business"
            Rows("19:2500").Hidden = False
            Rows("26:2500").Hidden = True
        Case "Plumbing and heating contractors, farm based business"
            Rows("19:2500").Hidden = False
            Rows("19:25").Hidden = True
            Rows("47:2500").Hidden = True
        'Etc.
    End Select
End Sub

请注意（根据对此答案的评论）您不能为 Rows 指定两个单独的范围，这是原始代码中的几个块的问题。我已经相应地更新了答案。