Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сумма в ячейке / 5 сообщений из 5, страница 1 из 1
09.12.2009, 18:24
    #36357500
Lexx_SQL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма в ячейке
Добрый день!

Хочу подставить программно формулу в ячейку (например СУММ(D2:D200)), записываю:
к=200
xlWsR.Cells(k + 1, 4).Value = "=СУММ(D2:D" + CStr(k) + ")"
Но когда открываю эксель в ячейке пишет "#ИМЯ?". Ставлю на ячейку,тыкаю в строку формул , он потом только считает.
Подскажите как сделать, чтобы сразу показывал в ячейке результат формулы.
Спасибо.
...
Рейтинг: 0 / 0
09.12.2009, 18:43
    #36357546
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма в ячейке
У меня работает, только версия английская и одна из к у тебя не такая, как другие :) (первая)
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub tt()
Set xlWsR = ThisWorkbook.Sheets( 1 )
k =  200 
xlWsR.Cells(k +  1 ,  4 ).Value = "=Sum(D2:D" + CStr(k) + ")"
End Sub

...
Рейтинг: 0 / 0
09.12.2009, 18:44
    #36357552
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма в ячейке
Да, пиши в коде по-англиийски или что-то вроде Formula.Local использовать надо...
...
Рейтинг: 0 / 0
09.12.2009, 21:18
    #36357787
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма в ячейке
Lexx_SQL,
Код: plaintext
1.
xlWsR.Cells(k +  1 ,  4 ).Formula = "=СУММ(D2:D" + CStr(k) + ")"
или
Код: plaintext
1.
xlWsR.Cells(k +  1 ,  4 ).FormulaLocal = "=СУММ(D2:D" + CStr(k) + ")"
...
Рейтинг: 0 / 0
10.12.2009, 10:38
    #36358420
Lexx_SQL
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сумма в ячейке
Всем спасибо...
.FormulaLocal помогла
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сумма в ячейке / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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