Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Команда IF. Как в коде привязать несколько действий к одному условию?
 
#1
10.09.2013 11:09:09
Подскажите по синтаксису команды:

как в коде привязать несколько действий к одному условию?
Пример - как сделать чтобы строки 2-7 выполнялись только при условии из строки 1? у меня сейчас условие выполняется (строка 1), а остальные строки выполняются в любом случае... Как задать блок условия для команды IF?
Код
1 If g > 2.9 Then Range("D44" ;) .Select
2 ActiveCell.FormulaR1C1 = "61"
3 Range("D44" ;) .Select
4 Selection.AutoFill Destination:=Range("D44:AH44" ;) , Type:=xlFillSeries
5 Range("D44:AH44" ;) .Select
6 Range("AF38" ;) .Select
7 ActiveCell.FormulaR1C1 = "3"

не придумал пока ничего лучше как прописывать условие в каждую строку, но это не выход...
 
 
 
#2
10.09.2013 11:11:34
Оформляйте код тегами!
Код
1 If g > 2.9 Then 
Range("D44").value = "61" 
3 Range("D44").AutoFill Destination:=Range("D44:AH44"), Type:=xlFillSeries 
6 Range("AF38").value= "3"
end if
Изменено: KuklP - 10.09.2013 11:12:58
Я сам - дурнее всякого примера! ...
 
 
 
#3
10.09.2013 11:16:26
KuklP, то есть достаточно после then перечислить действия и закрыть блок командой End if?
 
 
 
#4
10.09.2013 11:17:11
Да.
Я сам - дурнее всякого примера! ...
 
 
 
#5
10.09.2013 11:24:02
Спасибо огромное за помощь
 
 
 
#6
10.09.2013 12:26:42
Цитата
то есть достаточно после then перечислить действия
поле Then ни чего не должно быть. Начиная со следующей строки, и потом обязательно End If.
 
 
 
#7
10.09.2013 12:30:47
не совсем так - можно и в одну строку, но тогда разделители надо ставить ":"
Живи и дай жить..
 
 
 
#8
10.09.2013 12:31:15
Михаил, можно позанудствовать? :)
Вполне себе работает и после then и без end if:

Код
If g > 2.9 Then Range("D44").Value = "61": Range("D44").AutoFill Destination:=Range("D44:AH44"), Type:=xlFillSeries: Range("AF38").Value = "3"
 
 
 
#9
10.09.2013 12:33:49
Но читабельность похуже (для меня)  :)
 
 
 
#10
10.09.2013 12:48:21
Игорь, позанудствуй, но тогда уж до конца :)
Без End if все, что относится к IF должно быть в одной строке, после Then.
 
 
 
#11
10.09.2013 12:49:58
Ну а у меня разве иначе написано? :)
 
 
 
#12
10.09.2013 13:15:14
Да, но ты не сказал этого словами.  :D

...вот зануда...
 
 
 
Страницы: 1
Читают тему
Наверх