Note: The other languages of the website are Google-translated. Back to English

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


šipka modrá pravá bublina 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

buňka doc flash 1

3. lis F5 klíč a Kutools pro Excel Zobrazí se dialogové okno pro výběr buněk, které chcete bleskovat, viz screenshot:
buňka doc flash 2

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL