Question

我有一个Excel文件，该文件使用VBA代码根据特定单元格中的选择来隐藏/取消隐藏行。到目前为止，我的代码还没有任何问题，但是我意识到，每次向Excel文件添加行时，所有单元格引用都不再正确。结果，我试图将我的代码从单元格引用转换为命名范围，并查看了有关此示例，但我似乎仍然无法正常工作。

有人可以告诉我如何编写以下代码，以便它使用命名范围而不是单元格引用吗？

If Target.Address(False, False) = "F43" Then
    Select Case Target.Value
        Case 1: Rows("44").Hidden = False: Rows("45:50").Hidden = True
        Case 2: Rows("44:45").Hidden = False: Rows("46:50").Hidden = True
        Case 3: Rows("44:46").Hidden = False: Rows("47:50").Hidden = True
        Case 4: Rows("44:47").Hidden = False: Rows("48:50").Hidden = True
        Case 5: Rows("44:48").Hidden = False: Rows("49:50").Hidden = True
        Case 6: Rows("44:49").Hidden = False: Rows("50").Hidden = True
        Case "": Rows("44:50").Hidden = True
    End Select
End If

从单元格引用转换为命名范围

0 个答案: