Я пытаюсь установить значение ячейки в «NA» на основе имени объекта ячейки.
Шаг 1: Получить определенные имена ячеек в помеченном FHLB на листе с именем FHLBCL - это прекрасно работает.
Шаг 2 Установите для ячейки значение «NA» на основе If Left(nm.Name, 5) = "FHLB_" Then Cell.Value="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
Спасибо за вашу помощь.