Конференція VBStreets - Перегляд теми - Подія по таймеру

Весь смак програмування!

Список форумів‹ Суміжні технології‹ VBA
Змінити розмір шрифту

FAQ
Вхід

Подія по таймеру

dim flag as boolean

private sub timer if flag=true then . . . Application.OnTime Now + TimeValue("00:00:01"), "Timer" end if end sub

Public sub StartTimer flag=true timer end sub

Public sub StopTimer flag=False end sub

Хлопців я ваше туплю роблю так

Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:00:5"), "Tim()" End Sub

Public Sub Tim() forPROVERKA.Show End Sub

пише що немає такого макросу 'Tim()' вибачте засранця, але опишіть у прикладі як зробити! у мене вже голова подружжя не варить

О пасіб все вийшло! Треба було просто не в тілі книги, а окремим модулем прописати.

Тепер виникла нова проблема Є файл із даними, вони оновлюються кожні 2 хв. Мені необхідно кожні 2 хв завантажувати з нього нові дані та поміщати у свою таблицю, при цьому відкрита форма в якій постійно набивають дані, і періодично відкриваються інші форми. Не вистачає мозку зробити так, щоб дані постійно скачувалися, і в цей час спокійно працювало з основними даними. Запускаю таймер, один раз все проходить і гальма, або даю посилання на таймер із форми, тоді при переході в іншу форму знову гальма. Як зробити щоб таймер працював незалежно від основного коду і постійно.