Як зробити спалах клітинки червоним у Excel?
Загалом, ми виділяємо клітинки з різним фоном, щоб виділити їх з інших, але тут, у цій статті, я представляю код VBA, який може змусити певні клітинки блимати червоним фоном до видатних в Excel.
Зробіть спалах клітинки червоним за допомогою VBA
Зробіть спалах клітинки червоним за допомогою VBA
Для того, щоб змусити клітинки блимати, щоб привернути увагу користувачів, ось код VBA.
1. Увімкніть аркуш, який ви хочете блимати, і натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, а потім вставте нижче код 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 спливаюче діалогове вікно для вибору комірок, які ви хочете зробити flash, див. скріншот:
4. клацання OK. Тепер виділена комірка блимає червоним фоном.
Порада:
(1) У коді VBA ви можете змінити колір фону (xКолір = 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% та зменшує сотні клацань миші для вас щодня!