Excel 2016 VBA 向后兼容问题到 2013

Question

我有一个在 Excel 2016 中创建的简单 VBA 代码，它根据用户是否输入“是/否”来隐藏其他工作表中的一些行。不幸的是，它不能在 Excel 2013 中运行。

错误信息是：

运行时错误“1004”应用程序定义或对象定义错误。

调试亮点位于以If nmdrange 开头的第 9 行。
有没有办法让它向后兼容？

Sub Worksheet_Change(ByVal Target As Range)
    Dim nmdrange As Name
    Dim Row As Range

    If Not Intersect(Target, Range("screener1")) Is Nothing Then
        'Input data sheet
        With Sheet4
            For Each nmdrange In ThisWorkbook.Names
                If nmdrange.RefersToRange.Parent.Name = .Name Then '***ERROR HERE***
                'Loop over benefits
                .Range(nmdrange.RefersTo).Rows.EntireRow.Hidden = (.Range(nmdrange.RefersTo).Cells(1, 1).Value = "No")
                End If
            Next nmdrange
        End With

        With Sheet5
            For Each nmdrange In ThisWorkbook.Names
                If nmdrange.RefersToRange.Parent.Name = .Name Then 
                'Loop over benefits
                .Range(nmdrange.RefersTo).Rows.EntireRow.Hidden = (.Range(nmdrange.RefersTo).Cells(1, 1).Value = "No")
                End If
            Next nmdrange
            'Hide in summary table
            For Each Row In .Range("sum_b1").Rows
                Row.Rows.EntireRow.Hidden = (Row.Rows.Cells(1, 1).Value = "No")
            Next Row
        End With

    End If
End Sub

有两个命名范围不是指范围而是指单个单元格/值，例如：

Answer 1

您是否有任何不引用工作表的命名范围？
命名范围也可以引用常量或公式 - 因此它可以称为 VAT 并具有 20% 的平面值

当您的循环到达此命名范围时，它将无法找到父工作表，因为它没有。