ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Мигающие ячейки
21 сообщений из 21, страница 1 из 1
Мигающие ячейки
    #34074756
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Здравствуйте. У меня есть код:

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) Как прикрепить код к определенной книге и чтобы он(код) запускался при ее открытии?

P.S. С функциями даты и времени работать не приходилось
...
Рейтинг: 0 / 0
23.10.2006, 17:03:49
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34074786
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Private Sub Workbook_Open()

здесь твой код


End Sub
...
Рейтинг: 0 / 0
23.10.2006, 17:10:43
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34074828
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Вылезает ошибка (не найден макрос"C:\...\Книга1.xls'!ASS')
...
Рейтинг: 0 / 0
23.10.2006, 17:21:22
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34075127
NEMINIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NEMINIS
Гость
Sub ASS()
Application.OnTime Now + TimeValue("00:00:01"), "ASS"
a = Format(Now, "ss")
For n = 1 to 100
If Range("B" & n).Value >10 Then
Range("B" & n)..Interior.ColorIndex = 3
Exit for
End if
Next n
End Sub
...
Рейтинг: 0 / 0
23.10.2006, 19:01:06
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34075143
NEMINID
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NEMINID
Гость
Нет извини я подумаю
...
Рейтинг: 0 / 0
23.10.2006, 19:05:30
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076046
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
1.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Sub BlinkingCells()
    Dim intI As Integer
    Dim dtmDime As Date

    For intI =  1  To  20 
        If Cells(intI,  1 ) >  10  Then
            If Cells(intI,  2 ).Interior.ColorIndex =  2  Then
                Cells(intI,  2 ).Interior.ColorIndex =  3 
            Else
                Cells(intI,  2 ).Interior.ColorIndex =  2 
            End If
        End If
    Next intI

    dtmDime = Now() + TimeValue("00:00:01")
    Application.OnTime dtmDime, "BlinkingCells"
End Sub

2.

Используй событие Open определенной рабочей книги.
...
Рейтинг: 0 / 0
24.10.2006, 10:29:18
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076331
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Вылезает ошибка (не найден макрос"C:\...\abc.xls'!BlinkingCells')
Ячейки окрашиваются, но не мигают.
Событие Open для рабочей книги abc.xls сделал и вот что получилось:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Sub Workbook_Open()
    
    Dim intI As Integer
    Dim dtmDime As Date

    For intI =  1  To  20 
        If Cells(intI,  1 ) >  10  Then
            If Cells(intI,  2 ).Interior.ColorIndex =  6  Then
                Cells(intI,  2 ).Interior.ColorIndex =  8 
            Else
                Cells(intI,  2 ).Interior.ColorIndex =  6 
            End If
        End If
    Next intI

    dtmDime = Now() + TimeValue("00:00:01")
    Application.OnTime dtmDime, "BlinkingCells"
End Sub
...
Рейтинг: 0 / 0
24.10.2006, 11:34:26
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076347
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Вот блин и вообще ничего не происходит. Может событие Open для рабочей книги не так сделал???
...
Рейтинг: 0 / 0
24.10.2006, 11:38:33
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076358
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Прикрепи к сообщению свою рабочую книгу.
...
Рейтинг: 0 / 0
24.10.2006, 11:40:35
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076398
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Вроде прикрепил
...
Рейтинг: 0 / 0
24.10.2006, 11:52:19
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076729
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
А так?

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
24.10.2006, 13:03:56
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34076815
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Вроде работает. А еще вопрос. Как сделать чтобы это работало на всем листе?
Пробовал так вместо
Код: plaintext
For intI =  1  To  20
написал след:
Код: plaintext
For intI =  1  To  65000
Выдает ошибку:
Run-time error '6':
Overflow
Пробовал по-другому
Код: plaintext
For intI=  1  To ActiveCell.SpecialCells(xlLastCell).Row
Выдает тоже самое
...
Рейтинг: 0 / 0
24.10.2006, 13:20:43
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077005
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Запиши процедуру BlinkingCells в стандартном модуле.

В модуле книги запиши.

Код: plaintext
1.
2.
Private Sub Workbook_Open()
    BlinkingCells
End Sub

Далее. Переменная intI объявлена как Integer, диапазон значений которой от -32768 до 32767. Если значение будет больше этого диапазона, будет Overflow.

Сделай следующим образом.

Код: plaintext
1.
2.
3.
4.
    Dim lngI As Long

    For lngI =  1  To  65536 
        ...
    Next lngI

Или

Код: plaintext
1.
2.
3.
4.
    Dim lngI As Long

    For lngI =  1  To ActiveSheet.Range("A65536").End(xlUp).Row
        MsgBox Cells(lngI,  1 )
    Next lngI
...
Рейтинг: 0 / 0
24.10.2006, 13:57:20
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077078
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Более менее эффективно это можно решить пожалуй только комбинируя VBA и Условное Форматирование (насколько мне известно, метод был впервые опубликован здесь: Thomas Jansen http://tinyurl.com/yb7ahz ). Кстати, при этом решении (в отличие от первоначального) не теряется возможность копирования и отмены/возврата операций на листе, хотя возможно некоторое мигание курсора мыши.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
24.10.2006, 14:14:08
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077080
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Код: plaintext
1.
2.
3.
4.
Dim lngI As Long

For lngI =  1  To  65536 
        ...
Next lngI
С этим разобрался , но при 65000 наблюдаю торможение. (Т. е постоянно появляются песочные часы)

А вот про запись процедуры BlinkingCells в стандартном модуле не понял
...
Рейтинг: 0 / 0
24.10.2006, 14:14:26
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077084
Фотография Ivan33
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ivan33
Участник
попробуй файл позырить этот

сам код
Код: plaintext
Dim NextTime As Date\n\nSub StartFlash()\n    NextTime = Now + TimeValue("00:00:01")\n    With ActiveWorkbook.Styles("Flashing").Font\n        If .ColorIndex = xlAutomatic Then .ColorIndex =  3 \n        .ColorIndex =  5  - .ColorIndex\n    End With\n    Application.OnTime NextTime, "StartFlash"\nEnd Sub\n\nSub StopFlash()\n    Application.OnTime NextTime, "StartFlash", schedule:=False\n    ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic\nEnd Sub\n

взято было отседова

а на форуме это было тута
...
Рейтинг: 0 / 0
24.10.2006, 14:15:10
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077095
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Пардон, файл не прицепился.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
24.10.2006, 14:16:46
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077146
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
KL (XL)
не вижу где в последнем файле услоуие(код) при котором происходит мигание?
...
Рейтинг: 0 / 0
24.10.2006, 14:25:52
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34077276
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
andMegaMKL (XL)
не вижу где в последнем файле услоуие(код) при котором происходит мигание?

в Условном Форматировании

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
24.10.2006, 14:53:06
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34166258
rtrtrtrt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rtrtrtrt
Гость
KL (XL) andMegaMKL (XL)
не вижу где в последнем файле услоуие(код) при котором происходит мигание?

в Условном Форматировании

KL
[MVP - Microsoft Excel]


Уважаемые!
А можно вопрос- куда все эти коды зашить?
...
Рейтинг: 0 / 0
30.11.2006, 10:44:56
| Ответить | Цитировать | Написать  
Мигающие ячейки
    #34166356
rtrtrtrt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rtrtrtrt
Гость
Так макросы вижу.
Подскажите ячейку как выбрать? Не вижу где задать.
...
Рейтинг: 0 / 0
30.11.2006, 11:10:54
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Мигающие ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34076398&tid=2183841]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 6ms
check topic access:
 6ms
track hit:
 57ms
get topic data:
 14ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 210ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]