VPF::Мигающие ячейки в Excel - Форум программистов

andMegaM

Дата 23.10.2006, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.10.2006

Репутация: нет
Всего: нет

Здравствуйте. У меня есть код:

Код


Sub ASS()
Application.OnTime Now + TimeValue("00:00:01"), "ASS"
a = Format(Now, "ss")
df = a Mod 2
If df = 0 Then Cells(1, 2).Interior.ColorIndex = 3
If df = 1 Then Cells(1, 2).Interior.ColorIndex = 6
End Sub

После запуска данного кода начинает мигать ячейка Cells(1, 2) с интервалом в 1 секунду, то

желтым, то красным цветом (привлекая к себе внимание). Мне нужно сделать следующее:

1) К примеру если в ячейке Cells(i, 1) {i - для перебора строк} есть значениие больше 10,

то тогда начала бы мигать ячейка Cells(i, 2) {i - для перебора строк}.

2) Как прикрепить код к определенной книге и чтобы он(код) запускался при ее открытии?
smile

P.S. С функциями даты и времени работать не приходилось

RockClimber

Дата 23.10.2006, 21:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

В редакторе VBA слева есть Project Window, в нем в виде древовидной структуры представлены все открытые книги. Выбираете нужную книгу, в ней - папочку Microsoft Excel Objects, а в папочке - ThisWorkbook. Кликаете на ней дважды, вверху над окном редактора в левом выпадающем списке выбираете Workbook, после чего автоматически появится функция Workbook_Open(). Эта функция будет выполнятся при каждом открытии книги. Для того, чтобы она не выполнялась, перед открытием книги надо выполнить строчку

Код


Application.EnableEvents=False

(Свойство EnableEvents отвечает за выполнение обработчиков событий - события обрабатаваются только тогда, когда свойство равно True)

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

andMegaM

Дата 24.10.2006, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 20.10.2006

Репутация: нет
Всего: нет

Вот что получилось, но ничего не не работает

Код


Application.EnableEvents = False
Private Sub Workbook_Open()
    
Application.OnTime Now + TimeValue("00:00:01"), "[color=red]ASS[/color]"
a = Format(Now, "ss")
df = a Mod 2
If df = 0 Then Cells(1, 2).Interior.ColorIndex = 3
If df = 1 Then Cells(1, 2).Interior.ColorIndex = 6

End Sub

Может событие Open для рабочей книги не так сделал???

Aloha

Дата 24.10.2006, 12:27 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 351
Регистрация: 14.5.2006

Репутация: 5
Всего: 165

andMegaM

Загляни в личный почтовый ящик. Там со вчерашнего дня лежит кое-какая инфа.

RockClimber

Дата 28.10.2006, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

andMegaM,
Сначала выполни строчку

Код


Application.EnableEvents = True

потом открывай книгу и не трогай стойство EnableEvents. Все должно будет работать.

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »