1 або більше.
Параметр внутрішнього циклу змінна i змінюється від 1 до 4 – за кількістю заданих стовпчиків. Тут зчитується вміст чергової клітинки (b = Лист1.Cells(k, i).Value) у змінну b. Це значення появляється у вікні InputBox, що надає можливість його редагувати та скоротити кількість роботи тому, хто буде вводити дані. Нове значення b переноситься в клітинку (Лист1.Cells(k, i).Value = b).
Програма виконуватиметься, поки у вікно InputBox не буде введено число 0 (k =0).
Приклад 4. Постановка задачі: задана таблиця, показана на малюнку 1 з назвами стовпців:
прізвище працівника;
місячний оклад;
дата обліку;
коефіцієнт участі в роботі.
1 | 2 | 3 | 4
Артим | 100 | 01.06.00 | 1
Дрозд | 200 | 01.06.00 | 1,2
Лісенко | 300 | 01.03.00 | 0,9
Лісенко | 300 | 01.05.00 | 0,8
Дрозд | 200 | 01.04.00 | 1
Артим | 100 | 01.02.00 | 1,1
Артим | 100 | 01.05.01 | 0,8
Малюнок 1. Поточна інформація про працівників цеху
Необхідно:
використовуючи MS Word, утворити файл з даними, зразки яких подані в таблиці;
транспортувати (скопіювати) дані в таблицю MS Excel, зберегти у вигляді файлу. Відредагувати таблицю, виготовити назви стовпців. Занести у верхній правий кут таблиці MS Excel поточну системну дату;
виготовити звіт, у якому відобразити відомість на зарплату за 2-й квартал 2000 року, згрупувати дані по працівниках. Зарплата дорівнює місячному окладу працівника, помноженому на коефіцієнт участі в роботі;
виготовити звіт, у якому відобразити розподіл зарплат робітників по кварталах;
побудувати графік сумарних витрат на зарплату за кожний місяць 2000 року;
виготовити кнопку, що запускає макрос для редагування комірок таблиці Excel.
Виконання роботи прикладу 4
В процесі виконання роботи виконувались такі команди:
Задача 4.1. Утворення файлу MS Word
головне меню MS Word: команда Файл, Створити;
вікно Створення документа: перемикач Звичайний, команда Ок;
вікно Документ1: внесення в документ потрібних написів та заголовків;
головне меню: команда Таблиця, Додати таблицю;
вікно Вставка таблиці, за допомогою штовхачів вибрати кількість рядків – 8, кількість стовпчиків – 4, команда Ок;
шляхом перетягування ліній таблиці встановити потрібні розміри клітинок, внести дані в таблицю;
головне меню: команда Файл, Зберегти як;
вікно Збереження документа: вибрати потрібну папку, внести в поле ім’я файлу Zarplata.doc, команда Зберегти.
виокремити готову таблицю, головне меню: команда Виправлення, Копіювати.
Задача 4.2. Утворення файлу MS Excel
увійти в MS Excel;
головне меню MS Excel: команда Файл, Створити;
вікно Книга1: встановити курсор у комірку А1, головне меню: команда Виправлення, Вставити;
при потребі відредагувати назви таблиці та імен стовпців;
виокремити рядок з назвами стовпців (діапазон A4:D4), контекстне меню: команда Формат комірок;
вікно Формат комірок: вибрати колір та узір тла з написами імен стовпців;
виокремити діапазон A1:D1 (назви таблиці), головне меню: команда Формат, Комірки;
вікно Формат комірок: розділ Вирівнювання, перемикач Об'єднання комірок, команда Ок;
встановит назви таблиці по центру поля об'єднаних комірок;
встановити курсор в комірку F1. Головне меню: команда Вставити, Функцію;
Вікно Майстра функцій: вибрати тип функції Дата і час, вибрати із списку функцію Сьогодні, команда Ок;
контекстне меню: команда Формат комірок (курсор – у комірці F1);
вікно Формат комірок: розділ Межі, вибрати тип і колір ліній комірки з датою;
вікно Формат комірок: розділ Число, вибрати зі списку тип Дата, вибрати зразок дд.мм.рр, команда Ок. Перевірити візуально чи правильно працює функція дати;
виокремити таблицю з заголовком, головне меню: команда Формат, Комірки;
вікно Формат комірок: розділ Межі, вибрати тип і колір ліній таблиці;
головне меню: команда Файл, Зберегти як;
у вікні Збереження документа вибрати потрібну папку, у поле ввести ім'я файлу Zarplata.xls. Зберегти документ.
В результаті виконаної роботи таблиця Excel матиме вигляд, показаний на малюнку 2.
Поточна інформація про роботу працівників цеху | 26.03.02
прізвище | оклад | дата | коеф
Артим | 100 | 01.06.00 | 1
Дрозд | 200 | 01.06.00 | 1,2
Лісенко | 300 | 01.03.00 | 0,9
Лісенко | 300 | 01.05.00 | 0,8
Дрозд | 200 | 01.04.00 | 1
Артим | 100 | 01.02.00 | 1,1
Артим | 100 | 01.05.01 | 0,8
Малюнок 2. Результати виконання задачі 4.2
Задача 4.2а. Утворення проміжної таблиці для задач 4.3, 4.4, 4.5
виокремити таблицю (комірки A4:D11). Головне меню: команда Виправлення, Копіювати;
встановити курсор на вільне місце листа, наприклад, у комірку A14;
головне меню: команда Виправлення, Вставити;
додати імена стовпців місяць, квартал, рік і зарплата у комірки, відповідно, E14, F14, G14 і H14;
виокремити комірки C15:C21 з датами, за допомогою команди головного меню: Формат, Комірки викликати вікно Формат комірок, де в розділі Число, вибрати зі списку тип Дата, вибрати зразок дати YYYY.MM.DD,
встановити курсор у комірку E15. Головне меню: команда Вставка, Функцію;
вікно Майстра функцій – 1-й крок: вибір типу функції Дата, вибір функції Місяць;
вікно Майстра функцій – 2-й крок: вибір діапазону (аргумента) C15. Команда Оk;
перетягнути комірки E15 вниз до кінця таблиці;
занести в комірку F15 формулу ЯКЩО(Е15<4;1;ЯКЩО(Е15<7;2;ЯКЩО(Е15<10;3;4))) для одержання числового значення кварталу;
перетягнути комірку F15 вниз до кінця таблиці;
одержати в комірках G15:G21 числового значення року, подібно до того як одержали значення місяця, застосувати функцію Рік;
в комірку H15 занести формулу B15*D15 для начислення зарплати;
перетягнути комірку H15 вниз до кінця таблиці;
встановити тип ліній і колір тла за допомогою команди Формат комірок, подібно до того як це робилося в задачі 4.2. Готова проміжна таблиця показана на малюнку 2а.
прізвище | оклад | дата | коеф | місяць | квартал | рік | зарплата
Артим | 100 | 2000.06.01 | 1 | 6 | 2 | 2000 | 100
Дрозд | 200 |