Выбор и перенос максимальных значений из столбца с учетом временного интервала.

[Tidus]

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

Ловите оптимизированный код. Оставлена одна переменная для числа интервалов ( l ), цикл тоже один теперь. Временные ячейки не используются. Можете проверить на своих данных, насколько быстрее стало и сообщите.

Странно, у меня код на странице не работает (код немного подправил под свои данные). Выложу временно свой файл. Здесь строка B - время. Из столбца High выбираются значения. Выгрузка значений начинается с ячейки H6.
http://depositfiles.com/files/aulob5ojv

[motorway]

Сорри, но я очень плохо отношусь к сайтам типа depositfiles.com, там обычно можно подцепить вирус. Может, вы мне пришлете его на мэйл? sherlock2009 [sobaka] mail.ru

[Tidus]

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

Сорри, но я очень плохо отношусь к сайтам типа depositfiles.com, там обычно можно подцепить вирус. Может, вы мне пришлете его на мэйл? sherlock2009 [sobaka] mail.ru

Уже выслал, обратно можете на эту же почту выслать. Посмотрим, что получится.

[motorway]

Вы там много изменили не в том месте. По идее, должно быть так, если не напутал от усталости. Но проблема еще и в том может быть, что если для интервалов нужных нет значений 0:00 и 0:20, то вообще не срабатывает (если нужно, чтобы срабатывало в этом случае)

Sub Кнопка1_Щелчок()
Application.ScreenUpdating = False
l = 1
r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

For i = 6 To r

  If (Cells(i, 2).Text = "0:00") Then
    nach = i
        l = l + 1
          End If

  If (Cells(i, 2).Text = "0:20") Then
    konec = i
        
          



Range("H" & l + 5).Formula = "=MAX(D" & nach & ":D" & konec & ")"

         End If
Next i


Application.ScreenUpdating = True



End Sub

[Tidus]

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

Вы там много изменили не в том месте. По идее, должно быть так, если не напутал от усталости. Но проблема еще и в том может быть, что если для интервалов нужных нет значений 0:00 и 0:20, то вообще не срабатывает (если нужно, чтобы срабатывало в этом случае)

Спасибо за попытку помочь. Проверил, теперь как-то что-то выгружает, но выявил такие проблемы:
1) выгружает не все данные (вероятная причина - видимо не находит значения 0:00 и 00:20, хотя 00:10 лежит в интервале);
2) выгружаемые данные раскиданы по столбцу, а не по порядку (причина - даже предположить не могу).
3) выделяет большой интервал (причина - если цикл находит ячейку с временем 00:00 то начинает искать время 00:20, но его не находит и пропускает все временные интервалы с одновременным выделением и поэтому выделение длится до тех пор, пока не найдётся 00:20)

Для примера, самая первая строчка (при условии поиска в интервале от 0:00 до 20:00) по времени равна равна 0:10 со значением 1,6042 - код пропускает эту строчку.... и так все строчки, странно.
Это можно поправить?

[motorway]

Ну да, код был рассчитан на то, что обязательно будут 0:00 и 0:20.
Отсюда и причины остальные.
Поправить можно, но у меня что-то уже сил не очень много. Думаю, в порядке изучения VBA Вы можете попробовать сами это сделать.

[Tidus]

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

Ну да, код был рассчитан на то, что обязательно будут 0:00 и 0:20.
Отсюда и причины остальные.
Поправить можно, но у меня что-то уже сил не очень много. Думаю, в порядке изучения VBA Вы можете попробовать сами это сделать.

Я не спешу, я подожду.Как будет время, отпишитесь пожалуйста.

[motorway]

Я же сегодня уезжаю, так что придется ждать помощи другой. Сам код должен не сильно измениться, просто условия проверки будут другие

[Tidus]

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

Я же сегодня уезжаю, так что придется ждать помощи другой. Сам код должен не сильно измениться, просто условия проверки будут другие

Жаль конечно, уже почти пристроили код и тут такой провал, ну что же...может кто другой поможет доработать. Удачной поездки!И спасибо за помощь!

[SAS888]

Посмотрите вложение. В нем предложенный мной макрос с подробными комментариями.