9;являється призначена для користувача форма.
При натисканні на кнопку "Відкрити книгу" з'являється діалогове вікно "Відкриття документа". Відкривається обраний документ, при цьому в полі зі списком з'являються назви всіх аркушів активної книги. p align="justify"> Код процедури:
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
При натисканні на кнопку "Створити новий документ" з'являється нова книга.
Код процедури:
Private Sub cmdNewDoc_Click ()
Workbooks. Add
End Sub
Для заповнення 3-го аркуша активної електронної книги даними, необхідно на формі заповнити поля "Прізвище" і "Дата народження" і натиснути кнопку "Додати".
При кожному натисканні на цю кнопку на 3 лист активної книги будуть послідовно додаватися введені користувачем дані.
Код процедури:
Private Sub cmdAdd_Click ()
'відкриваємо 3 лист активної книги
ActiveWorkbook. Worksheets (3). Activate
'визначаємо останню заповнену рядок у поточному діапазоні
last_row = Cells (1, 1). CurrentRegion. Rows. Count
Cells (1, 1) = "ПІБ" (1,2) = "Дата"
'записуємо в перший пустий рядок дані з текстових полів, попередньо перевіривши правил...