Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Условие выполнения в VBA - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие выполнения в VBA (Макросы/Sub)
Условие выполнения в VBA
Anton1013 Дата: Пятница, 30.06.2017, 14:29 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Форумчане, доброго дня!

Столкнулся с небольшой проблемой при освоении if в VBA. Суть в том, что при выполнении определенного условия часть макроса должна считаться, в противном случае - пропускаться.
Условие: C359="" или 0, при выполнении данного условия макрос считаться не должен, в остальных случаях - должен.
Сам макрос:
[vba]
Код
Range("H368").Select
ActiveCell.FormulaR1C1 = "0"
f_1 = Range("C359").FormulaR1C1
Range("C359").FormulaR1C1 = f_1 & "-R368C4-R368C6+(R368C4+R368C6>0)"
[/vba]

Буду очень благодарен помощи :(


Никогда не поздно научиться!

Сообщение отредактировал Anton1013 - Пятница, 30.06.2017, 14:30
 
Ответить
СообщениеФорумчане, доброго дня!

Столкнулся с небольшой проблемой при освоении if в VBA. Суть в том, что при выполнении определенного условия часть макроса должна считаться, в противном случае - пропускаться.
Условие: C359="" или 0, при выполнении данного условия макрос считаться не должен, в остальных случаях - должен.
Сам макрос:
[vba]
Код
Range("H368").Select
ActiveCell.FormulaR1C1 = "0"
f_1 = Range("C359").FormulaR1C1
Range("C359").FormulaR1C1 = f_1 & "-R368C4-R368C6+(R368C4+R368C6>0)"
[/vba]

Буду очень благодарен помощи :(

Автор - Anton1013
Дата добавления - 30.06.2017 в 14:29
_Boroda_ Дата: Пятница, 30.06.2017, 14:39 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11315
Репутация: 4675 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вы про вот так?
[vba]
Код
If Range("C359") <> 0 And Range("C359") <> "" Then
    Range("H368") = 0
    f_1 = Range("C359").FormulaR1C1
    Range("C359").FormulaR1C1 = f_1 & "-R368C4-R368C6+(R368C4+R368C6>0)"
End If
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВы про вот так?
[vba]
Код
If Range("C359") <> 0 And Range("C359") <> "" Then
    Range("H368") = 0
    f_1 = Range("C359").FormulaR1C1
    Range("C359").FormulaR1C1 = f_1 & "-R368C4-R368C6+(R368C4+R368C6>0)"
End If
[/vba]

Автор - _Boroda_
Дата добавления - 30.06.2017 в 14:39
Anton1013 Дата: Пятница, 30.06.2017, 15:03 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Именно так, спасибо!


Никогда не поздно научиться!
 
Ответить
СообщениеИменно так, спасибо!

Автор - Anton1013
Дата добавления - 30.06.2017 в 15:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие выполнения в VBA (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!