Как сделать так, чтобы текст в указанной ячейке Excel мигал?
Почему бы не привлечь внимание к нужной ячейке, заставив её текст мигать? В этой статье описан способ создания мигающего текста в указанной ячейке Excel.
Мигающий или мерцающий текст в указанной ячейке с помощью кода VBA
Мигающий или мерцающий текст в указанной ячейке с помощью кода VBA
Выполните следующие действия, чтобы заставить текст в указанной ячейке Excel мигать.
1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код в окно кода.
Код VBA: мигающий текст в указанной ячейке Excel
Sub StartBlink()
'Updated by ExtendOffice 20181010
Dim xCell As Range
Dim xTime As Variant
On Error Resume Next
Set xCell = Range("Sheet2!A1")
On Error Resume Next
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End SubПримечание: в этом коде VBA Sheet2 и A1 означают, что текст в ячейке A1 на листе Sheet2 будет мигать в текущей книге.
3. Нажмите одновременно клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
Теперь вам понадобится кнопка для запуска и остановки мигания.
4. Выберите Разработчик > Вставить > Кнопка (элемент управления формы). См. снимок экрана:
5. Нарисуйте кнопку на листе — после этого появится диалоговое окно Назначить макрос. В поле Макрос имя щёлкните StartBlink, затем нажмите кнопку ОК. См. снимок экрана:
6. Щёлкните правой кнопкой мыши по вставленной кнопке и выберите в контекстном меню пункт Изменить текст. Затем замените текст кнопки на нужный вам — например, «Запуск / Остановка мигания».
Теперь при нажатии кнопки текст в ячейке A1 начнёт мигать, а при повторном нажатии — остановится.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек