Копировать данные с предыдущего месяца

[kuklp]

Валер, да не стоит замерять время. На одном проходе выиграно будет 0 целых х. десятых. Это моя привычка из далеких 90-х оптимизировать код. на 2-386м процессорах нужно было убирать любые тормоза. Просто, приведенный мной код правильней, красивей и (повторяюсь) технологичней замененного. Ну если уж приспичило проверить - перед циклом(гото или до) ставь:
t= timer
for g= 1 to 10000
Цикл(тот цикл, к-рый хронометрируешь)
next
msgbox timer-t
А еще, желательно включить монитор типа ProcessLasso, чтоб видеть загрузку процессора и памяти.

[valerij]

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

Валер, да не стоит замерять время.

Ты прав, не стоит и так видно, что работает на-амного быстрее.
Спасибо.

[kuklp]

Валер, это совсем просто:
t=timer
dm = Date + (Day(Date) = 1)
for i=1 to 10000
Do While Sheets(Month(dm)).Cells(3, (Day(dm) - vv) * 2) = ""
vv = vv + 1
Loop
Sheets(Month(dm)).Range(Sheets(Mont h(dm)).Cells(3, (Day(dm) - vv) * 2 - 1), Sheets(Month(dm)).Cells(35, (Day(dm) - vv) * 2)).Copy _
Sheets(Month(Date)).Cells(3, Day(Date) * 2 - 1)
next
msgbox timer - t
Ну и свой цикл с Гото между t=timer и msgbox timer - t помести. Только не забудь его 10000 раз выполнить:-)

[valerij]

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

Валер, это совсем просто

Ок, попробую.
Тут у меня, маленько опять, загвоздка.
Надо, если в колонках (Day(Date) *2), встретится слово гараж, оно, слово, должно стать, синим, а слово ремонт, красным.
Нифига не получается, а че? Не хотелось через усл. формат., видимо придется(Так и сделал).

If Columns(Day(Date) * 2) = "гараж" Then
    With Selection.Font
        .Name = "Arial Cyr"
        .Size = 12
    End With
    Selection.Font.Bold = True
    Selection.Font.ColorIndex = 5
End If