Проверка условия, действие по условию if

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Проверка условия, действие по условию if (Макросы/Sub)

nwabws

Дата: Четверг, 01.09.2016, 18:33 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
Прошу вас помочь перевести нижеследующую задачу на проверку if

Дано:
2 водопроводных крана и табличка с колонками "номер крана", "давление
(есть две ячейки со значениями состояния крана получаемые из вне.)
Вкл./выкл = 1/0 (значение меняется в одной и той же ячейке
"B4" = 1 (Вкл.) - 1й кран
"B5" = 0 (Выкл.) -2й кран
"F4" = "1" ("номер крана")

Задание
Если 1й кран Включен(B4=1), то "номер крана" = 1
Если 2й кран Включен(B5=1), то "номер крана" = 2
Если оба крана работают, (B4:B5=1) то ячейка в столбце "номер крана" = 1/2
Если оба крана НЕ работают, (B4:B5=0) то ячейка в столбце "номер крана" = "-"
Не могу сообразить, как это правильно записать в макрос.

http://www.planetaexcel.ru/forum....e681046

К сообщению приложен файл: 7613320.xlsm (15.3 Kb)

Сообщение отредактировал nwabws - Пятница, 02.09.2016, 14:41

Ответить

Pelena

Дата: Четверг, 01.09.2016, 18:46 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19603

Репутация: 4660 ±

Замечаний: ±

Excel 365 & Mac Excel

Файл 0 Кб

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Nic70y

Дата: Четверг, 01.09.2016, 18:51 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

файл поврежден
[vba]

Код

If [b4] = 1 And [b5] = 0 Then [f4] = 1
If [b4] = 0 And [b5] = 1 Then [f4] = 2
If [b4] = 1 And [b5] = 1 Then [f4] = "'1/2"
If [b4] = 0 And [b5] = 0 Then [f4] = "-"

[/vba]