Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Присвоение формул / 10 сообщений из 10, страница 1 из 1
19.01.2010, 11:28
    #36417516
dbms_dba
dbms_dba
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
Добрый день!

В русскоязычном Excel есть формула типа
ЕСЛИ(ЕПУСТО(A1);$C$37;A1)

При присвоении вида Cell(10,10).Formula= "IF(ISBLANK(A1);$C$37;A1)" возникает ошибка

Run-time error 1004.

Тоже самое и при использовании FormulaR1C1 и использовании присвоения текста формулы через макрорекордер

Как избежать этой ошибки?

Заранее благодарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 12:23
    #36417711
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
странно, у меня работают оба варианта
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 13:17
    #36417890
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
dbms_dba, попробуй
Код: plaintext
Cell( 10 , 10 ).FormulaLocal
зы: как-то так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 13:58
    #36418034
dbms_dba
dbms_dba
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
.Михаил.,
сработало.

Весьма признателен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 15:28
    #36418323
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
4 ошибки:
Cell s (10, 10).Formula = " = IF(ISBLANK(A1) , $C$37 , A1)"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 15:47
    #36418381
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
Hugo1214 ошибки:
Cell s (10, 10).Formula = " = IF(ISBLANK(A1) , $C$37 , A1)"

А у меня и без "равно" и с точками с запятой сработало
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 16:03
    #36418428
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
Без "=" вставило как формулу?
У меня на английской версии не хочет, пробовал на новом файле, всё по умолчанию.
Без "=" вставляет молча как текст (когда "s" на месте), добавил "=" , стало ругаться на ";"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 16:05
    #36418435
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
Хотя в самой формуле, уже в ячейке ";" :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2010, 16:07
    #36418443
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
Вот так срабатывает с ";":
Sub tt()
Cells(10, 10).FormulaLocal = "=IF(ISBLANK(A1);$C$37;A1)"
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2010, 09:38
    #36430624
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Присвоение формул
dbms_dba,

В русской версии Excel так:

Код: plaintext
Cells( 10 ,  10 ).FormulaLocal = "=ЕСЛИ(ЕПУСТО(A1);$C$37;A1)"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Присвоение формул / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]