Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Автор Тема: Динамическое изменение диапазона для диаграммы  (Прочитано 131 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Vic Voodoo

  • Постоялец
  • ***
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 152

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

_Boroda_

  • Глобальный модератор
  • Ветеран
  • *****
  • Уважение: +415/-0
  • Оффлайн Оффлайн
  • Сообщений: 2 519

Не вопрос. И даже без макросов.
Но на Вашем файле-примере
 
Добавлено
И название темы как-то поподробнее нужно сделать. Что-то типа "Динамическое изменение диапазона для диаграммы" или как-то примерно так
« Последнее редактирование: 20.06.2018, 16:58:31 от _Boroda_ »
Записан
Скажи мне, кудесник, любимец ба’гов...



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

Vic Voodoo

  • Постоялец
  • ***
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 152
Re: График. Выбрать данные.
« Ответ #2 : 20.06.2018, 16:28:21 »

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

_Boroda_

  • Глобальный модератор
  • Ветеран
  • *****
  • Уважение: +415/-0
  • Оффлайн Оффлайн
  • Сообщений: 2 519
Re: График. Выбрать данные.
« Ответ #3 : 20.06.2018, 16:51:31 »

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



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

Vic Voodoo

  • Постоялец
  • ***
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 152
Re: График. Выбрать данные.
« Ответ #4 : 20.06.2018, 16:53:24 »

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

boa

  • Глобальный модератор
  • Постоялец
  • *****
  • Уважение: +27/-0
  • Оффлайн Оффлайн
  • Сообщений: 487
  • Доброта спасет мир...
Re: График. Выбрать данные.
« Ответ #5 : 20.06.2018, 17:01:33 »

можно так
в модуль листа "Курсы по ЦБ"
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

  • Постоялец
  • ***
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 152
Re: График. Выбрать данные.
« Ответ #6 : 21.06.2018, 10:27:02 »

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



Темы без ответов

22.05.2018 11:38 Скрипт написать который допишет данные в файл 286
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 667
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 633
23.01.2018 13:46 Найти вероятность повторной покупки 634
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 847
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 898
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1139
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2627
15.03.2017 15:45 автозамена картинок PowerPoint 1629
11.03.2017 13:43 Изменить нумерацию страниц 1857





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.115 секунд. Запросов: 109.