Дана книга призначена для користувачів Microsoft Excel і містить опис прийомів і методів роботи, які через свою специфічність недостатньо представлені (або взагалі не представлені) в призначеній для користувача, довідкової та іншої відповідної документації. Вивчення наведених в книзі прикладів дозволить читачеві відкрити для себе невідомі раніше можливості Excel. Пропонований матеріал легко засвоюється завдяки тому, що викладається доступною і зрозумілою мовою.
Книга: Excel. Трюки і ефекти
Побудова діаграми на основі даних декількох робочих аркушів
Побудова діаграми на основі даних декількох робочих аркушів
В процесі роботи нерідко виникає необхідність в оперативній обробці даних, які зберігаються на декількох робочих аркушах. Як відомо, одним із способів обробки інформації є побудова діаграм. У цьому розділі ми розглянемо, яким чином можна побудувати одночасно кілька діаграм, вихідними даними для яких буде інформація, розташована на декількох робочих аркушах.
Припустимо, що у нас є п'ять різних таблиць, які розташовані на п'яти аркушах, причому кількість рядків в цих таблицях різниться. Одна з таких таблиць показана на рис. 4.8.
Мал. 4.8. приклад таблиці
Для побудови діаграм на підставі даних, що зберігаються в цих таблицях, можна використовувати макрос, код якого приведений в лістингу 4.11.
Лістинг 4.11. Одночасне створення декількох діаграм
Dim intTop As Long, intLeft As Long
Dim intHeight As Long, intWidth As Long
Dim sheet As Worksheet
Dim lngFirstRow As Long 'Перший рядок з даними
Dim strErrorSheets As String 'Список листів, для яких _
не вдалося побудувати діаграми
intTop = 1 'Верхня точка першої діаграми
intLeft = 1 'Ліва точка кожної діаграми
intHeight = 180 'Висота кожної діаграми
intWidth = 300 'Ширина кожної діаграми
'Побудова діаграми для кожного листа, крім поточного
For Each sheet In ActiveWorkbook.Worksheets
If sheet.Name <> ActiveSheet.Name Then