риті документи зберігаються і робота макросу (програми) завершується.
Код процедури:
Private Sub cmdExit_Click (). Quit SaveChanges: = wdSaveChangesSub
Б) Створити програму (макрос) для [MS EXCEL]: макрос повинен з допомогою форми дозволяти проводити наступні маніпуляції з електронними книгами:
. б.1. Відкриття існуючої електронної книги з одночасною видачею списку її листів на форму (в об'єкт типу ListBox або ComboBox) і можливістю переходу з одного аркуша електронної книги - на інший аркуш - за допомогою вибору елементів цього списку (програмуєте подія onCange для списку). При відкритті книги "Завдання 2. xls "на екрані з'являється призначена для користувача форма (малюнок 6).
В
Малюнок 6 - Користувацька форма
При натисканні на кнопку "Відкрити книгу" з'являється діалогове вікно "Відкриття документа". Відкривається обраний документ, при цьому в полі зі списком з'являються назви всіх аркушів активної книги. p align="justify"> Код процедури:
Private Sub cmdOpenFile_Click ()
'відкриття файлу за допомогою діалогового вікна
FName = Application. GetOpenFilename ("Excel Files (*. Xlsm; *. Xls), * xlsm; *. Xls") FName = False Then End 'якщо була натиснута кнопка Відміна - виходимо з процедури
відкриваємо обрану книгу
Workbooks. Open FName,,, 1
'очищаємо поле зі списком
ComboBox1. Clear
'додаємо в поле зі списком ComboBox1 найменування всіх аркушів відкритої книги
For i = 1 To ActiveWorkbook. Worksheets. Count
ComboBox1. AddItem Worksheets (i). Namei
End Sub
При виборі в ComboBox якогось елементу, лист з обраним назвою стає активним.
Код процедури:
Private Sub ComboBox1_Change ()
'якщо в полі зі списком був обраний якийсь лист - відкриваємо його
If ComboBox1. ListIndex> = 0 Then (ComboBox1. Value). ActivateIf
End Sub
2. б.2. Створення нової електронної книги. Передбачити також на формі кнопку для збереження всіх відкритих файлів або активного докумен та в будь-який момент.
При натисканні на кнопку "Створити новий документ" з'являється нова книга.
Код процедури:
Private Sub cmdNewD...