Можно упростить этот макрос?

[Hugo121]

Вот только что писал два точно таких макроса, но наоборот (два потому, что первый раз не успел сохранить ), третий не хочу
http://www.excelworld.ru/_fr/92/_new2.rar
Можно брать и переделывать.

P.S. Вообще есть в том коде одна помарка - массив b нужно в начале иметь пустой. Т.е. определить необходимый размер и создать массив под размер, который и заполнить.
Потому что иначе для тех, кого нет в выбранном месяце - останутся старые данные!

Или же "бюджетный вариант": если t нет в словаре - очищаем текущую строку массива b.

[valerij]

Сообщение от Hugo121

Можно брать и переделывать.

Понял буду смотреть.

P.S. Вообще есть в том коде одна помарка - массив b нужно в начале иметь пустой. Т.е. определить необходимый размер и создать массив под размер, который и заполнить

.
Как это определить?
Одна машина может в день несколько раз выехать.

Или же "бюджетный вариант": если t нет в словаре - очищаем текущую строку массива b.

t - номер машины?

[Hugo121]

В том коде t - это номер клиента и месяц. У Вас как ключ можно хранить номер машины и месяц, если там в месяц по одной машине в базе.

А нет, там по несколько раз машины встречаются.
Тогда собираете сразу данные в словаре. И нужно делать иначе - отбирать в словарь данные только за конкретный выбранный месяц.
Для простоты - делайте 4 параллельных словаря, на каждый столбец по словарю.

Да, 1:1 тот код использовать не получится. Но половину можно использовать.

Алгоритм думаю такой - базу в массив, цикл по массиву, анализируем месяц, если нужный - суммируем в 4-х словарях данные, как ключ достаточно только номер машины.
Далее цикл по отчёту - по номеру машины берём из словарей данные.

[valerij]

Сообщение от Hugo121

Тогда собираете сразу данные в словаре. .

А где этот словарь?

Для простоты - делайте 4 параллельных словаря, на каждый столбец по словарю.

Я правильно понял в самом начале месяца при вводе данных(макрос такой у меня есть) буду эти данные копировать в 4-е столбца данных на один месяц, т. е. на год 48 столбцов.

Так?

[Hugo121]

В том коде словарь скрывается в

With CreateObject("scripting.dictionary")

Раз нужно делать 4 словаря - значит нужно 4 переменных, а не один/одно with
Про 48 не понял - там ведь отчёт на 1 месяц!

[IgorGO]

Валера, можно конечно макрос подогнать под производственный процесс, а можно... производственный процесс подогнать под макрос

если макрос не предполагает, что машина может выехать несколько раз в день можно:
ликвидировать машину по приезду. ликвидированная машина никуда второй раз не поедет. взрыв... ну нет машины, зато макрос переписывать не надо!

Да, 1:1 тот код использовать не получится. Но половину можно использовать.

вот тут требуется уточнить (для Валеры) какую половину использовать верхнюю или нижнюю?
или может макрос вертикальной ломаной разбить на правую и левую половины. но вопрос остается открытым: какую половину использовать? правую или левую?

а если в макросе нечетное количество символов? макрос с половиной символа не записать, не использовать

[valerij]

Сообщение от Hugo121

Про 48 не понял - там ведь отчёт на 1 месяц!

Ваще она, программа, годовая.

Сообщение от IgorGO

Валера, можно конечно макрос подогнать под производственный процесс, а можно... производственный процесс подогнать под макрос

Я завтра уточню в налоговой, данные в листе Отчёт, нужны на текущий месяц или на год.

[Hugo121]

Судя по тому, что выбор выбирает только один месяц - отчёт будет на месяц!
Но конечно можно отработать 12 раз, нагенерить 12 отчётов, никто не мешает. И код можно не менять
Когда он конечно будет написан...

Да, про половины - думаю лучше брать верхнюю... Хотя...

[valerij]

Сообщение от Hugo121

Судя по тому, что выбор выбирает только один месяц - отчёт будет на месяц!

Почему один? 12 там

На один месяц у меня так и не важно сколько раз машина в день выезжает.
Этот код находится в UserForm1.

NumsAuto = ":ББ ЦЦЦЦ ББ:АН 0308 ЕТ:АН 2950 НР:АН 3824 ІН:АН 3962 ЕР:АН 5097 ЕМ:АН 7144 ЕО:АН 7145 ЕО:АН 7146 ЕО:АН 7440 ЕР"
  NumsAuto = NumsAuto & ":АН 7484 ЕР:АН 7880 СР:АН 8102 НТ:АН 8266 ЕО:АН 8267 ЕО:АН 8835 ЕР:АН 9357 ЕР:АН 9358 ЕР:АН 9359 ЕР"
    iRow = (InStr(NumsAuto, NumAuto) - 2) / 11 + 1

            With Sheets(6)
                .Cells(iRow, 2) = .Cells(iRow, 2) + Cells(ActiveCell.Row, "I"): _
                    .Cells(iRow, 3) = .Cells(iRow, 3) + Cells(ActiveCell.Row, "AA"): _
                    .Cells(iRow, 4) = .Cells(iRow, 4) + Cells(ActiveCell.Row, "AD"): _
                .Cells(iRow, 5) = .Cells(iRow, 5) + Cells(ActiveCell.Row, "AF")
            End With
                iRow = 0: ActiveWindow.ScrollColumn = 3: Cells(i + 1, "A").Activate

Ни что мне не мешает складывать данные не в готовую таблицу, а в др. место и потом по выбору месяца уже спокойно читать от туда.
№ машин вводятся через форму.

[Hugo121]

"и потом по выбору месяца" - вот я и поймал
По выбору месяца, а не месяцев!