У дитинстві нам Новомосковсклі казки, і тому всі ми пам'ятаємо такий напис на роздоріжжі.
«Ліворуч підеш - смерть знайдеш,
Направо підеш - коня втратиш,
Прямо підеш - щастя знайдеш. »
Ми ліворуч не ходимо, і кінь тепер не у кожного, так що підемо прямо, тобто далі.
Зв'язок цих рядків з темою уроку для мене очевидна. І як ви вже, можливо, здогадуєтеся, я хочу перевести їх в код, використовуючи конструкцію умови if ( «Прямо підеш») then ( «щастя знайдеш»). Тут все стає зрозумілим, якщо зробити дослівний переклад: Якщо (if) «прямо підеш», тоді (then) «щастя знайдеш». Так воно і працює
Припустимо змінна hod - це наш вибір. Нехай «Прямо» - hod = 1, «Направо» - hod = 2, «Ліворуч» - hod = 3.
Виходячи з наших міркувань, записуємо код макросу.
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 = "Смерть знайдеш."
Але все ж, нагадую.
І копіюємо, або практикуйтеся і самі наберіть код.
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 = "Смерть знайдеш."
Після, того як ми збережемо макрос, наша програма буде готова.
Запускаємо її «F5» і в результаті отримуємо «Щастя знайдеш."
Про те, як створювати складні умови, вкладення умов, список умов розповім в наступному цікавому уроці по if. .