Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Ускорить работу макроса

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

1122111

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть такой код можно ли его как-нибудь ускорить для большого количества строк и добавить сумму еще для 11 строк(по месяцам)?
 
Код Visual Basic
 
Sub optimize()
For Each rr In Selection.Rows
cikl:
If Cells(rr.Row, 1).Value = Cells(rr.Row + 1, 1).Value Then
Cells(rr.Row, 6).Value = Cells(rr.Row, 6).Value + Cells(rr.Row + 1, 6).Value
Rows(rr.Row + 1).EntireRow.Delete Shift:=xlUp
GoTo cikl
End If
Next
Cells(1, 1).Select
End Sub

Всего записей: 6 | Зарегистр. 25-01-2013 | Отправлено: 15:36 14-12-2013
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Ускорить работу макроса


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru