Как заставить текст мигать в Excel

Excel не поддерживает мигающий или мигающий текст в качестве параметра шрифта. Однако, используя встроенный в Excel Visual Basic для приложений, вы можете использовать код, чтобы текст менял цвет в каждом разделе, создавая эффект мерцания.

Шаг 1

Откройте файл Microsoft Excel 2010, в котором вы хотите, чтобы текст мигал. Нажмите «Alt» и «F11», чтобы открыть консоль VBA.

Шаг 2

Щелкните правой кнопкой мыши запись «ThisWorkbook» в левой части консоли VBA. Наведите указатель мыши на «Вставить» и выберите «Модуль».

Шаг 3

Дважды щелкните параметр «Эта рабочая книга». Скопируйте следующий код и вставьте его в пустое место в правой части экрана:

Частная подпрограмма Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

Этот код начнет мигать, когда вы откроете эту книгу, и перестанет мигать, когда вы закроете книгу, как только вы вставите код, чтобы сообщить Excel, что на самом деле означают Blink и NoBlink.

Шаг 4

Дважды щелкните «Модуль 1» в списке в левой части экрана. Поместите курсор в правую часть экрана и введите следующую строку:

Публичный отсчет времени как двойной

При этом создается переменная с именем «Timecount», которую вы можете использовать в каждой подпрограмме.

Шаг 5

Нажмите Enter, чтобы переместить курсор на следующую строку, и введите следующий код:

Sub blink() With ThisWorkbook.Worksheets("Лист1").Range("A1:A10").Font If .ColorIndex =3 Then .ColorIndex =2 Else .ColorIndex =3 End If End With Timecount =Now + TimeSerial(0 , 0, 1) Application.OnTime Timecount, "Blink", , True End Sub

Это создает подпрограмму под названием «Мигание», которая заставит весь текст в пределах определенного диапазона мигать. Вы можете изменить диапазон с "A1:A10" на любой желаемый диапазон, включая отдельную ячейку.

Шаг 6

Нажмите «Ввод», чтобы перейти к следующей строке, и введите следующий код:

Sub noblink() ThisWorkbook.Worksheets("Лист1").Range("A1:A10").Font.ColorIndex =_ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub

Это создаст подпрограмму, которая будет запускаться при закрытии книги. Он снова превращает весь текст в черный, чтобы тот, кто откроет книгу без включенных макросов, случайно не увидел ничего в текстовых полях.

Шаг 7

Закройте консоль VBA, нажав «X» в правом верхнем углу. Перейдите на вкладку «Файл» в верхней части экрана и выберите «Сохранить как». В раскрывающемся списке выберите «Книга Excel с поддержкой макросов» и введите имя книги. Нажмите "Сохранить".

Шаг 8

Закройте файл Excel, а затем снова откройте его. Ваш текст в диапазоне, указанном в макросе, начнет мигать. В зависимости от настроек безопасности вам может потребоваться нажать кнопку "Включить макросы" в верхней части экрана, чтобы увидеть мигающий текст.