Как да накарам клетката да мига червено в Excel?
По принцип подчертаваме клетките с различен фон, за да ги различаваме от другите, но тук, в тази статия, въвеждам код на VBA, който може да накара специфичните клетки да мигат с червен фон до изключителни в Excel.
Направете мигането на клетката червено с VBA
Направете мигането на клетката червено с VBA
За да накарате клетките да мигат, за да привлекат вниманието на потребителите, ето код на VBA.
1. Активирайте листа, който искате да мига клетките, и натиснете Alt + F11 бутони за отваряне Microsoft Visual Basic за приложения прозорец.
2. кликване Поставете > Модулии след това поставете под VBA кода към Модули сценарий. Вижте екранна снимка:
VBA: Направете клетката мигаща в червено
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. Натиснете F5 ключ и a Kutools за Excel изскача диалогов прозорец за избор на клетки, които искате да направите флаш, вижте екранната снимка:
4. кликване OK. Сега избраната клетка мига с червен фон.
Съвет:
(1) В кода на VBA можете да промените цвета на фона (xColor = 3), скорост на мигане (xSpeed = 0.6) и мигайте пъти (Направете до xCount = 20) както искаш.
(2) Този VBA код няма да добави флаш фон към празна селекция.
(3) Този флаш фон ще бъде премахнат автоматично след края на празните времена.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!