Excel VBA-用目标调用后，子项未完成

Question

我正在尝试制作一个可根据页面上的不同选择进行调整的工作表。 有3个单元格的Wills下拉列表，这些列表将根据所选值来修改页面。 当我直接在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不是我希望拥有的唯一条件，它将隐藏/取消隐藏列/行。 这样，我正在尝试编写一个代码，该代码将根据选定的单元格及其内部内容启动一个子程序。 尽管当我尝试以一种可以作为子代码的方式编写代码时，它并没有按照我想要的方式做出反应（隐藏列）。

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