Excel не включва мигащ или мигащ текст като опция за шрифт. Използвайки вградения Visual Basic за приложения на Excel, обаче, можете да използвате код, за да промените цвета на текста във всеки раздел, създавайки мигащ ефект.
Етап 1
Отворете файла на Microsoft Excel 2010, в който искате да накарате текста да мига. Натиснете "Alt" и "F11", за да отворите VBA конзолата.
Видео на деня
Стъпка 2
Щракнете с десния бутон върху записа "ThisWorkbook" от лявата страна на VBA конзолата. Преместете мишката върху „Вмъкване“ и изберете „Модул“.
Стъпка 3
Щракнете двукратно върху опцията "Тази работна книга". Копирайте следния код и го поставете в бялото пространство от дясната страна на екрана:
Private Sub 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() С тази работна книга. Работни листове("Sheet1").Range("A1:A10").Font If .ColorIndex = 3 Тогава .ColorIndex = 2 Otherse .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Приложение. OnTime Timecount, "Blink", True End Sub
Това създава подпрограма, наречена "Blink", която ще накара целия текст в определения диапазон да мига. Можете да промените диапазона от "A1:A10" до какъвто желаете, включително отделна клетка.
Стъпка 6
Натиснете "Enter" за достъп до следващия ред и въведете следния код:
Sub noblink() Тази работна книга. Работни листове("Лист1").Обхват("A1:A10").Шрифт. ColorIndex = _ xlColorIndexАвтоматично приложение. OnTime Timecount, "Blink", False End Sub
Това ще създаде подпрограма, която ще се изпълнява, когато затворите работната книга. Той превръща целия текст обратно в черен, така че някой, който отвори работната книга без активирани макроси, няма случайно да види нищо в текстовите полета.
Стъпка 7
Затворете VBA конзолата, като щракнете върху "X" в горния десен ъгъл. Щракнете върху раздела „Файл“ в горната част на екрана и изберете „Запазване като“. Изберете "Excel Macro-enabled Workbook" от падащото поле и въведете име за работната книга. Кликнете върху „Запазване“.
Стъпка 8
Затворете файла на Excel и след това го отворете отново. Вашият текст, в рамките на диапазона, дефиниран в макроса, ще започне да мига. В зависимост от вашите настройки за сигурност може да се наложи да щракнете върху бутона „Активиране на макроси“ в горната част на екрана, за да видите мигащия текст.
