Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Динамическое изменение диапазона для диаграммы

Автор Vic Voodoo, 20.06.2018, 15:41

« назад - далее »

Vic Voodoo

Здравствуйте!
Не подскажет ли кто?
Есть таблица данных. Например , в диапазоне R1C1:R6C47. Есть график на отдельном листе на основе этих данных. Я ежедневно добавляю к таблице данных столбец. Далее приходится открывать график, щелкать правой кнопкой мыши, выбирать в открывающемся меню команду "Выбрать данные", и там менять 47 на 48. И так каждый день.
Подумал, а нельзя ли это самое 47 заменить на имя, привязанное к ячейке или на какую-то переменную. Тогда я смогу написать макрос, чтобы содержимое ячейки имени или значение переменной менялось автоматически при добавлении столбца. И график бы самоопределялся по данным. Но что-то не получается... График "хочет" иметь тупо диапазон без всяких переменных или имен. Или кто-то знает способ?

_Boroda_

#1
Не вопрос. И даже без макросов.
Но на Вашем файле-примере

Добавлено
И название темы как-то поподробнее нужно сделать. Что-то типа "Динамическое изменение диапазона для диаграммы" или как-то примерно так
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Vic Voodoo

Вот, пожалуйста.

_Boroda_

Смотрите именованные диапазоны (контрл F3)
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Vic Voodoo

Попробую разобраться. Спасибо!

boa

можно так
в модуль листа "Курсы по ЦБ"
Private Sub Chart_Activate()
Dim LastCol&, iRow&
    iRow = 6    'строка с последней отображаемой на графике валютой
    With Sheets("Courses")
        LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
        Me.SetSourceData Source:=.Range(.Cells(2, 1), .Cells(iRow, LastCol))
    End With
End Sub
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Vic Voodoo

boa? спасибище! Мне ваш вариант понятнее!!!