VBA для установки значения ячейки на основе определенного имени ячейки - PullRequest
0 голосов
/ 09 января 2019

Я пытаюсь установить значение ячейки в «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

Спасибо за вашу помощь.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...