Условие выполнения в VBA

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие выполнения в VBA (Макросы/Sub)

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

Ответить

_Boroda_

Дата: Пятница, 30.06.2017, 14:39 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 16675

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

Замечаний: 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

Ответить

Anton1013

Дата: Пятница, 30.06.2017, 15:03 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 203

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

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

Excel 2013

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

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие выполнения в VBA (Макросы/Sub)

Страница 1 из 1
1