Private Sub Workbook_Open() - Microsoft Office Excel

jungo · 29.08.2016, 10:08

Привет Друзья!
Как всегда с ламерской проблемой...
Нужна динамичная функция Now() , которая будет работать (визуально) в конкретной книге, тесть менять время (по-секундам).
Сделал такой простой макрос:

Код:

Sub UpdateTime()
Dim varNextCall As Variant
Sheets("status").Cells(2, 4).Value = Now
varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1)
Application.OnTime varNextCall, "UpdateTime"
End Sub

Запустил:

Код:

Private Sub Workbook_Open()
Run "UpdateTime"
End Sub

Все работает, но при открытии еще какой либо книги есть баг (тесть, я так понимаю врубается макрос).
Есть идеи?

Serge_Bliznykov · 29.08.2016, 10:18

Цитата:

Код:

Sheets("status").Cells(2, 4).Value = Now

укажите не только лист, но и прямо укажите книгу, где находится нужный лист.

IgorGO · 29.08.2016, 10:51

Код:

ThisWorkBook.WorkSheets("status").Cells(2, 4).Value = Now

jungo · 29.08.2016, 11:16

Цитата:

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

Код:

ThisWorkBook.WorkSheets("status").Cells(2, 4).Value = Now

Спасибо друг!
Теперь другая проблема

Открываю другую книгу, все ОК, закрываю книгу с макросом, она открывается сама, все время

IgorGO · 29.08.2016, 11:33

теперь нужно еще в
Private Sub Workbook_BeforeClose аккуратненько погасить след. выполнение UpdateTime
Application.OnTime varNextCall, "UpdateTime", Schedule:=false
и
организовать, чтобы varNextCall знали все задействованные процедуры во всех модулях

jungo · 29.08.2016, 11:50

Не получается самому... Можно получить код?

IgorGO · 29.08.2016, 11:58

при наличии файла - можно

jungo · 29.08.2016, 12:18

Цитата:

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

при наличии файла - можно

Не дает приципить файл... зипил, не зипил... не дает.
Есть еще варианты?

Serge_Bliznykov · 29.08.2016, 13:13

что значит - не даёт? кто не даёт? через "Расширенный режим" - "Управление вложениями"?
И что пишет?
А какой размер у файла?!

Может быть, для демонстрации/теста, стоит почистить книгу - удалить "тяжёлые" страницы или данные! Может быть, у Вас там миллион страниц и на каждой по тысяче картинок!

а ещё, в самом тяжёлом и крайнем случае, можно выложить файл на любое файловое хранилище и дать сюда линк на скачивание.

jungo · 29.08.2016, 13:23

Я думаю из за окончания хайла: *.xlsm
Что подскажите?

29.08.2016, 10:08	#1
jungo Форумчанин Подтвердите свой е-майл Регистрация: 14.11.2007 Сообщений: 163	Private Sub Workbook_Open() Привет Друзья! Как всегда с ламерской проблемой... Нужна динамичная функция Now() , которая будет работать (визуально) в конкретной книге, тесть менять время (по-секундам). Сделал такой простой макрос: Код: `Sub UpdateTime() Dim varNextCall As Variant Sheets("status").Cells(2, 4).Value = Now varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1) Application.OnTime varNextCall, "UpdateTime" End Sub` Запустил: Код: `Private Sub Workbook_Open() Run "UpdateTime" End Sub` Все работает, но при открытии еще какой либо книги есть баг (тесть, я так понимаю врубается макрос). Есть идеи? Jungo must die!!! (C) Bill Gates.

29.08.2016, 10:51	#3
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `ThisWorkBook.WorkSheets("status").Cells(2, 4).Value = Now` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

29.08.2016, 11:33	#5
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	теперь нужно еще в Private Sub Workbook_BeforeClose аккуратненько погасить след. выполнение UpdateTime Application.OnTime varNextCall, "UpdateTime", Schedule:=false и организовать, чтобы varNextCall знали все задействованные процедуры во всех модулях Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

29.08.2016, 11:50	#6
jungo Форумчанин Подтвердите свой е-майл Регистрация: 14.11.2007 Сообщений: 163	Не получается самому... Можно получить код? Jungo must die!!! (C) Bill Gates.

29.08.2016, 11:58	#7
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	при наличии файла - можно Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

29.08.2016, 13:13	#9
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	что значит - не даёт? кто не даёт? через "Расширенный режим" - "Управление вложениями"? И что пишет? А какой размер у файла?! Может быть, для демонстрации/теста, стоит почистить книгу - удалить "тяжёлые" страницы или данные! Может быть, у Вас там миллион страниц и на каждой по тысяче картинок! а ещё, в самом тяжёлом и крайнем случае, можно выложить файл на любое файловое хранилище и дать сюда линк на скачивание.

29.08.2016, 13:23	#10
jungo Форумчанин Подтвердите свой е-майл Регистрация: 14.11.2007 Сообщений: 163	Я думаю из за окончания хайла: .xlsm Что подскажите? Jungo must die!!! (C) Bill Gates.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Workbook_Open и связи в ексель	Jaroslav	Microsoft Office Excel	4	29.04.2014 14:26
private c++	Arrioh	Помощь студентам	2	30.11.2012 22:11
Перенос макроса в новую книгу в Workbook_open()	Daren	Microsoft Office Excel	4	05.04.2011 13:27
Не работает Workbook_Open	kipish_lp	Microsoft Office Excel	6	24.11.2010 14:00
Private Sub TextBox2_GotFocus()	bank_notes	Microsoft Office Excel	7	12.08.2010 19:59