вставка формулы

Программирование на Visual Basic for Applications
Бяка
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 219
Зарегистрирован: 21.09.2005 (Ср) 21:28

вставка формулы

Сообщение Бяка » 12.01.2008 (Сб) 1:28

подскажите, чему нехочет работать этот код?

Код: Выделить всё
.Cells(6, 20).FormulaR1C1 = "=СУММЕСЛИ(TABL!RC:R[20]C[4];TABL!RC;TABL!RC[1]:R[20]C[1])"


'а если просто в екселе ручками набрать эту формулу то работает

KL
Microsoft MVP
 
Сообщения: 483
Зарегистрирован: 30.10.2005 (Вс) 0:31
Откуда: Madrid

Re: вставка формулы

Сообщение KL » 12.01.2008 (Сб) 11:37

Бяка писал(а):подскажите, чему нехочет работать этот код?

Код: Выделить всё
.Cells(6, 20).FormulaR1C1 = "=СУММЕСЛИ(TABL!RC:R[20]C[4];TABL!RC;TABL!RC[1]:R[20]C[1])"


'а если просто в екселе ручками набрать эту формулу то работает

Потому что, используя свойство FormulaR1C1, ты говоришь Excel, что будешь вводить формулу по английски (независящую от локали), а сам делаешь это на языке твоей локали :-)

Вар 1 (независящий от локали):
Код: Выделить всё
.Cells(6, 20).FormulaR1C1 = "=SUMIF(TABL!RC:R[20]C[4],TABL!RC,TABL!RC[1]:R[20]C[1])"


Вар 2 (зависящий от локали):
Код: Выделить всё
.Cells(6, 20).FormulaR1C1Local = "=СУММЕСЛИ(TABL!RC:R[20]C[4];TABL!RC;TABL!RC[1]:R[20]C[1])"
Привет,
KL

Бяка
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 219
Зарегистрирован: 21.09.2005 (Ср) 21:28

Сообщение Бяка » 13.01.2008 (Вс) 15:23

заработало!, спасибо


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 83

    TopList