Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA расчет итогов / 2 сообщений из 2, страница 1 из 1
28.05.2013, 08:16
    #38275787
qdesnik
qdesnik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA расчет итогов
Есть макрос, который ищет по колонке "А", текст "Итого:" и затем суммирует на этой строке данные по колонке "F" начиная с F6.

Код: vbnet
1.
2.
3.
4.
5.
6.
Sub Итоги()

Set s = Columns("A").Find("Итого:", , xlValues, xlWhole, , , False)
If Not s Is Nothing Then Range("F" & s.Row).Formula = "=Sum(F6:F" & s.Row - 1 & ")"

End Sub



Но Итоги не одни и требуется чтобы он рассчитывал так же все итоги идущие следом.
Рад буду любой помощи. Заранее благодарю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.05.2013, 10:25
    #38275950
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA расчет итогов
Так прямо по хелпу:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Итоги()

Set s = Columns("A").Find("Итого:", , xlValues, xlWhole, , , False)
nStartRow = 6
    
If Not s Is Nothing Then
    firstAddress = s.Address
    Do
        Range("F" & s.Row).Formula = "=Sum(F" & nStartRow & ":F" & s.Row - 1 & ")"
        nStartRow = s.Row + 1
        Set s = Columns("A").FindNext(s)
    Loop While Not s Is Nothing And s.Address <> firstAddress
End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA расчет итогов / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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