VBA ЕСЛИ - Microsoft Office Excel

Tirendus · 18.04.2010, 05:23

Всем привет, помогите пожалуйста составить формулу ЕСЛИ через VBA так, чтобы она работала... пробовал вот этот вариант

Код:

Worksheets("ТМЦ").Cells(col, 13).Formula = "=ЕСЛИ(H" & col & "=0;0;(J" & col & "*H" & col & ")-(E" & col & "*H" & col & "))"

и вот этот

Код:

Worksheets("ТМЦ").Cells(col, 13).Formula = "=IF(H" & col & "=0,0,(J" & col & "*H" & col & ")-(E" & col & "*H" & col & "))"

Ни тот, ни тот вариант результата не дают

IgorGO · 18.04.2010, 11:34

Код:

Sub InsFormula()
  col = 3
  Cells(col, 13).FormulaLocal = "=ЕСЛИ(H" & col & "=0;0;(J" & col & "*H" & col & ")-(E" & col & "*H" & col & "))"
  Cells(col, 13).Formula = "=IF(H" & col & "=0,0,(J" & col & "*H" & col & ")-(E" & col & "*H" & col & "))"
End Sub

в первом случае есть серьезный прокол (FormulaLocal), а так, в целом, все работает

Tirendus · 18.04.2010, 14:15

Спасибо

Tirendus · 18.04.2010, 14:35

Все-таки есть небольшая проблема с этой формулой. Формула рабочая и вставляется в любые листы, кроме того, в который мне нужно, лист в приложении, я выделили комментарием проблематичную часть.

IgorGO · 18.04.2010, 15:00

если речь идет о процедуре

Код:

Sub sda()
    col = Worksheets("ТМЦ").Cells.Find(What:="итого, шт.", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address(rowabsolute:=False, columnabsolute:=False)
    col = Right(col, 2) - 1
   Worksheets("ТМЦ").Cells(col, 13).FormulaLocal = "=ЕСЛИ(H" & col & "=0;0;(J" & col & "*H" & col & ")-(E" & col & "*H" & col & "))"
End Sub

то она вполне корректно работает - записывает формулу в в ячейку М27.

Tirendus · 18.04.2010, 15:25

Не о процедуре сда, она тестовая

Sub TMC_Transport()

Я там выделил комментарием часть, которая почему-то не срабатывает

Tirendus · 18.04.2010, 15:52

Проблема решена, я тупанул, сначала вносил данные, всё записывалось правильно, потом удалял строки. Игорь, спасибо вам еще раз.

18.04.2010, 05:23	#1
Tirendus Форумчанин Регистрация: 20.03.2009 Сообщений: 272	VBA ЕСЛИ Всем привет, помогите пожалуйста составить формулу ЕСЛИ через VBA так, чтобы она работала... пробовал вот этот вариант Код: `Worksheets("ТМЦ").Cells(col, 13).Formula = "=ЕСЛИ(H" & col & "=0;0;(J" & col & "H" & col & ")-(E" & col & "H" & col & "))"` и вот этот Код: `Worksheets("ТМЦ").Cells(col, 13).Formula = "=IF(H" & col & "=0,0,(J" & col & "H" & col & ")-(E" & col & "H" & col & "))"` Ни тот, ни тот вариант результата не дают

18.04.2010, 11:34	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Sub InsFormula() col = 3 Cells(col, 13).FormulaLocal = "=ЕСЛИ(H" & col & "=0;0;(J" & col & "H" & col & ")-(E" & col & "H" & col & "))" Cells(col, 13).Formula = "=IF(H" & col & "=0,0,(J" & col & "H" & col & ")-(E" & col & "H" & col & "))" End Sub` в первом случае есть серьезный прокол (FormulaLocal), а так, в целом, все работает Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

18.04.2010, 15:00	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	если речь идет о процедуре Код: `Sub sda() col = Worksheets("ТМЦ").Cells.Find(What:="итого, шт.", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Address(rowabsolute:=False, columnabsolute:=False) col = Right(col, 2) - 1 Worksheets("ТМЦ").Cells(col, 13).FormulaLocal = "=ЕСЛИ(H" & col & "=0;0;(J" & col & "H" & col & ")-(E" & col & "H" & col & "))" End Sub` то она вполне корректно работает - записывает формулу в в ячейку М27. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA Word,VBA Excel решить 2 задачи	fafolo4ka	Фриланс	6	05.03.2012 01:15
Запрет запуска программы на VBA в случае если Excel уже открыт	kovalevskivf	Microsoft Office Excel	4	01.09.2009 11:22
Если функция ЕСЛИ не подходит	Katherina_Koval	Microsoft Office Excel	1	25.07.2008 19:09
cтранная запись формулы ЕСЛИ: "=+ЕСЛИ(..."	icore2008	Microsoft Office Excel	4	10.04.2008 21:32

18.04.2010, 14:15	#3
Tirendus Форумчанин Регистрация: 20.03.2009 Сообщений: 272	Спасибо

18.04.2010, 15:25	#6
Tirendus Форумчанин Регистрация: 20.03.2009 Сообщений: 272	Не о процедуре сда, она тестовая Sub TMC_Transport() Я там выделил комментарием часть, которая почему-то не срабатывает

18.04.2010, 15:52	#7
Tirendus Форумчанин Регистрация: 20.03.2009 Сообщений: 272	Проблема решена, я тупанул, сначала вносил данные, всё записывалось правильно, потом удалял строки. Игорь, спасибо вам еще раз.