VBA根据单元格的定义名称设置单元格值

时间:2019-01-08 22:57:21

标签: excel vba for-loop

我正在尝试根据单元格的名称对象将单元格的值设置为“ NA”。

步骤1:在名为FHLBCL的工作表中获取带标签的FHLB中的单元格的定义名称-可以正常工作。
步骤2 根据If Left(nm.Name, 5) = "FHLB_" Then Cell.Value="NA"将单元格的值设置为“ NA”。这是导致命名范围中的每个单元格都获得“ NA”值的步骤,我不知道为什么。

代码:

Sub NamedRanges()
    Dim nm As Name
    Dim cell As Range

    For Each nm In ActiveWorkbook.Names
        If Left(nm.RefersTo, 8) = "=FHLBCL!" Then
            For Each cell In [CL_AllCells]
                If Left(nm.Name, 5) = "FHLB_" Then
                    cell.Value = "NA"
                Debug.Print UCase("Cell Name") & ": " & nm.Name & " and " & UCase("Refers to Cell") & ": " & nm.RefersTo
                End If
            Next cell
        End If
    Next nm

End Sub

谢谢您的帮助。

0 个答案:

没有答案