powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сумма в ячейке
5 сообщений из 5, страница 1 из 1
Сумма в ячейке
    #36357500
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый день!

Хочу подставить программно формулу в ячейку (например СУММ(D2:D200)), записываю:
к=200
xlWsR.Cells(k + 1, 4).Value = "=СУММ(D2:D" + CStr(k) + ")"
Но когда открываю эксель в ячейке пишет "#ИМЯ?". Ставлю на ячейку,тыкаю в строку формул , он потом только считает.
Подскажите как сделать, чтобы сразу показывал в ячейке результат формулы.
Спасибо.
...
Рейтинг: 0 / 0
Сумма в ячейке
    #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
Сумма в ячейке
    #36357552
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, пиши в коде по-англиийски или что-то вроде Formula.Local использовать надо...
...
Рейтинг: 0 / 0
Сумма в ячейке
    #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
Сумма в ячейке
    #36358420
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем спасибо...
.FormulaLocal помогла
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сумма в ячейке
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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