ошибка в VBA при прописывании формулы / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ошибка в VBA при прописывании формулы

4 сообщений из 4, страница 1 из 1

ошибка в VBA при прописывании формулы

#36116935

MIRNIY

Гость

Возникла следующая проблема:

Смысл в том, чтобы там где итого, прописывалась не сумма итогов, а формула расчёта итога.
Входные данные:
_H______I_
16.4 895000
15.9 500940
0 0
0 0
18 8400
итого: = 16.4*895000+15.9*500940+0*0+0*0+18*8400, в виде формулы.
Данных по столбцам H и I много, и при обработки возникает ошибка: run-time error '9' out of memory, потому что длина формулы больше 1024.
Как можно по другому написать макрос и предпринять другие варианты?
ниже макрос.

...

Рейтинг:

0 / 0

30.07.2009, 09:18:03

| Ответить | Цитировать | Написать

ошибка в VBA при прописывании формулы

#36116936

MIRNIY

Гость

Макрос следующий:
For j = beg To i - 1
If j <> i - 1 Then
hsum = ("H" & j) + "*" + ("I" & j) + "+" + hsum
Else
hsum = hsum + ("H" & j) + "*" + ("I" & j)
End If
Next j
If Cells(i, 9) <> 0 Then
Range("H" & i).Formula = "=ROUND(" + "Sum(" + hsum + ")" + "/" + ("I" & i) + ",1)"
Else
Cells(i, 8) = 0
End If
В начале, в цикле пробегается по строкам с позиции beg до i-1 и пишет формулу, затем формула+формула. В конце получается длинная формула, которая не вмещается в память.

Пожалуйста, помогите решить проблему?

...

Рейтинг:

0 / 0

30.07.2009, 09:18:18

| Ответить | Цитировать | Написать

ошибка в VBA при прописывании формулы

#36117748

mds_world

Участник

Откуда: Ташкент

Сообщения: 27 530

Рейтинг: 0 / 0

Если правильно понял, то функция СУММПРОИЗВ (в русской локализации) делает то, что требуется. Только подставить в нее диапазоны.

...

Рейтинг:

0 / 0

30.07.2009, 13:00:24

| Ответить | Цитировать | Написать

ошибка в VBA при прописывании формулы

#36117827

sergeyvg

Гость

Можно так, но не особо информативная формула получается

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

hsum =  0 
For j = beg To i -  1 
If j <> i -  1  Then
hsum = Evaluate(("H" & j) & "*" & ("I" & j) & "+" & hsum)
Else
hsum = Evaluate(hsum & "+" & ("H" & j) & "*" & ("I" & j))
End If
Next j
If Cells(i,  9 ) <>  0  Then
Range("H" & i).Formula = "=ROUND(" & "Sum(" & hsum & ")" & "/" & ("I" & i) & ",1)"
Else
Cells(i,  8 ) =  0 
End If

...

Рейтинг:

0 / 0

30.07.2009, 13:18:20

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ошибка в VBA при прописывании формулы

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=189&tid=2179230]:	0ms
get settings:	7ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	58ms
get topic data:	11ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	211ms

total:	358ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы