Excel: Проблема с использованием имен в VBA

[dimonbk]

Доброго времени суток! В диспетчере имен создаю имя "ColumnCell" с формулой "=СТОЛБЕЦ(Лист1$A$1)", т.е. имя возвращает не диапазон, а конкретное значение. Вопрос в том, чем мне в VBA выхватить это значение из имени. Если бы имя возвращало диапазон, то в макросе я бы написал следующий код: "Range("ColumnCell").Column" и узнал бы номер столбца, на ячейку которого ссылается имя. В данной же ситуации, когда имя возвращает не диапазон, а значение, выражение "Range("ColumnCell")" возвращает ошибку. Как решить этот вопрос, помогите плиз! Заранее спасибо

[alibek]

Names

[viter.alex]

Код: Выделить всё

Application.Evaluate([ColumnCell])

[dimonbk]

Names

Извини, не мог бы пояснить по конкретнее

[alibek]

ActiveWorkbook.Names("test").RefersToRange

[dimonbk]

ActiveWorkbook.Names("test").RefersToRange

Так не получается (выдает ошибку), вот что в справке написано по этому поводу: "If the Name object doesn't refer to a range (for example, if it refers to a constant or a formula), this property fails.". Может ты что другое имел ввиду, просто как то не верится что ты можешь ошибиться.

[alibek]

Значит посмотри остальные свойства, начинающиеся с Refer.

[KL]

Проблема в помимо всего прочего еще и в том, что фуннкция СТОЛБЕЦ() возвращает не просто числовое значение, а массив, даже если в нем всего один элемент

Код: Выделить всё

Sub test()
    x = Evaluate("ColumnCell")(1)
    y = [INDEX(ColumnCell,1)]
    z = Evaluate(ThisWorkbook.Names("ColumnCell").RefersTo)(1)
End Sub