Тема. Створення макросів за допомогою VBA у середовищах Word, Excel
Мета. Навчитися створювати макроси мовою VBA у додатках Word та Excel
Завдання
Створити користувацьку форму для заповнення даними таблиці
Хід роботи
1. Створіть нову книгу в Excel
2. Оформте перший рядок таблиці
3. Створіть форму для введення даних
Розробник, Visual Basic, Insert, UserForm
Встановити на формі:Label (3 шт.), TextBox (3 шт.), CheckBox , CommandButton. Налаштувати їх властивості
(3 шт.)
4. Додайте код обробника клацання по кнопці
n = 1
Do
n = n + 1
Loop While Cells(n, 1) <> ""
s = TextBox1.Text
n1 = InStr(1, s, " ")
n2 = InStr(n1 + 1, s, " ")
n3 = Len(s) + 1
Cells(n, 1).Value = Left(s, n1 - 1)
Cells(n, 2).Value = Mid(s, n1 + 1, n2 - n1 - 1)
Cells(n, 3).Value = Mid(s, n2 + 1, n3 - n2 - 1)
Cells(n, 4).Value = TextBox2.Text
Cells(n, 6).Value = TextBox3.Text
If CheckBox1.Value = True Then
Cells(n, 5).Value = "ч"
Else
Cells(n, 5).Value = "ж"
End If
5. Створіть новий макрос для відкриття форма та додайте до нього команду: UserForm1.Show
6. Збережіть книгу з підтримкою макросів
Додаткове завдання
Додайте на таблицю кнопку, яка запускатиме макрос на виконання
Немає коментарів:
Дописати коментар