|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.01.2011, 14:49 | #21 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Валер, да не стоит замерять время. На одном проходе выиграно будет 0 целых х. десятых. Это моя привычка из далеких 90-х оптимизировать код. на 2-386м процессорах нужно было убирать любые тормоза. Просто, приведенный мной код правильней, красивей и (повторяюсь) технологичней замененного. Ну если уж приспичило проверить - перед циклом(гото или до) ставь:
t= timer for g= 1 to 10000 Цикл(тот цикл, к-рый хронометрируешь) next msgbox timer-t А еще, желательно включить монитор типа ProcessLasso, чтоб видеть загрузку процессора и памяти.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
10.01.2011, 20:42 | #22 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
11.01.2011, 18:25 | #23 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Валер, это совсем просто:
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 раз выполнить:-)
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 11.01.2011 в 18:30. |
11.01.2011, 18:57 | #24 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Ок, попробую.
Тут у меня, маленько опять, загвоздка. Надо, если в колонках (Day(Date) *2), встретится слово гараж, оно, слово, должно стать, синим, а слово ремонт, красным. Нифига не получается, а че? Не хотелось через усл. формат., видимо придется(Так и сделал). Код:
Последний раз редактировалось valerij; 12.01.2011 в 07:16. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копировать данные при чтении | Doctordradd | Общие вопросы Delphi | 0 | 02.11.2010 18:43 |
В ячейке проставить название предыдущего месяца | kzld | Microsoft Office Excel | 6 | 08.10.2010 11:30 |
копировать данные из файлов с изменяющимся именем | Татьяна_45 | Microsoft Office Excel | 7 | 24.06.2010 17:26 |
Копировать данные из предыдущей строки | Viktor_Kotov | Помощь студентам | 4 | 14.04.2010 18:00 |
Копировать данные из Excell в Word | Dimon_isu | Microsoft Office Excel | 3 | 15.05.2008 12:12 |