подбор параметра через if - Microsoft Office Excel

magana · 22.01.2011, 19:31

Добрый вечер!
Подскажите, пожалуйста.
Знаю как написать макрос подбора параметра. А как написать, например:
если В7=0 то 0
иначе
Range("B12").GoalSeek Goal=0.15,ChangingCell:=Range("B5")
Спасибо!

motorway · 22.01.2011, 19:45

Код:

if (Range("B7").Value=0) Then ...
Else ...
End if

kuklp · 23.01.2011, 08:20

Я подозреваю, что тут можно проще:

If [В7]<>0 Then Range("B12").GoalSeek Goal=0.15,ChangingCell:=Range("B5")

22.01.2011, 19:31	#1
magana Пользователь Регистрация: 14.03.2010 Сообщений: 12	подбор параметра через if Добрый вечер! Подскажите, пожалуйста. Знаю как написать макрос подбора параметра. А как написать, например: если В7=0 то 0 иначе Range("B12").GoalSeek Goal=0.15,ChangingCell:=Range("B5") Спасибо!

22.01.2011, 19:45	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Код: `if (Range("B7").Value=0) Then ... Else ... End if` Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

23.01.2011, 08:20	#3
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Я подозреваю, что тут можно проще: If [В7]<>0 Then Range("B12").GoalSeek Goal=0.15,ChangingCell:=Range("B5") mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Подбор параметра. Точность	kzld	Microsoft Office Excel	3	19.12.2010 13:35
Автоматический подбор параметра в динамической модели	Зоркий глаз	Microsoft Office Excel	0	22.04.2010 17:12
Подбор параметра не точное значение	magana	Microsoft Office Excel	0	23.03.2010 22:24
Подбор параметра по миниму	Диагностик	Microsoft Office Excel	4	27.07.2009 15:08
Решение уравнений при помощи Подбор параметра	bullvinkle	Microsoft Office Excel	2	16.05.2009 20:08