Как вызвать переменную из Диспетчера имен

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вызвать переменную из Диспетчера имен (Макросы/Sub)

Vertep7

Дата: Воскресенье, 28.01.2024, 14:00 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 52

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте. Подскажите как вызвать переменную из Диспетчера имен. Прошерстил весь интернет но ничего рабочего не нашел, только наоборот все не рабочее. Необходимо что бы именованный диапазон (как я понимаю так называют эту переменную) передавал свое значение в макрос.
Набросал пример, вроде как пишут что подобный вариант должен выполнять эту манипуляцию, но он выдает ошибку.
[vba]

Код

Sub Пример()
Dim Темп As Variant
Set Темп = ThisWorkbook.Names("Темп1").RefersToRange ' использование переменной из Диспетчера имен
MsgBox Темп
End Sub

[/vba]

К сообщению приложен файл: primer.xlsm (18.2 Kb)

Ответить

Pelena

Дата: Воскресенье, 28.01.2024, 14:17 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

Репутация: 4421 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
У Вас именованная формула, а не диапазон. Попробуйте так
[vba]

Код

Sub Пример()
    Dim Темп As Variant
    Темп = Evaluate(ThisWorkbook.Names("Темп1").RefersTo)    ' использование переменной из Диспетчера имен
    MsgBox Темп
End Sub

[/vba]