Přejít k hlavnímu obsahu

Jak náhodně přidat barvu pozadí / výplně pro buňky v aplikaci Excel?

Řekněme, že potřebujete náhodně přidat pozadí nebo barvu výplně pro buňky ve specifikovaném rozsahu, jak to vyřešit? V tomto článku jsou uvedeny dvě metody, jak to snadno provést.

Náhodně přidejte barvu pozadí / výplně pro buňky pomocí VBA

Náhodně přidejte barvu pozadí / výplně pro buňky pomocí Kutools pro Excel

Náhodně vložte hodnoty ze zadaného seznamu nebo sloupce (bez opakování) v aplikaci Excel

Kutools pro Excel Vložte náhodná data nástroj umožňuje uživatelům aplikace Excel náhodně vložit hodnoty ze zadaného seznamu nebo sloupce v aplikaci Excel.

reklama náhodně vyplnit vlastní seznam 3


Následující kód makra VBA vám pomůže přidat barvu pozadí nebo výplně pro každou buňku v určitém rozsahu s náhodnými barvami. Můžete postupovat následovně:

Krok 1: Stiskněte Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

Krok 2: Klikněte na Vložit> Modul a poté vložte následující kód VBA do úvodního okna modulu.

VBA: Přidejte barvu pozadí nebo výplně pro buňky s náhodnou barvou

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

Krok 3: Stiskněte tlačítko F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto makra VBA.

Krok 4: Nyní se zobrazí dialogové okno, stačí vybrat rozsah, do kterého chcete přidat pozadí s náhodnými barvami, a poté kliknout na OK .

Nyní uvidíte, že všechny buňky ve specifikovaném rozsahu jsou náhodně vyplněny různými barvami. Viz níže snímek obrazovky:


V některých případech možná budete muset přidat barvu pozadí náhodně vybraným buňkám ve specifikovaném rozsahu. Chcete-li to udělat, můžete vyzkoušet Kutools pro Excel Řadit rozsah náhodně nástroj a poté přidejte barvu pozadí pro tyto náhodné buňky.

Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!

Krok 1: Vyberte rozsah, kde chcete náhodně najít buňky, a přidejte barvu pozadí.

Krok 2: Klepněte na tlačítko Kutools > Rozsah > Řadit rozsah náhodně.

doc náhodné pozadí 3

Krok 3: V úvodním dialogovém okně Seřadit rozsah náhodně přejděte na vybrat Na kartě zadejte číslo do pole Počet buněk k výběru políčko, zaškrtněte Vyberte náhodné buňky a klepněte na tlačítko OK knoflík. Viz níže snímek obrazovky:

Krok 4: Nyní je náhodně vybrán zadaný počet buněk ve specifikovaném rozsahu. Poté klikněte na ikonu šipka kromě Barva výplně Tlačítko na Domů kartu a v rozevíracím seznamu vyberte barvu pozadí.

Nyní uvidíte, že barva pozadí je přidána k náhodně vybraným buňkám, jak je uvedeno níže:

doc náhodné pozadí 5

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

Popis


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am trying to do this same highlight macro with one small adjustment:is there a way to take the range selected an highlight it one random color so each time you run the macro the range of active cells is highlighted a different color Please help. Kennon
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations