Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA - вставка суммы
 
#1
16.10.2010 19:34:04
Уважаемые знатоки VBA, необходима ваша помощь.  
Нужен макрос, вставляющий формулу суммы в столбце B, напротив каждой записи "Всего".  
Вся проблема в том, что количество показателей в каждой группе не является фиксированным, а постоянно меняется.  
Надеюсь на вашу помощь.
 
 
 
#2
16.10.2010 19:44:59
> проблема в том, что количество показателей в каждой группе не является фиксированным, а постоянно меняется.  
 
Все равно формулой можно. Попробуйте удалять и вставлять строки в приложенном файле.
 
 
 
#3
16.10.2010 19:54:12
Option Explicit  
 
Sub tt()  
Dim x As Long  
Dim cc As Range  
 
x = 2  
For Each cc In Intersect(Range("A:A"), UsedRange)  
If cc = "Āńåćī" Then  
cc.Offset(, 1).Formula = "=sum(B" & x & ":B" & cc.Row - 1 & ")"  
x = cc.Row + 1  
End If  
 
Next  
End Sub  
 
Казанского не глядел, но похоже, что у него иначе сделано, судя по "Попробуйте удалять и вставлять строки" :)
 
 
 
#4
16.10.2010 19:55:04
/@#$%#$% !!!  
 
If cc = "Всего" Then
 
 
 
#5
16.10.2010 19:55:06
Ув.Казанский, формула тут не поможет по одной простой причине: отчет приходит в таком виде, как в прикрепленном файле. Единственный критерий, по которому можно определить окончание каждой группы - слово "Всего"    
Просматривать десятки тысяч строк, выискивая заветное слово "Всего" чтобы вручную вставить формулу - просто нецелесообразно. Поэтому прошу именно макрос, автоматически функцию вставляющий.
 
 
 
#6
16.10.2010 20:07:24
{quote}{login=Hugo}{date=16.10.2010 07:54}{thema=}{post}Option Explicit  
 
Sub tt()  
Dim x As Long  
Dim cc As Range  
 
x = 2  
For Each cc In Intersect(Range("A:A"), UsedRange)  
If cc = "Āńåćī" Then  
cc.Offset(, 1).Formula = "=sum(B" & x & ":B" & cc.Row - 1 & ")"  
x = cc.Row + 1  
End If  
 
Next  
End Sub  
 
Ругается, что "Variable not defined" на UsedRange
 
 
 
#7
16.10.2010 20:14:18
Замените на Activesheet.UsedRange
Я сам - дурнее всякого примера! ...
 
 
 
#8
16.10.2010 20:19:24
Hugo, KuklP, огромное спасибо, все работает!
 
 
 
#9
16.10.2010 20:39:36
Попадал в подобную ситуацию. Полезный макрос.Остался один вопрос - а можно ли еще в макрос добавть группировку строк, по которым идет суммирование...
 
 
 
#10
16.10.2010 21:06:44
Делаем аналогично (я думаю, многие уже и сами сделали):  
 
Option Explicit  
 
Sub tt()  
Dim x As Long  
Dim cc As Range  
 
x = 2  
For Each cc In Intersect(Range("A:A"), ActiveSheet.UsedRange)  
If cc = "Всего" Then  
cc.Offset(, 1).Formula = "=sum(B" & x & ":B" & cc.Row - 1 & ")"  
Rows(x & ":" & cc.Row - 1).Rows.Group  
x = cc.Row + 1  
End If  
 
Next  
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх