Для примера возьмем строки:

«Налево пойдешь – смерть найдешь,
Направо пойдешь - коня потеряешь,
Прямо пойдешь - счастье найдёшь.»

Мы налево не ходим, и конь теперь не у каждого, так что пойдём прямо, то есть дальше.

Связь этих строк с темой урока для меня очевидна. И как вы уже, возможно, догадываетесь, я хочу перевести их в код, используя конструкцию условия if («Прямо пойдешь») then («счастье найдёшь»). Тут всё становится ясным, если сделать дословный перевод: Если(if) «прямо пойдешь», тогда (then) «счастье найдёшь». Так оно и работает

Допустим переменная hod - это наш выбор. Пусть «Прямо» – hod = 1, «Направо» - hod = 2, «Налево» - hod = 3.

Исходя из наших рассуждений, записываем код макроса.

hod = 1 'Нам прямо!
If (hod = 1) Then Cells(1, 1).Value = "Cчастье найдёшь."
If (hod = 2) Then Cells(1, 1).Value = "Коня потеряешь."
If (hod = 3) Then Cells(1, 1).Value = " Смерть найдёшь."

Осталось теперь только открыть редактор и скопировать туда этот код. Для этого запускаем Excel, выполняем блиц-команду «Alt+F11», зажав эти клавиши. Подробнее во втором уроке по VBA..

Но всё же, напоминаю.

Добавляем «Module».

И копируем, или практикуйтесь и сами наберите код. Sub pogramm_if() hod = 1 'Нам прямо! If (hod = 1) Then Cells(1, 1).Value = "Счастье найдёшь." If (hod = 2) Then Cells(1, 1).Value = "Коня потеряешь." If (hod = 3) Then Cells(1, 1).Value = " Смерть найдёшь." End Sub

После, того как мы сохраним макрос, наша программа будет готова.

Запускаем её «F5» и в результате получаем «Счастье найдёшь."

Далее речь пойдет о том, как создавать сложные условия, вложения условий, список условий.

Разберём следующие конструкции условия. 1.

If (a = 1) Then
a = 2
Else
a = 1
End If

При выполнении условия (a=1), переменной «a» будет присвоено значение «2», в противном случае переменной «a» будет присвоено значение «1». 2. Более сложная конструкция условия:

If (a = 1) Then
a = 2
ElseIf (a = 2) Then
a = 1
End If 

При выполнении условия (a=1), переменной «a» будет присвоено значение «2», в противном случае будет сделана проверка, равна ли переменная «a» «2», если да, то переменной «a» будет присвоено значение «1».

Теперь рассмотрим конструкцию выбора из списка значений(Select Case).

В общем виде

Select Case [значение]
Case
[Действие]
Case
[Действие]
…
End Select

Приведём пример.

n=10
Select Case n'Выбрать случай
 Case 1 To 5 'Случай n от 1 до 5
MsgBox "от 1 до 5"
 Case 6 To 10 'Случай n от 6 до 10
MsgBox "от 6 до 10"
 Case 11 To 15'Случай n от 11 до 15
MsgBox "от 11 до 15"
End Select 'Конец конструкции

Содержание                                                                Предыдущая                                                                Автор:Muha

---