Есть таблица с данными, которая постоянно дополняется. Скрипт, в процессе работы, вычисляет какие именно ячейки должны использоваться для формирования графика. Если график строится на основе смежных ячеек, то все просто. Работает такой код: [vba]
А вот если ячейки из несмежных ячеек, то никак не могу придумать, как сделать... пробовал так: [vba]
Код
Dim multirange, myrange1, myrange2 As Range myrange1 = Range(Sheets("t1").Cells(12, 1), Sheets("t1").Cells(12, max_col)) myrange2 = Range(Sheets("t1").Cells(15, 1), Sheets("t1").Cells(15, max_col)) multirange = Union(Range(myrange1), Range(myrange2)) Sheets("t2").ChartObjects("diag1").Activate ActiveChart.SetSourceData Source = myrange1, myrange2
[/vba] Но возникает ошибка "Object variable or With block variable not set" после первой же строчки Пробовал выбирать ячейки для графика вручную (с зажатием Ctrl) и смотреть код полученного записанного макроса - там диапазон задается через буквы и все работает. Но с буквами неудобно, т.к. количество столбцов в таблице постоянно меняется и нужно именно с использованием Cells
Есть таблица с данными, которая постоянно дополняется. Скрипт, в процессе работы, вычисляет какие именно ячейки должны использоваться для формирования графика. Если график строится на основе смежных ячеек, то все просто. Работает такой код: [vba]
А вот если ячейки из несмежных ячеек, то никак не могу придумать, как сделать... пробовал так: [vba]
Код
Dim multirange, myrange1, myrange2 As Range myrange1 = Range(Sheets("t1").Cells(12, 1), Sheets("t1").Cells(12, max_col)) myrange2 = Range(Sheets("t1").Cells(15, 1), Sheets("t1").Cells(15, max_col)) multirange = Union(Range(myrange1), Range(myrange2)) Sheets("t2").ChartObjects("diag1").Activate ActiveChart.SetSourceData Source = myrange1, myrange2
[/vba] Но возникает ошибка "Object variable or With block variable not set" после первой же строчки Пробовал выбирать ячейки для графика вручную (с зажатием Ctrl) и смотреть код полученного записанного макроса - там диапазон задается через буквы и все работает. Но с буквами неудобно, т.к. количество столбцов в таблице постоянно меняется и нужно именно с использованием CellsBSZ
китин, вкладываю файл Ошибки не возникает уже, но результат не тот, что нужно... диапазон объединяется, а нужно выбрать только две желтые строки для графика
китин, вкладываю файл Ошибки не возникает уже, но результат не тот, что нужно... диапазон объединяется, а нужно выбрать только две желтые строки для графикаBSZ
sboy, ндааааа.... прошу прощения, что с такой ерундой обратился. Что самое интересное, я как только не пробовал - изголялся как мог. постоянно вылетали ошибки. А для того, чтобы на форум скинуть, сделал файлик с нуля (рабочий файл слишком тяжеловесный и с кучей другого кода). Делал вариант, который пробовал изначально, но он не получился... вероятно по такой же причине - невнимательности) Спасибо большое
sboy, ндааааа.... прошу прощения, что с такой ерундой обратился. Что самое интересное, я как только не пробовал - изголялся как мог. постоянно вылетали ошибки. А для того, чтобы на форум скинуть, сделал файлик с нуля (рабочий файл слишком тяжеловесный и с кучей другого кода). Делал вариант, который пробовал изначально, но он не получился... вероятно по такой же причине - невнимательности) Спасибо большое BSZ