ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Присвоение формул
10 сообщений из 10, страница 1 из 1
Присвоение формул
    #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, 11:28
| Ответить | Цитировать | Написать  
Присвоение формул
    #36417711
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
странно, у меня работают оба варианта
...
Рейтинг: 0 / 0
19.01.2010, 12:23
| Ответить | Цитировать | Написать  
Присвоение формул
    #36417890
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
dbms_dba, попробуй
Код: plaintext
Cell( 10 , 10 ).FormulaLocal
зы: как-то так
...
Рейтинг: 0 / 0
19.01.2010, 13:17
| Ответить | Цитировать | Написать  
Присвоение формул
    #36418034
dbms_dba
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dbms_dba
Участник
.Михаил.,
сработало.

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

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

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

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


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