Как да направите текст трептене в Excel

Стъпка 1

Отворете файла на Microsoft Excel 2010, в който искате да мигате текста. Натиснете клавишите "Alt" и "F11", за да отворите конзолата на VBA.

Стъпка 2

Кликнете с десния бутон върху записа "ThisWorkbook" от лявата страна на конзолата на VBA. Преместете курсора на мишката над "Вмъкни" и изберете опцията "Модул".

Стъпка 3

Щракнете двукратно върху опцията "ThisWorkbook". Копирайте следния код и го поставете в празното пространство в дясната част на екрана:

Частна под-работна книга_отваряне () Затваряне на подсветката

Частна под-работна книга_Прекраси (Отказ като булева) NoBlink End Sub

Този код ще започне до мигащия текст, когато отворите тази книга, а мигането на текста ще спре, когато затворите книгата, след като въведете кода, за да кажете на Excel какво "наистина мига" и "не мига" наистина означава.

Стъпка 4

Кликнете два пъти върху "Модул 1" от списъка в лявата част на екрана. Поставете курсора в дясната част на екрана и напишете следния ред:

Общественият график е двоен

Това създава променлива, наречена "Timecount", която може да се използва във всяка подпрограма.

Стъпка 5

Натиснете Enter, за да преместите курсора на следващия ред и да напишете следния код:

Подсказка () с ThisWorkbook.Worksheets ("Sheet1") Обхват ("A1: A10")., 0, 1) Приложение.Начално време, "Blink",, True End Sub

Това създава подпрограма, наречена "Flashing", която ще доведе до мигането на целия текст в рамките на определения обхват. Можете да промените диапазона на "A1: A10" във всеки диапазон, който искате, включително отделна клетка.

Стъпка 6

Натиснете клавиша "Enter" за достъп до следния ред и напишете следния код:

Под "noblink" () ThisWorkbook.Worksheets ("Sheet1") Обхват ("A1: A10") Font.ColorIndex = _xlColorIndexAutomatic Application.OnTime Timecount, "Blink"

Това ще създаде подпрограма, която ще бъде изпълнена, когато затворите книгата. Той ще преобразува целия текст обратно в черно, така че човек, който случайно отвори книгата без активирани макроси, няма да вижда нищо в текстовите полета.

Стъпка 7

Затворете конзолата на VBA, като кликнете върху "X" в горния десен ъгъл. Кликнете върху раздела "Файл" в горната част на екрана и изберете "Запазване като." Изберете "Excel активирано за книги макроси" от падащото поле и въведете име за книгата. Кликнете върху "Запазване".

Стъпка 8

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