Как сделать мигающий текст в excel

Обновлено: 30.06.2024

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

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

Я бы так сделал. При открытии документа выполняется процедура, которая сравнивает содержимое необходимых ячеек с текущей датой (функция Date() ) и изменяет необходимое свойство нужный ячеек.

"Как вы яхту назовете - так она и поплывет!"
Капитан Врунгель

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

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

Если скажем, что в А1 у тебя стоит "заранее установленная дата" (например: 21.11.2005), А2 - та ячейка котторая должна мигать. Используй "Условное форматирование" с такими условиями в А2:
Условие1:
=ЕСЛИ(A1=СЕГОДНЯ();ОСТАТ(СЕКУНДЫ(ТДАТА())/4;1)=0)
Условие2:
=ЕСЛИ(A1=СЕГОДНЯ();ОСТАТ(СЕКУНДЫ(ТДАТА())/4;1)=0,25)
Условие3:
=ЕСЛИ(A1=СЕГОДНЯ();ОСТАТ(СЕКУНДЫ(ТДАТА())/4;1)=0,5)
применяя к каждому условию разный цвет, то тогда как только с файлом будут работать, ячейка будет иметь каждую секунду 4 разных цвета. Так она будет работать сутки, которые указаны в А1. Если необходимо отключить ее руками, то скажем в В1 можно выставлять 1 или 0 и условия поменяется на:
Условие1:
=ЕСЛИ(И(A1=СЕГОДНЯ();B1=0);ОСТАТ(СЕКУНДЫ(ТДАТА())/4;1)=0)
Условие2:
=ЕСЛИ(И(A1=СЕГОДНЯ();B1=0);ОСТАТ(СЕКУНДЫ(ТДАТА())/4;1)=0,25)
Условие3:
=ЕСЛИ(И(A1=СЕГОДНЯ();B1=0);ОСТАТ(СЕКУНДЫ(ТДАТА())/4;1)=0,5)

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

В появившейся панели нажимаешь - "Исходный текст". В появившимся окне кода, сверху, есть два выпадающих списка - Object и Procedure.

Object - это к какому объекту ты будешь описывать действия, а Procedure - это при каком собитии/случае код будет выполняться.

В первом списке выбрать Worksheet а во втором событие к-е тебе удобно. Судя по твоему описание лучше подходит - Active(при загрузке, при становлении листа активным).
Ну а далее что-то типа этого:

Зачастую, наши возможности ограничены лишь нашими желаниями. И ничто так не ограничивает желания, как заниженная оценка своих возможностей.

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

Только, что вычитал, что можно перейти в редатор нажитием комбинации кнопок Alt+F11? т.е. без нажимания на "исходный текст".

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

а нельзя сделать чтобы именно ячейка А1 в которой стоит ДАТА 27.09.06 начала мигать а не другая ячейка?

Добавлено @ 15:38
вопрос к Михаилу!
вчера ты мне показал как отформатировать ячейку по Дате.
Есть проблема!
Если я копирую ту ячейку,которую ты прислал в рабочую учетную таблицу-она тут же у меня начинает врать безбожно-либо сразу меняет цвет либо ничего не делает. В общем не работает .В чем дело?
Может у меня там какое то автоформатирование стоит.
Кстати таблица является общей для нескольких компов-может в этом дело.

Добавлено @ 15:41
Изувер и Бласт 99 ! Огромное Спасибо!
Попробую сделать!

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

Рекомендую зайти Панель управления-Формат -Условное форматирование.
Izuver Опробовать времени нет,интересное решение

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

Не понял вопроса.
Ты хочешь код для мигания ячейки или код поиска нужной ?
А строка:

И так меняет именно ячейку A1. Это лишь пример, как обратиться к определенной ячейке.
Разъясни, что ты хочешь?
Найти определенную ячейку и заставить ее мигать, взяв искомое значение из другой ячейки?

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

Кстати, вот код чтобы manager далеко не лез менять цвет, а просто дважды кликнул по ячейке и она "погасла":

If ActiveCell.Interior.ColorIndex = 3 Then
ActiveCell.Interior.ColorIndex = 0
Else
ActiveCell.Interior.ColorIndex = 3
End If

Можешь так же использовать ActiveCell.ClearFormats, если удобно.
Ну и конечно можно добавить своих условий.
Зачастую, наши возможности ограничены лишь нашими желаниями. И ничто так не ограничивает желания, как заниженная оценка своих возможностей.

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

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

Если мигание ячейки прописано в макросе, то в другую книгу Excel нужно копировать не только ячейку, но и макрос тоже. А если моргание прописано в формуле, а формула - в копируемой ячейке, то тогда вполне возможно неадекватрое поведение. Как вариант - сохранить текст макроса в файле personal.xls, а в ячейку вставлять уже формулу из этого макроса.
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

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

Присоединённый файл ( Кол-во скачиваний: 30 )
_____1.rar 1,55 Kb

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Несанкционированная реклама на форуме запрещена
Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
Оставляйте свои записи в "Книге отзывов о работе администрации"
А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

[ Время генерации скрипта: 0.1322 ] [ Использовано запросов: 21 ] [ GZIP включён ]

В Microsoft Word эта задача решается просто. В меню Format (Формат) выберите пункт Font (Шрифт), щелкните на вкладке Text Effects (Анимация) и выберите пункт Blinking Background (Мигающий фон). Однако в Excel ничего подобного нет. Мерцающий текст в Excel можно получить лишь с помощью небольшой макрокоманды.

Допустим, вы хотите, чтобы мерцала ячейка A1. В меню Tools (Сервис) выберите пункты Macro (Макрос) и Visual Basic Editor (Редактор Visual Basic). На дереве в левой панели щелкните на VBAProject правой клавишей мыши и в раскрывшемся меню выберите пункты Insert (Вставка) и Module (Модуль). Теперь наберите и вставьте в модуль следующий текст:

Разместите окна VBA и Excel таким образом, чтобы вам была видна ячейка A1 на листе Sheet1, затем щелкните в тексте макрокоманды StartFlashing и запустите его нажатием на клавишу F5. Ячейка мерцает! Чтобы прекратить мерцание, щелкните на тексте макрокоманды StopFlashing и нажмите клавишу F5.

Как же работают эти макрокоманды? Константа FR определяет диапазон мерцающих ячеек; изменив ее значение, вы можете вызвать мерцание различных ячеек. Если фоновый цвет ячеек мерцающего диапазона красный, макрокоманда меняет его на обычный, если нет — она меняет цвет фона на красный. Затем через секунду макрокоманда вновь запускается благодаря имеющемуся в программе методу OnTime.

Результат выполнения функции VBA TimeSerial — числовое значение времени, соответствующее количеству часов, минут и секунд, переданных ей в качестве входных параметров. TimeSerial принимает только целые значения, поэтому самый короткий временной период, с которым функция может работать, — это одна секунда; это значение мы и используем в нашем примере. Значение переменной NextFlash мы задаем как текущее время плюс 1 с, а к методу OnTime мы обращаемся за тем, чтобы по истечении этого времени вновь запустить StartFlashing. При каждом вызове макрокоманды фон ячеек меняется с красного на обычный и наоборот.

Макрокоманда StopFlashing просто возвращает фону его обычный цвет и вызывает метод OnTime для отмены предстоящего события. Для отмены события необходимо передать то же значение времени, которое использовалось для его планирования, вот почему нам пришлось хранить это значение в переменной, доступной обеим макрокомандам.

При закрытии рабочей книги важно отменить все предстоящие события, поэтому мы добавим макрокоманду для решения этой задачи. Кроме того, эта макрокоманда должна автоматически запускать мерцание ячеек после открытия рабочей книги. В дереве, расположенном в левой части окна редактора VBA, дважды щелкните на модуле ThisWorkbook и наберите или с помощью команды Copy/Paste вставьте следующий текст:

Чтобы выделить определенную ячейку на листе, как насчет мигания текста в этой ячейке? В этой статье будет показан метод мигания текста указанной ячейки в Excel.

Мигающий или мигающий текст указанной ячейки с кодом VBA

Объединение нескольких рабочих листов/книг в один рабочий лист/книгу:

Kutools for Excel : с более чем 200 удобными надстройками Excel, попробуйте бесплатно без ограничений в течение 60 дней. Загрузите бесплатную пробную версию прямо сейчас!

Kutools for Excel Решает Большинство ваших проблем и увеличивает вашу продуктивность на 80%.

Мигающий или мигающий текст указанной ячейки с кодом VBA

Пожалуйста, сделайте следующее, чтобы мигать текст указанной ячейки в Excel.

1. Одновременно нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .

2. В окне Microsoft Visual Basic для приложений нажмите Вставить > Модуль .. Затем скопируйте и вставьте следующий код в окно кода.

Код VBA: мигающий текст указанной ячейки в Excel

Примечание : в этом коде VBA Sheet2 и A1 указывают, что текст в ячейке A1 Sheet2 будет мигать в текущей книге.

3. Одновременно нажмите клавиши Alt + Q , чтобы закрыть окно Microsoft Visual Basic для приложений .

Теперь вам нужна кнопка для запуска и остановки мигания.

5. Нарисуйте кнопку на своем листе, затем появится диалоговое окно Назначить макрос , нажмите StartBlink в макросе name , а затем нажмите кнопку OK . См. Снимок экрана:

С этого момента при нажатии на кнопку текст ячейки A1 начинает мигать. И при повторном нажатии на кнопку текст ячейки A1 перестает мигать.

Вкладка Office предоставляет интерфейс с вкладками, как в веб-браузерах, таких как Google Chrome, новые версии Internet Explorer и Firefox в Microsoft Excel. Он станет незаменимым помощником в работе и сэкономит время. См. Демонстрацию ниже:

Нажмите, чтобы получить бесплатную пробную версию вкладки Office!

Мигающий или мигающий текст указанной ячейки с кодом VBA

Объединение нескольких рабочих листов/книг в один рабочий лист/книгу:

Kutools for Excel Решает Большинство ваших проблем и увеличивает вашу продуктивность на 80%.

Мигающий или мигающий текст указанной ячейки с кодом VBA

Пожалуйста, сделайте следующее, чтобы мигать текст указанной ячейки в Excel.

1. Одновременно нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .

Код VBA: мигающий текст указанной ячейки в Excel

Примечание : в этом коде VBA Sheet2 и A1 указывают, что текст в ячейке A1 Sheet2 будет мигать в текущей книге.

3. Одновременно нажмите клавиши Alt + Q , чтобы закрыть окно Microsoft Visual Basic для приложений .

Теперь вам нужна кнопка для запуска и остановки мигания.

Нажмите, чтобы получить бесплатную пробную версию вкладки Office!

Читайте также: