СТВОРЕННЯ ПРОЕКТУ  З ВИКОРИСТАННЯМ VBA – МАКРОСІВ

1.                Створіть титульний слайд вашого проекту за зразком:

2. Створіть слайд№2 – Меню, що буде призначене для вибору правила, і слайди з відповідними правилами фонетики і правопису. Налаштуйте гіперпосилання для переходу на слайди.

3. На слайді №3 розмістить 4 командні кнопки (CommandButton) за допомогою Елементів керування.
4. За допомогою автофігур створіть на слайді кнопки МЕНЮ та ВИХОД і відповідно налаштуйте їх.

5. Установіть властивості кнопок за зразком:

6. Створіть програмні коди для кожної кнопки для визову користувацьких форм (UserForm). Для цього потрібно виконати подвійне клацання на кнопці і у вікні ввести відповідні команди відкриття  форми:

Private Sub CommandButton1_Click()

 UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

 UserForm2.Show

End Sub

Private Sub CommandButton3_Click()

 UserForm3.Show

End Sub

7. Додайте у проект користувацькі форми за допомогою команді Insert – UserForm.
8. Перейдіть на форму UserForm1 та розмістіть на ній необхідні елементи керування.

9. Створіть програмний код для кнопки Перевірити:

Private Sub CommandButton1_Click() 'Перевірити

    k = 0        ‘кількість вірних відповідей

    If TextBox1 = "розпис" Then

      k = k + 1   ‘підрахунок кількості вірних відповідей

      TextBox1.ForeColor = vbGreen  ‘виділення вірної відповіді зеленим кольором

    Else

      TextBox1.ForeColor = vbRed   ‘виділення невірної відповіді червоним кольором

    End If

    If TextBox2 = "зсунув" Then

      k = k + 1

      TextBox2.ForeColor = vbGreen

    Else

      TextBox2.ForeColor = vbRed

    End If

    Label4.Caption = Str(k)

    Label5.Caption = "Помилки виділені червоним кольором"

End Sub

Private Sub CommandButton2_Click()  'Назад

    End

End Sub

Private Sub CommandButton3_Click()  'Далі

    UserForm2.Show  ‘перехід до форми наступного завдання

End Sub

Private Sub UserForm_Activate()  ‘Загрузка форми

    k = 0

End Sub

10. Аналогічно створіть програмний код для інших форм.
11. Збережіть проект із підтримкою макросів.
12. Звітуйте вчителю.