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.
Náhodně přidejte barvu pozadí / výplně pro buňky pomocí VBA
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:
Náhodně přidejte barvu pozadí / výplně pro buňky pomocí Kutools pro Excel
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ě.
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:
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
Ukázka: Náhodně přidejte barvu pozadí / výplně pro buňky pomocí Kutools pro Excel
Související články:
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!