Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2010, 11:40   #11
EugeneS
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 472
По умолчанию

см. вложение "result0"

В макросе использовались имена книг: "Альфа-директ" и "ЖУРНАЛ УЧЕТА". Соответственно, если Вы изменяете имя книги, необходимо вносить изменения в код. В выложенных Вами файлах (папка "result0") файл "Альфа-директ" стал "Альфа-директ2". Изменил "Альфа-директ" на "Альфа-директ2", все работает.

Если Вас интересует чтобы запуск макроса не был привязан к имени книги "Альфа-директ.xls", можно сделать так, см. вложение "result_new"
Вложения
Тип файла: zip result0.zip (65.4 Кб, 10 просмотров)
Тип файла: zip result_new.zip (65.9 Кб, 14 просмотров)

Последний раз редактировалось EugeneS; 22.11.2010 в 12:18.
EugeneS вне форума Ответить с цитированием
Старый 24.11.2010, 00:48   #12
EugeneS
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 472
По умолчанию

вот пример работы макроса по таймеру, интервал 20 секунд, в макрос внесены некоторые изменения. Установите временной стоп (сейчас 23:42), изменив значение часов и минут в данной строке:

Код:
If Hour(newtime) = 23 And Minute(newtime) = 42 Then
и нажмите "Выполнить".
Вложения
Тип файла: zip result_timer_new.zip (69.1 Кб, 8 просмотров)
EugeneS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить пустую строку созданную StringList-ом Shouldercannon Общие вопросы Delphi 18 14.12.2011 11:52
Как выбрать последный пустую строку в LISTBOX ? Aqil_f Microsoft Office Excel 14 06.09.2010 18:00
Как считать последнюю строку ? Katmai Общие вопросы Delphi 13 27.07.2010 20:49
Преобразование даты в пустую строку insense БД в Delphi 6 02.07.2010 09:13
Удалить пустую строку из ListView Shouldercannon Общие вопросы Delphi 2 28.04.2010 16:02