> Автор: Maxim_Ultrik1
> Подскажите плиз почему когда я пытаюсь программно забить формулу
>
> For i=2 to 50000
> Rang("E"+CStr(i)).Formula= "=IF(A" + CStr(i) + "<B" + CStr(i) + ";""YES"";""NO"")"
> Next
> То мне выдается ошибка 1004?

Наверное потому, что Rang в Екселе нет, а может потому, что ссылки на другие ячейки нужно
делать абсолютными. Аможет лучше воспользоватся дедовским способом и попробовать
FormulaR1C1?

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: Maxim_Ultrik1
> Sub ee()
> For i = 2 To 300
> Cells(i, 3).FormulaR1C1 = "=IF(RC[-2]>RC[-1],1,0)"
> Next
> End Sub
>
> Вот так вот заработало тока я если честно не въехал как С ЭТИМ RC работать?
> Методом тыка тока определил что RC[-2] это А2...
> Где почитать про это мона?

R - Row - строка
C - Column - столбец
число после буквы обозначает номер строки/столбца абсолютное от ячейки А1
число в квадратных скобках обозначает позицию относительно ячейки, куда вставляется
формула
т.е.
'Range("B2").FormulaR1C1 = "=R1C1" '=$A$1
'Range("A1").FormulaR1C1 = "=R[1]C[1]" '=B2
Range("B2").FormulaR1C1 = "=R[-1]C[-1]" ' =A1

Еще можно в справке ;))
--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4