Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
мигающая ячейка
 
#1
08.11.2009 10:03:50
Добрый день! Надо что бы ячейка мигала одним цветом независимо от того, есть там данные или нет(открыл книгу-мигает, изменил данные в этой ячейке-мигает, текст или числа не важно). Приведенные на планете примеры вроде не подходят. Может кто подскажет?    
Заранее благодарен!
 
 
 
#2
08.11.2009 10:17:39
{quote}{login=The_Prist}{date=08.11.2009 10:08}{thema=}{post}А какие примеры Вы уже пробовали?    
Ячейка должна мигать постоянно?{/post}{/quote}  
какие точно сейчас не скажу, а мигать должна постоянно
 
 
 
#3
08.11.2009 10:21:12
{quote}{login=ksmspb}{date=08.11.2009 10:17}{thema=Re: }{post}{quote}{login=The_Prist}{date=08.11.2009 10:08}{thema=}{post}А какие примеры Вы уже пробовали?    
Ячейка должна мигать постоянно?{/post}{/quote}  
какие точно сейчас не скажу, а мигать должна постоянно{/post}{/quote  
Один из примеров был Ваш, Цвет желтый менялся на зеленый и голубой и все, мигание прекращалось
 
 
 
#4
08.11.2009 10:39:19
Мигать всегда,  
Мигать везде,  
до дней последних донца,  
Мигать -  
и никаких гвоздей!  
Вот лозунг мой  
и ksmspb!
Bite my shiny metal ass!      
 
 
 
#5
08.11.2009 11:53:10
Я понимаю, что интеллект-величина постоянная, но когда его не хватает, тогда ничего и не мигает. Смотрю на оба поста как в книгу, а вижу... Подскажите пожалуйста, чего надо сделать, чтобы замигало?
 
 
 
#6
08.11.2009 12:00:08
{quote}{login=ksmspb}{date=08.11.2009 11:53}{thema=}{post}Я понимаю, что интеллект-величина постоянная, но когда его не хватает, тогда ничего и не мигает. Смотрю на оба поста как в книгу, а вижу... Подскажите пожалуйста, чего надо сделать, чтобы замигало?{/post}{/quote}  
 
Включить активное содержимое
 
 
 
#7
08.11.2009 12:00:14
Как минимум - разрешить работу макросов.
 
 
 
#8
08.11.2009 12:03:41
Да я и рад бы разрешить, но не знаю как, хотя и не запрещал.
 
 
 
#9
08.11.2009 12:10:53
Версия Офиса?
 
 
 
#10
08.11.2009 12:13:21
{quote}{login=The_Prist}{date=08.11.2009 12:10}{thema=Re: }{post}{quote}{login=ksmspb}{date=08.11.2009 12:03}{thema=}{post}Да я и рад бы разрешить, но не знаю как, хотя и не запрещал.{/post}{/quote}Блин, а как же Вы тогда определили, что все найденные Вами приведенные примеры не подходят? Они все на макросах.  
Если у Вас Excel 2007, то:  
Меню-Параметры Excel-Центр управления безопасностью-Параметры управления безопасностью-Параметры маккросов-Включить все макросы.  
в 2003  
Сервис-Макросы-Безопасность-Низкая, либо Средняя(при запуске книги надо будет разрешить макросы).{/post}{/quote}  
Таки так и сделал, Но в предыдущих примерах все работало(кружились по кругу , мигали и т.д.), а сейчас ничего не вижу
 
 
 
#11
08.11.2009 12:15:02
Сори, заработало! Ну извините, тяжко абетуре среди профессуры!
 
 
 
#12
08.11.2009 12:22:33
Ну да, спасибо огромное!
 
 
 
#13
08.11.2009 12:23:30
The_Prist, а Вы не подскажете почему в моём коде ячейка не мигает?  
 
Sub BlinkingCell()  
Static intCalls As Integer  
If intCalls < 10 Then  
intCalls = intCalls + 1  
If Range("A1").Interior.Color <> RGB(255, 0, 0) Then  
Range("A1").Interior.Color = RGB(255, 0, 0)  
Else  
Range("A1").Interior.Color = RGB(255, 0, 0)  
End If  
Application.OnTime Now + TimeValue("00:00:05"), "BlinkingCell"  
Else  
Range("A1").Interior.ColorIndex = xlNone  
intCalls = 0  
End If  
End Sub  
 
PS Глеод опять объявился...
 
 
 
#14
08.11.2009 12:40:19
{quote}{login=The_Prist}{date=08.11.2009 12:31}{thema=}{post}Serge 007, наверное только красным закрашивается и все, да?..  
{/post}{/quote}  
 
Не, я хотел чтоб каждые пять секунд красенькое на зелёненькое менялось :-)  
Спасибо, всё получилось!!!  
 
PS Просто моя невнимательность, RGB одинаковые написал...
 
 
 
#15
08.11.2009 12:48:10
The_Prist, если можно, поясните пожалуйста, почему этот код работает и с листа и из модуля, а некоторые макросы надо строго - либо туда, либо сюда?
 
 
 
#16
08.11.2009 13:03:28
{quote}{login=The_Prist}{date=08.11.2009 12:55}{thema=}{post}М-да.... Постараюсь. Как правило модуль листа или книги используют для отслеживания событий в этом листе или книге. В модули листов и книг встроены процедуры обработчики событий(SelectionChange, Calculate, Change и т.д.). Они работают только в модулях листов и книг и вставлять их в обычный модуль нет смысла. Но если в лист вставить обычный код(не событийный), то он тоже будет работать, но надо учитывать всякого рода нюансы. Например, если в таком коде Вы обращаетесь к диапазону(типа Range("A1")) без конкретного указания листа, то применено будет не к ячейке активного листа, а к ячейке листа, в котором расположен код.{/post}{/quote}  
 
Уффф... Пока для меня сложновато, буду осваивать...  
Спасибо!
 
 
 
#17
08.11.2009 15:32:18
Такой вариант с возможностью отмены или возврата предыдущих изменений (UNDO/REDO).
KL
 
 
 
#18
08.11.2009 17:05:03
Уважаемый The_Prist! Пытался скопировать макросы в свою книгу, но она зараза не мигает. Пробовал переделать под ячейку В1(мне она-то и нужна), поменял "А" на "В" из Вашего варианта, но выскочила какая-то ошибка. Подскажите, чего мне надо сделать,что бы из Вашего примера переместить все на свой?
 
 
 
#19
08.11.2009 17:18:33
У меня мигать стала В1, но только если открыта Ваша книга. Закрою пример-и у меня усё замирает (не мигает), чего не так сделал?
 
 
 
#20
08.11.2009 17:22:38
{quote}{login=}{date=08.11.2009 05:18}{thema=}{post}У меня мигать стала В1, но только если открыта Ваша книга. Закрою пример-и у меня усё замирает (не мигает), чего не так сделал?{/post}{/quote}  
 
А как Вы макрос копируете - вставляете?  
Похоже у Вас именно это не получается.
 
 
 
#21
08.11.2009 17:31:45
Я скопировал вот это:  
'---------------------------------------------------------------------------------------  
' Module    : ЭтаКнига  
' DateTime  : 08.11.2009 10:37  
' Author    : The_Prist  
' Purpose   : Пульсирование ячейки красным с интервалом в секунду  
'             http://www.planetaexcel.ru/forum.php/forum.php?thread_id=11162  
'             Автор темы - ksmspb  
'---------------------------------------------------------------------------------------  
Option Explicit  
Public dblTimeLine As Double  
Sub Blinding()  
If Range("b1").Interior.Color = vbRed Then Range("b1").Interior.Color = xlNone Else Range("b1").Interior.Color = vbRed  
dblTimeLine = DateAdd("s", 1, Now)  
Application.OnTime dblTimeLine, "Blinding"  
End Sub  
 
больше ничего не нашел
 
 
 
#22
08.11.2009 17:36:28
Хорошо, а куда вставили?
 
 
 
#23
08.11.2009 17:42:58
сервис/макрос/редактор visualbasic/view/code
 
 
 
#24
08.11.2009 17:49:41
Непонятно...  
Вы должны были вставить код в модуль листа или книги...  
Своей книги.  
Можете итоговый принтскрин окна VBA выложить?
 
 
 
#25
08.11.2009 20:06:18
Извините, были проблемы  с нетом. Что такое принтскрин?
 
 
 
#26
08.11.2009 20:33:39
Спасибо за терпение и подсказки. Скопировал и в книгу и в модуль. ЗАРАБОТАЛО!!!
 
 
 
#27
08.11.2009 21:12:37
{quote}{login=}{date=08.11.2009 08:33}{thema=}{post}Спасибо за терпение и подсказки. Скопировал и в книгу и в модуль. ЗАРАБОТАЛО!!!{/post}{/quote}  
 
И мигает и мигает..., только теперь скопировать и вставить ничего нельзя (даже Ctrl+V не работает. Может я все-таки чего-то натворил?
 
 
 
#28
08.11.2009 21:16:11
{quote}{login=}{date=08.11.2009 08:06}{thema=}{post}Извините, были проблемы  с нетом. Что такое принтскрин?{/post}{/quote}  
 
C аглицким как?  
Print -  печать Screen - Экран, по-нашенски "снимок экрана" :)
 
 
 
#29
08.11.2009 21:28:25
{quote}{login=The_Prist}{date=08.11.2009 09:16}{thema=}{post}Ничего не натворили. А как Вы хотели? Там же марос запускается каждую секунду. Вы скопировать успеваете, а вставить уже нет - буфер очищается после действий макроса...{/post}{/quote}  
 
а если частоту поставить не 1 а 5 секунд-поможет?  
А с аглицким вери бед
 
 
 
#30
08.11.2009 23:35:56
{quote}{login=}{date=08.11.2009 09:12}{thema=Re: }{post}{quote}{login=}{date=08.11.2009 08:33}{thema=}{post}Спасибо за терпение и подсказки. Скопировал и в книгу и в модуль. ЗАРАБОТАЛО!!!{/post}{/quote}  
 
И мигает и мигает..., только теперь скопировать и вставить ничего нельзя (даже Ctrl+V не работает. Может я все-таки чего-то натворил?{/post}{/quote}  
 
Обратите внимание на мое сообщение ранее в этой теме ;-)
KL
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх