Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Мигающие ячейки / 21 сообщений из 21, страница 1 из 1
23.10.2006, 17:03:49
    #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:10:43
    #34074786
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Private Sub Workbook_Open()

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


End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2006, 17:21:22
    #34074828
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Вылезает ошибка (не найден макрос"C:\...\Книга1.xls'!ASS')
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2006, 19:01:06
    #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:05:30
    #34075143
NEMINID
NEMINID
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Нет извини я подумаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 10:29:18
    #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, 11:34:26
    #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:38:33
    #34076347
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Вот блин и вообще ничего не происходит. Может событие Open для рабочей книги не так сделал???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:40:35
    #34076358
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Прикрепи к сообщению свою рабочую книгу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 11:52:19
    #34076398
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Вроде прикрепил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 13:03:56
    #34076729
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
А так?

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 13:20:43
    #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:57:20
    #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, 14:14:08
    #34077078
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Более менее эффективно это можно решить пожалуй только комбинируя VBA и Условное Форматирование (насколько мне известно, метод был впервые опубликован здесь: Thomas Jansen http://tinyurl.com/yb7ahz ). Кстати, при этом решении (в отличие от первоначального) не теряется возможность копирования и отмены/возврата операций на листе, хотя возможно некоторое мигание курсора мыши.

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2006, 14:14:26
    #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:15:10
    #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:16:46
    #34077095
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мигающие ячейки
Пардон, файл не прицепился.

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

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

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

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

KL
[MVP - Microsoft Excel]


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


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