Как проверить условие - if ... then  
Всё об Excel

+В закладки

Обучение Excel

Макросы в Excel

Программирование в Excel

Как в Excel ...?

Об Авторе

Карта сайта

Введение в программирование в Excel

Открываем редактор кода

Как правильно запустить макрос

Немного о программировании

Пока выполняется условие - цикл While

Цикл While. Продолжение

Ещё один цикл For

Как проверить условие - if ... then

Ключевые конструкции языка If, Else, ElseIf, Case

Пишем функцию для макроса



Условие if ... then

В детстве нам читали сказки, и поэтому все мы помним такую надпись на распутье.

«Налево пойдешь – смерть найдешь,

Направо пойдешь - коня потеряешь,

Прямо пойдешь - счастье найдёшь.»

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

Связь этих строк с темой урока для меня очевидна. И как вы уже, возможно, догадываетесь, я хочу перевести их в код, используя конструкцию условия 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» и в результате получаем «Счастье найдёшь."

О том, как создавать сложные условия, вложения условий, список условий расскажу в следующем интересном уроке по if. .

© 2012 - 2017 Всё об Excel
Яндекс.Метрика