Question

我在名为“模型”的选项卡中有一个私有子宏，我希望该宏基于模型选项卡的单元格O1中的级联公式值隐藏和取消隐藏工作表和列。但是，当我在工作表上进行更改时，宏似乎并没有执行我想要的操作。以下是我的代码，非常感谢任何人都可以提供的任何帮助。关于VBA，我是个新手。

Private Sub Worksheet_change(ByVal target As Range)

Worksheets("Model").Range("O1").Calculate
Dim test As String
test = Worksheets("Model").Range("O1").Value
Select Case test
    Case "", "new", "credit", "Non-Credit", "Existing"
        Exit Sub
    Case "Non-CreditNew"
        Sheets("Enrollment Waterfall-Credit-New").Visible = False
        Sheets("Enrollment Waterfall-New").Visible = True
        Sheets("Enrollment Waterfall-Credit-Exs").Visible = False
        Columns("Z:AR").EntireColumn.Hidden = True
        Columns("AT:BH").EntireColumn.Hidden = False
        Columns("F:H").EntireColumn.Hidden = True
    Case "Non-CreditExisting"
        Sheets("Enrollment Waterfall-Credit-New").Visible = False
        Sheets("Enrollment Waterfall-New").Visible = True
        Sheets("Enrollment Waterfall-Credit-Exs").Visible = False
        Columns("Z:AR").EntireColumn.Hidden = True
        Columns("AT:BH").EntireColumn.Hidden = False
        Columns("F:H").EntireColumn.Hidden = False
    Case "CreditNew"
        Columns("F:H").EntireColumn.Hidden = True
        Sheets("Enrollment Waterfall-Credit-New").Visible = True
        Sheets("Enrollment Waterfall-New").Visible = False
        Sheets("Enrollment Waterfall-Credit-Exs").Visible = False
        Columns("Z:AR").EntireColumn.Hidden = False
        Columns("AT:BH").EntireColumn.Hidden = True
    Case "CreditExisting"
        Sheets("Enrollment Waterfall-Credit-New").Visible = False
        Sheets("Enrollment Waterfall-New").Visible = False
        Sheets("Enrollment Waterfall-Credit-Exs").Visible = True
        Columns("Z:AR").EntireColumn.Hidden = False
        Columns("AT:BH").EntireColumn.Hidden = False
        Columns("F:H").EntireColumn.Hidden = False
    End Select
End Sub

Case Select语句未触发宏

0 个答案: