End Sub

7. Для 20 человек внесите в свободные столбцы Фамилию и Дату рождения. В Excel рассчитайте месяц рождения(=Текст(дата; ”МММ”). В справочную таблицу внесите информацию о соответствии месяца знакам зодиака (упрощенно).

8. Создайте программу определения знака зодиака для каждого человека из первой таблицы

Sub Задание7()

i = 2

While Cells(i, 3) < > " "

j = 2

Do While Cells(j, 7) < > " "

If Cells(i, 3) = Cells(j, 7) Then

Cells(i, 4) = Cells(j, 8)

End If

j = j + 1

Loop

i = i + 1

Wend

End Sub

9. Сколько человек совпадают по заданному знаку зодиака?

Sub Задание9()

' Макрос1 Макрос

' Сочетание клавиш: Ctrl+г

i = 2

k = 0

n = Range(" k1")

Do While Cells(i, 4) < > " "

If Cells(i, 4) = n Then

k = k + 1

End If

i = i + 1

Loop

Range(" l1") = k

End Sub

10. Чтобы не запутаться в Ваших данных при отчете, позаботьтесь о подписях к данным и кнопкам, вызывающим макросы, например, в таком виде:

Лабораторная работа № 10. VBA. Основы создания интерфейса пользователя.

1. Создайте форму - «хамелеон», реагирующую на 3-5 различных событий изменением цвета и текста заголовка.

Private Sub CommandButton1_Click()

UserForm1.Caption = " красный"

UserForm1.BackColor = vbRed

End Sub

Private Sub CommandButton2_Click()

UserForm4.Caption = " зеленый"

UserForm4.BackColor = vbGreen

End Sub

Private Sub CommandButton3_Click()

UserForm4.Caption = " оранжевый"

UserForm4.BackColor = vbOrange

End Sub

Private Sub CommandButton4_Click()

UserForm4.Caption = " синий"

UserForm4.BackColor = vbBlue

End Sub

Private Sub UserForm_Click()