Excel VBA - 使用目标调用后子没有完成

Question

我正在尝试制作一个根据页面上的不同选择进行调整的工作表。有 3 个单元格将下拉列表，它们将根据所选值修改页面。当我直接在 Worksheet_SelectionChange 中启动子程序时，它可以正常工作（因为它只是一个），但是由于我需要 3，我想根据您选择的单元格启动它。我现在遇到的问题是选择有效（使用 Showmsg 完成测试），但之后应该发生的一切都没有。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D25")) Is Nothing Then
            Call LineBlock_Change(Target)
        End If
    End If
End Sub

---------

Sub LineBlock_Change(ByVal Target As Range) 'D25
    Select Case Target
    Case "Non Protected / Non Redundant"
        ' Affichage 1 Ligne
        Columns("J:O").Hidden = True
    Case Else
        ' Affichage 2 Ligne
        Columns("J:O").Hidden = False
    End Select
End Sub

问题是，当我在 Worksheet_SelectionChange 中使用相同的 Sub 代码时（对可以选择的单元格有限制）它确实有效，但在尝试与 Sub 共进午餐时却没有。我个人不知道是否可以这样跟进，或者我是否需要重新考虑这样做的方式。

提前感谢您的帮助。

---

更新：当我注意到我可能有一些问题真正解释我不能做什么时，我将尝试另一种方法。 我有这个代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$D$25" Then Exit Sub
    Select Case Target
     Case "Non Protected / Non Redundant"
        ' Affichage 1 Ligne
        Columns("J:O").Hidden = True
    Case Else
       ' Affichage 2 Ligne
        Columns("J:O").Hidden = False
    End Select
End Sub

它完全符合我的要求，当 D25 有字符串：“非保护/非冗余”时，它隐藏了 J:O 列。现在我的问题是 D25 不是我希望隐藏/取消隐藏列/行的唯一条件。因此，我正在尝试编写一个代码，该代码将根据选择的 Cell 以及其中的内容来启动 sub。 虽然当我尝试以一种可以作为子工作的方式编写代码时，它并没有按照我想要的方式做出反应（隐藏列）。

Answer 1

Sub LineBlock_Change(ByVal Target As Range) 'D25

    Stop '<-  see what happens
    Select Case Target

    Case "Non Protected / Non Redundant"
        ' Affichage 1 Ligne
        Columns("J:O").Hidden = True
    Case Else
        ' Affichage 2 Ligne
        Columns("J:O").Hidden = False        
    End Select

End Sub

LineBlock的问题如下：

• Column 应该是 Columns()
• Columns("J:O").EntireRow.Hidden = True 隐藏整个工作表。那太棒了！但您可能需要删除 EntireRow 部分。

---

编辑：

更新后，读到“D25 不是我希望隐藏/取消隐藏列/行的唯一条件”，这是您应该做的：

Select Case True

    Case Target = "Non Protected / Non Redundant"
        'some action
    Case Range("A1") = "something else"
        'some other action
    Case Else
        Columns("J:O").Hidden = False
End Select