Как да мига или мига текст на определена клетка в Excel?
За да направите определена клетка изключителна в работния си лист, какво ще кажете да мигате текста на тази клетка? Тази статия ще ви покаже метод за мигане на текста на определена клетка в Excel.
Мигащ или мигащ текст на определена клетка с VBA код
Мигащ или мигащ текст на определена клетка с VBA код
Моля, направете следното, за да мига текстът на определена клетка в Excel.
1. Натиснете Друг + 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. Натисни Друг + Q клавиши едновременно, за да затворите Microsoft Visual Basic за приложения прозорец.
Сега имате нужда от бутон за стартиране и спиране на мигането.
4. кликване Софтуерен Инженер > Поставете > Бутон (контрола на формуляр). Вижте екранна снимка:
5. Начертайте бутон в работния си лист, след това Присвояване на макрос изскача диалогов прозорец, моля щракнете StartBlink в Макро име и след това щракнете върху OK бутон. Вижте екранна снимка:
6. Щракнете с десния бутон върху вмъкнатия бутон и щракнете Редактиране на текст от менюто с десен бутон. След това променете текста на бутона с текста, от който се нуждаете, като Старт / Стоп на мигането.
Оттук нататък при натискане на бутона текстът на клетка А1 започва да мига. И при повторно щракване върху бутона, текстът на клетка A1 спира да мига.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!