Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Макрос. Сумма диапазонов ячеек в таблице
 
#1
11.10.2011 20:00:55
Здравствуйте.  
Задача:  
Есть таблица изделий,которые состоят из деталей. Необходимо просуммировать кол-во деталей входящих в каждое изделие и поставить  в ячейку напротив значение этой суммы. Метод должен быть универсален, так в таблице могут появляться новые изделия. В ячейке суммы хотелось бы увидеть вставленную формулу,с суммой диапазона ячеек входящих в изделие. Уже день борюсь, вроде все просто..... но не получается вычислить с помощью макроса эти диапазоны которые нужно просуммироввать.  
 
Пример прикладываю.  
 
Заранее спасибо.
 
 
 
#2
11.10.2011 20:03:29
Совсем забыл сказать....  
 
Каждое изделие я отметил "1" в соседнем столбце. Идею видел как определение диапазонов между каждой "1"-цей и потом суммирование этих диапазонов.
 
 
 
#3
11.10.2011 21:08:33
Люди. I'am need help :)
 
 
 
#4
11.10.2011 21:16:34
\
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#5
11.10.2011 21:39:55
Проверяйте. Ограничение: какой-либо символ в конце таблицы. Можно обойтись и без него, но так проще. Мне.
 
 
 
#6
11.10.2011 21:49:31
И мой вариант:  
Public Sub www()  
   Dim a As Range  
   For Each a In [c:c].SpecialCells(2, 1).Areas
       a.Cells(1).Offset(-1) = Application.Sum(a)  
   Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#7
11.10.2011 21:52:57
Проглядел, если нужна формула то:  
Public Sub www()  
   Dim a As Range  
   For Each a In [c:c].SpecialCells(2, 1).Areas
       a.Cells(1).Offset(-1).Formula = "=Sum(" & a.Address & ")"  
   Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#8
11.10.2011 21:54:51
Серж, желание увидеть формулу - это от недопонимания :-)
 
 
 
#9
11.10.2011 21:57:46
А Бог его... Мож ему захотца к-во деталей менять:-)
Я сам - дурнее всякого примера! ...
 
 
 
#10
11.10.2011 22:09:23
Окончательный(надеюсь:-)).
Я сам - дурнее всякого примера! ...
 
 
 
#11
11.10.2011 22:19:58
все варианты мне очень понравились : )  
 
Я специально не использую, по крайней мере стараюсь не использовать ф-ции листа. Не моё эт) Использовал только Transpoce (вроде так... или не так ^_^). И то два раза) Кол-во "аргументов" ограничено только фантазией) Если понадобится (мне или кому-то на форуме), могу попытаться научить её понимать булевы значения и числа в качестве "аргументов"... Изначально задумывалась как альтернатива СУММ : )  
 
Серж, у меня вопрос по твоей "чудо-функции": а если значение в ячейку выводит формула, она просуммирует?
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#12
11.10.2011 22:25:36
Нет. Исходя из условий ТС, я так понял, что там будут константы. В случае формул немного другой подход. Я тут такое выкладывал:  
http://www.programmersforum.ru/showthread.php?t=167663
Я сам - дурнее всякого примера! ...
 
 
 
#13
11.10.2011 22:30:10
Хотя можно и так, только ориентироваться по единичкам в столбце А.
Я сам - дурнее всякого примера! ...
 
 
 
#14
11.10.2011 23:45:55
{quote}{login=KukLP}{date=11.10.2011 09:57}{thema=}{post}А Бог его... Мож ему захотца к-во деталей менять:-){/post}{/quote}  
 
Спасибо:) В том то и дело, что захочется. Таблица очень длинная, несколько тысяч строк...И почти каждый день туда что-то добавляют или удаляют от туда)
 
 
 
#15
12.10.2011 00:25:04
{quote}{login=KukLP}{date=11.10.2011 09:52}{thema=}{post}Проглядел, если нужна формула то:  
Public Sub www()  
   Dim a As Range  
   For Each a In [c:c].SpecialCells(2, 1).Areas
       a.Cells(1).Offset(-1).Formula = "=Sum(" & a.Address & ")"  
   Next  
End Sub{/post}{/quote}  
 
Хороший, пример. Спасибо. Но есть одно но....  
У меня в таблице(в примере) каждое изделие в которое входят детали помечено в соседнем левом столбце "1". Как сделать так, чтобы макрос проверял, если там стоит единица, значит это является изделием и нужно просуммировать(точно также как в вашем примере) значения которые в него входят. Надеюсь понятно объяснил.
 
 
 
#16
12.10.2011 00:49:05
Так.  
 
67868
Я сам - дурнее всякого примера! ...
 
 
 
#17
12.10.2011 01:07:52
{quote}{login=KukLP}{date=12.10.2011 12:49}{thema=}{post}Так.  
 
67868{/post}{/quote}  
 
Спасибо большое:) Завтра попробую прицепить к моей таблице..:)
 
 
 
#18
12.10.2011 09:27:56
Сереж, спасибо за ответ) У меня вчера время "вечернего тупизма" настало) Нет бы попробовать, чем вопросы глупые задавать)))
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#19
14.10.2011 11:04:55
{quote}{login=KukLP}{date=12.10.2011 12:49}{thema=}{post}Так.  
 
67868{/post}{/quote}  
 
Вы будете смеяться, но я все же спрошу:) Попытался я последний вариант прикрепить к своей таблице. Столбцы у меня само собой по другому расположены.Изменил значения в макросе на нужные мне столбцы. Как-я то ерунда получается)) Столбец с единицами у меня "L" или номер 12. Значения которые должны суммироваться в столбце "K" или номер 11 :) Хелп ми...)
 
 
 
#20
15.10.2011 18:51:46
Люди, аууу...:) Очень нужно:)
 
 
 
#21
15.10.2011 20:30:33
{quote}{login=Romanich}{date=14.10.2011 11:04}{thema=Re: }{post}{quote}{login=KukLP}{date=12.10.2011 12:49}{thema=}{post}{/post}{/quote}Столбцы у меня само собой по другому расположены.{/post}{/quote}И кто мешал показать реальную структуру?  
Цитата из Правил: "... старайтесь сохранить структуру, расположение таблиц, имена листов - аналогично оригиналу."
 
 
 
#22
16.10.2011 14:16:50
{quote}{login=Юрий М}{date=15.10.2011 08:30}{thema=Re: Re: }{post}{quote}{login=Romanich}{date=14.10.2011 11:04}{thema=Re: }{post}{quote}{login=KukLP}{date=12.10.2011 12:49}{thema=}{post}{/post}{/quote}Столбцы у меня само собой по другому расположены.{/post}{/quote}И кто мешал показать реальную структуру?  
Цитата из Правил: "... старайтесь сохранить структуру, расположение таблиц, имена листов - аналогично оригиналу."{/post}{/quote}  
 
Согласен. Каюсь. Мне просто показалось, что я и сам пойму как подправить и вставить в мою таблицу...Пример прикреплю завтра:)
 
 
 
Страницы: 1
Читают тему
Наверх