Jak v aplikaci Excel blikat červeně?
Obecně zvýrazňujeme buňky s různým pozadím, abychom je odlišili od ostatních, ale zde v tomto článku představuji kód VBA, díky kterému mohou konkrétní buňky blikat s červeným pozadím na vynikající v aplikaci Excel.
Zajistěte, aby buňka blikala červeně pomocí VBA
Zajistěte, aby buňka blikala červeně pomocí VBA
Aby buňky blikaly, aby přilákaly pozornost uživatelů, je zde kód VBA.
1. Povolte list, který chcete bleskovat, a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula poté vložte pod kód VBA do Modul skript. Viz screenshot:
VBA: Zajistěte, aby buňka blikala červeně
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. lis F5 klíč a Kutools pro Excel Zobrazí se dialogové okno pro výběr buněk, které chcete bleskovat, viz screenshot:
4. cvaknutí OK. Vybraná buňka nyní bliká červeně.
Tip:
(1) V kódu VBA můžete změnit barvu pozadí (xColor = 3), rychlost blikání (xSpeed = 0.6) a bliká krát (Do Dokud xCount = 20) jak chceš.
(2) Tento kód VBA nepřidá zábleskové pozadí do prázdného výběru.
(3) Toto pozadí blesku bude automaticky odstraněno po skončení prázdných časů.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!