Jak sprawić, by komórka migała na czerwono w programie Excel?
Ogólnie rzecz biorąc, wyróżniamy komórki z różnymi tłami, aby odróżnić je od innych, ale tutaj, w tym artykule, przedstawiam kod VBA, który może sprawić, że określone komórki będą migać na czerwonym tle, aby wyróżnić się w programie Excel.
Spraw, aby komórka migała na czerwono za pomocą VBA
Spraw, aby komórka migała na czerwono za pomocą VBA
Aby komórki migały, aby przyciągnąć uwagę użytkowników, oto kod VBA.
1. Włącz arkusz, dla którego chcesz flashować komórki, i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do pliku Moduł scenariusz. Zobacz zrzut ekranu:
VBA: Spraw, aby komórka migała na czerwono
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. naciśnij F5 klucz i a Kutools dla programu Excel wyskakuje okno dialogowe do wybierania komórek, które chcesz flashować, zobacz zrzut ekranu:
4. kliknij OK. Teraz wybrana komórka miga na czerwonym tle.
Porady:
(1) W kodzie VBA możesz zmienić kolor tła (xKolor = 3), prędkość migania (xSpeed = 0.6) i mrugając razy (Do xCount = 20) jak chcesz.
(2) Ten kod VBA nie doda tła flash do pustego zaznaczenia.
(3) To flashowe tło zostanie automatycznie usunięte po zakończeniu pustego czasu.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!