Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Трабл вставки формулы из VBA Excel / 4 сообщений из 4, страница 1 из 1
01.11.2003, 21:29
    #32312654
Alen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Трабл вставки формулы из VBA Excel
Помоги плиз, кто может
Есть таблица в Excel , необходимо вставить формулы промежуточных итогов(из VBA) по Строка1, Строка2, Строка3 и т.д. , количество строк (по строке Строка1 и т.д ) заранее неизвестно, поэтому заранее диапазон в формуле задать нельзя.

Строка 1 10
Строка 1 20
Строка 1 30
Строка 1 25
Итог по Строка 1 формула (10+20+30+25)
Строка 2 и. Т.д.
Строка 2
Итог по Строка 2
Строка 3
Строка 3
Строка 3
Строка 3
Итог по Строка 3
Общий итог

Я делаю таким образом (см. пример ниже), но проблема заключается в том , что диапазон («итог») только для первого итога (Строка 1) и чтобы подсчитать следующий по Строка 2 нужно присваивать новое имя диапазона и клепать столько вычислений , сколько Строк1,2……, а таких итогов около 50-ти  . Подскажите плиз, как можно решить этот трабл проще ?

Range(Cells(х, 2), Cells(у, 2)).Name = "итог” ‘ х;y- кол-во строк по Строка1 вычисляются без проблем
Worksheets("sheet1").Cells(y, 2).FormulaLocal = "=СУММ (итог)” ‘ итог по Строка1
...
Рейтинг: 0 / 0
03.11.2003, 10:22
    #32313131
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Трабл вставки формулы из VBA Excel
имхо вместо итог можно писать
Код: plaintext
1.
activecell.formular1c1= "=SUM(R[-Z]C:R[-1 ]C)"

где z это смещение между начальной строкой диапазона и текущей
в цикле для каждого диапазона формируйте такую строку
...
Рейтинг: 0 / 0
03.11.2003, 22:01
    #32314175
Alen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Трабл вставки формулы из VBA Excel
Большое спасибо - это действительно хорошее и простое решение.
Но у меня возник следующий трабл чайника , каким образом можно присвоить переменной Z значение ??? Например, Z = Y или Z = 77
...
Рейтинг: 0 / 0
03.11.2003, 22:29
    #32314189
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Трабл вставки формулы из VBA Excel
Код: plaintext
1.
2.
3.
Dim Z as Long
Z= 10 
activecell.formular1c1= "=SUM(R[-"  & Z &  "]C:R[-1 ]C)"
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Трабл вставки формулы из VBA Excel / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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