В Excel нет мигающего или мигающего текста в качестве шрифта. Однако, используя встроенный в Excel Visual Basic для приложений, вы можете использовать код для изменения цвета текста в каждом разделе, создавая эффект мигания.
Шаг 1
Откройте файл Microsoft Excel 2010, в котором вы хотите заставить мигать текст. Нажмите «Alt» и «F11», чтобы открыть консоль VBA.
Видео дня
Шаг 2
Щелкните правой кнопкой мыши запись «ThisWorkbook» в левой части консоли VBA. Наведите указатель мыши на «Вставить» и выберите «Модуль».
Шаг 3
Дважды щелкните параметр «ThisWorkbook». Скопируйте следующий код и вставьте его в белое пространство в правой части экрана:
Частная подписка Workbook_Open () Blink End Sub
Private Sub Workbook_BeforeClose (Отменить как логическое) NoBlink End Sub
Этот код запустится и начнет мигать текст, когда вы откроете эту книгу, и остановит мигающий текст когда вы закрываете книгу, как только вы вставляете код, чтобы сообщить Excel, что на самом деле Blink и NoBlink значит.
Шаг 4
Дважды щелкните «Модуль 1» в списке в левой части экрана. Поместите курсор в правую часть экрана и введите следующую строку:
Публичный счетчик времени как двойной
Это создает переменную с именем «Timecount», которую вы можете использовать в каждой подпрограмме.
Шаг 5
Нажмите Enter, чтобы переместить курсор на следующую строку, и введите следующий код:
Sub blink () с помощью ThisWorkbook. Листы ("Лист1"). Диапазон ("A1: A10"). Шрифт Если .ColorIndex = 3 Тогда .ColorIndex = 2 Иначе .ColorIndex = 3 Конец, если Конец с Timecount = Now + TimeSerial (0, 0, 1) Приложение. OnTime Timecount, "Blink", True End Sub
Это создает подпрограмму под названием «Blink», которая заставит мигать весь текст в определенном диапазоне. Вы можете изменить диапазон с «A1: A10» на любой желаемый диапазон, включая отдельную ячейку.
ШАГ 6
Нажмите «Enter», чтобы перейти к следующей строке, и введите следующий код:
Sub noblink () ThisWorkbook. Листы ("Лист1"). Диапазон ("A1: A10"). Шрифт. ColorIndex = _ xlColorIndex Автоматическое приложение. OnTime Timecount, "Blink", False End Sub
Это создаст подпрограмму, которая запустится, когда вы закроете книгу. При этом весь текст снова становится черным, поэтому тот, кто откроет книгу без включенных макросов, случайно не увидит ничего в текстовых полях.
Шаг 7
Закройте консоль VBA, щелкнув «X» в правом верхнем углу. Щелкните вкладку «Файл» вверху экрана и выберите «Сохранить как». В раскрывающемся списке выберите «Книга с поддержкой макросов Excel» и введите имя книги. Щелкните "Сохранить".
Шаг 8
Закройте файл Excel, а затем снова откройте его. Ваш текст в пределах диапазона, определенного в макросе, начнет мигать. В зависимости от настроек безопасности вам может потребоваться нажать кнопку «Включить макросы» в верхней части экрана, чтобы увидеть мигающий текст.
