Подстановка Имени Диапазона через переменную

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

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

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

Vostok

Дата: Воскресенье, 25.01.2015, 11:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

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

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

Excel 2010

Диапазон_2 - это Глобальное имя Диапазона данных. Если просто вставить его в строку оператора построения ряда Диаграммы типа:
[vba]

Код

.SetSourceData Source:=[Диапазон_2].Range(Cells(1, 1), Cells([Диапазон_2].Rows.Count, 2))

[/vba]Или в такой записи:[vba]

Код

.SetSourceData Source:=Range("Диапазон_2").Range(Cells(1, 1), Cells(Range("Диапазон_2").Rows.Count, 2))

[/vba]Всё работает. Ряд Диаграммы строится по указанному Диапазону данных.

Но если попробовать вставить имя диапазона через элемент массива, тоесть так:
[vba]

Код

Dim xBufferName() As String
ReDim xBufferName(1 To 4)
xBufferName(1) = "Диапазон_1"
xBufferName(2) = "Диапазон_2"
.SetSourceData Source:=[xBufferName(2) ].Range(Cells(1, 1), Cells([xBufferName(2) ].Rows.Count, 2))

[/vba]
то уже не работает. Пробовал так: [vba]

Код

.SetSourceData Source:=[" & xBufferName(2) & " ].Range(Cells(1, 1), Cells([" & xBufferName(2) & " ].Rows.Count, 2))

[/vba] тоже не работает. Помогите с синтаксисом кто может.
Картинка происходящего для наглядности:

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Воскресенье, 25.01.2015, 15:08

Ответить

nilem

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

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

вот так попробуйте
[vba]

Код

.SetSourceData Source:=Range(xBufferName(1)).Resize(, 2)

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Vostok

Дата: Воскресенье, 25.01.2015, 15:16 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

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

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

Excel 2010

Ну собственно говоря сработал второй вариант, но с учётом предложенного Вами синтаксиса с Range()
[vba]

Код

.SetSourceData Source:=Range(xBufferName(2)).Range(Cells(1, 1), Cells(Range(xBufferName(2)).Rows.Count, 2))

[/vba] Далее в коде, при добавлении дополнительных данных из других диапазонов к этой же Диаграмме этот синтаксис мне будет единственно приемлем. Спасибо за подсказку. А вот с квадратными скобками - формой укороченной записи не получается.