Как сделать так, чтобы ячейка мигала красным в 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 ключ и Kutools for Excel появляется диалоговое окно для выбора ячеек, которые вы хотите сделать вспышкой, см. снимок экрана:
4. Нажмите OK. Теперь выбранная ячейка мигает красным фоном.
Советы:
(1) В коде VBA вы можете изменить цвет фона (xЦвет = 3), скорость мигания (xSpeed = 0.6) и мигать раз (До xCount = 20) как пожелаете.
(2) Этот код VBA не добавляет флэш-фон к пустому выделению.
(3) Этот фон вспышки будет автоматически удален по окончании пустого времени.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
