0 / 0 / 0
Регистрация: 22.03.2019
Сообщений: 12
1
Excel

Макрос продления диапазона для всех рядов всех диаграмм всех листов в книге

11.09.2021, 15:38. Показов 360. Ответов 1

Добрый день!
Есть следующая ситуация:
книга эксель с некоторым количеством листов. на каждом листе несколько (пока 8, но возможно будет больше, и, возможно, не на всех листах одинаковое количество) диаграмм, на каждой диаграмме несколько рядов (количество рядов не одинаковое для всех диаграмм), все ряды ссылаются на диапазоны одинаковой длины, (но разных столбцов)

Необходим макрос, который будет протягивать эти диапазоны до указанной строчки (указывать через inputBox).
Для примера, по быстрому, сделал файл (в настоящем файле у всех листов, диаграмм и рядов есть свои названия)
Спасибо за помощь!
Вложения
Тип файла: xlsx qwer123.xlsx (82.1 Кб, 6 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.09.2021, 15:38
Ответы с готовыми решениями:

Изменить масштаб всех листов в книге
Люди, здравствуйте. Как изменить масштаб всех листов в книге? For Each wsh In wb.Worksheets ...

макрос для обьединения таблиц со всех листов одной книги в одну
как обьединить таблицы или все листы в одной книге в один лист

Переименование всех листов в книге Эксель по шаблону
Нужно переименовать все листы в книге Эксель, добавив к уже существующему названию, состоящему из 6...

Макрос для копирования всех видимых ячеек со всех вкладок
Необходимо скопировать отфильтрованные ячейки (видимые) я в excel, со всех вкладок, из нескольких...

1
5573 / 1565 / 402
Регистрация: 23.12.2010
Сообщений: 2,358
Записей в блоге: 1
16.09.2021, 11:13 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub УдлинитьСерииДанныхВсехДиаграмм()
    Dim Sh, Ch, Ser, MaxRow&, S$, i%, k%, A
    MaxRow = InputBox("Введите конечную строку")
    For Each Sh In ActiveWorkbook.Sheets
        For Each Ch In Sh.ChartObjects
            For Each Ser In Ch.Chart.FullSeriesCollection
                A = Split(Ser.Formula, ",")
                For i = 1 To UBound(A)
                    k = InStrRev(A(i), "$")
                    If k > 0 Then A(i) = Left(A(i), k) & MaxRow
                Next
                Ser.Formula = Join(A, ",")
            Next
        Next
    Next
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.09.2021, 11:13
Помогаю со студенческими работами здесь

Найти итоги из всех листов другой книги и записать в факт для всех выделенных значений рабочей книги
Написал макрос для проверки итогов с фактом. Как запустить всё это по циклу? Чтоб отрабатывался для...

Вывод всех уникальных значений в порядке возрастания со всех листов книги
В этой теме предложено решение для вывода уникальных значений на одном листе книги. Во...

Структуры. По запросу выдать: всех женщин, сменивших свою фамилию, всех военнообязанных, всех холостых
к сожалению сама не могу сообразить как решить вот такую задачку: В файле хранятся структуры,...

Catalog.section вывод всех елементов из всех инфоблоков типа инфблока и из всех их подразделов
Нужно использовать именно catalog.section, и указывать несколько SECTION_ID, SHOW_ALL_WO_SECTION не...

Массив: Подсчет всех средних арифметических всех отрицательных и всех положительных чисел...
дано масив А(1..n) скласти праграму підрахунку всіх середніх арифмитичних всіх відємних і всіх...

Написать функцию, которая вычисляет количество всех атомов в списке(кроме NIL) с учетом всех подсписков всех уровней вложенности
Написать функцию, которая вычисляет количество всех атомов в списке(кроме NIL) с учетом всех...

Значения сумм рядов для всех коэффициентов А и В
Помогите пожалуйста сделать задание, visual basic 2008 ( консольное приложение) Значения А,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru