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

Jak aplikovat barevný přechod na více buněk?

V aplikaci Excel můžeme snadno vyplnit barvu pozadí do buňky nebo do více buněk, ale někdy potřebujeme, aby byla barva vyplněna přechodem, jak ukazuje následující snímek obrazovky, jak lze získat barevný přechod v buňce nebo přes více buněk v aplikaci Excel?

Barevný přechod do jedné buňky Barevný přechod napříč několika buňkami
barevný přechod dokumentu 1 barevný přechod dokumentu 2

Aplikujte barvu přechodu na jednu buňku pomocí funkce Formátovat buňky

Aplikujte barvu přechodu na více buněk pomocí kódu VBA


šipka modrá pravá bublina Aplikujte barvu přechodu na jednu buňku pomocí funkce Formátovat buňky

V aplikaci Excel vám funkce Formát buněk pomůže vyplnit barevný přechod v jedné buňce, postupujte takto:

1. Vyberte buňku nebo více buněk, které chcete vyplnit barevným přechodem v každé buňce, a potom klepněte pravým tlačítkem a vyberte Formát buněk z kontextové nabídky v Formát buněk v dialogovém okně pod Vyplnit karta, klikněte prosím Výplně tlačítko, viz screenshot:

barevný přechod dokumentu 3

2. V Výplně V dialogovém okně vyberte ze dvou rozevíracích seznamů dvě barvy, které chcete použít Barvy sekce a poté vyberte jeden styl stínování, jak se vám líbí, například horizontální, vertikální atd. Viz snímek obrazovky:

barevný přechod dokumentu 4

3. Pak klikněte na tlačítko OK > OK zavřete dialogová okna a barva přechodu se vyplní pro každou buňku, jak ukazuje následující snímek obrazovky:

barevný přechod dokumentu 5


šipka modrá pravá bublina Aplikujte barvu přechodu na více buněk pomocí kódu VBA

Výše uvedená metoda nám může pomoci barevný přechod v rámci jednotlivých buněk, pokud potřebujete stínovat barevný přechod napříč více buňkami, musíte k jeho vyřešení použít kód VBA.

1. Nejprve vyplňte konkrétní barvu pozadí do řady buněk.

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Aplikujte barvu přechodu na více buněk:

Sub colorgradientmultiplecells()
'Updateby Extendoffcie 
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xColor As Long
    Dim I As Long
    Dim K As Long
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    xCount = xRg.Rows.Count
    For K = 1 To xRg.Columns.Count
        xColor = xRg.Cells(1, K).Interior.Color
        For I = xCount To 1 Step -1
            xRg.Cells(I, K).Interior.Color = xColor
            xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
        Next
    Next
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám připomene výběr barevných buněk, které chcete vyplnit barvou přechodu, viz screenshot:

 

barevný přechod dokumentu 6

5. A pak klikněte na tlačítko OK tlačítko, barva ve více buňkách se zobrazila jako barva přechodu, viz screenshot:

 

barevný přechod dokumentu 7


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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (21)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Jak toho dosáhnu, aby přechod šel zleva doprava?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Seane,
Chcete-li použít barevný přechod zleva doprava, použijte následující kód VBA:

Sub colorgradientmultiplecells()
Dim xRg jako rozsah
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K As Long
Dim xCount As Long
On Error Resume Next
Pokud ActiveWindow.RangeSelection.Count > 1 Potom
xTxt = ActiveWindow.RangeSelection.AddressLocal
Jiný
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("vyberte rozsah buněk:", "Kutools pro Excel", xTxt, , , , , 8)
Pokud xRg není nic, pak Exit Sub
Pokud xRg.Areas.Count > 1 Potom
MsgBox "nepodporuje vícenásobný výběr", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
End If
On Error Resume Next
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
Pro K = 1 To xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
Pro I = xCount To 1 Krok -1
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = (xCount - (I - 1)) / xCount
další
další
End Sub

Doufám, že vám to pomůže, děkuji!
Tento komentář byl moderátorem webu minimalizován
Jak bych to udělal, kdybych chtěl, aby to bylo nahoře zleva doprava dolů?
Tento komentář byl moderátorem webu minimalizován
Je možné odeslat kód, který přechází shora dolů? Opravdu bych to ocenil.
Tento komentář byl moderátorem webu minimalizován
Potřeboval bych kód od nejtmavšího odstínu nahoře po světlejší odstín dole taky.. :(
Tento komentář byl moderátorem webu minimalizován
Ahoj, Lauro,
Chcete-li uložit svůj úkol, použijte prosím následující kód:

Sub colorgradientmultiplecells()

'Aktualizace od Extendoffcie

Dim xRg jako rozsah

Dim xTxt As String

Dim xCell As Range

Dim xColor As Long

Dim I As Long

Dim K As Long

Dim xCount As Long

On Error Resume Next

Pokud ActiveWindow.RangeSelection.Count > 1 Potom

xTxt = ActiveWindow.RangeSelection.AddressLocal

Jiný

xTxt = ActiveSheet.UsedRange.AddressLocal

End If

LInput:

Set xRg = Application.InputBox("vyberte rozsah buněk:", "Kutools pro Excel", xTxt, , , , , 8)

Pokud xRg není nic, pak Exit Sub

Pokud xRg.Areas.Count > 1 Potom

MsgBox "nepodporuje vícenásobný výběr", vbInformation, "Kutools pro Excel"

Přejít na vstup LIN

End If

On Error Resume Next

Application.ScreenUpdating = False

xCount = xRg.Rows.Count

Pro K = 1 To xRg.Columns.Count

xColor = xRg.Cells(1, K).Interior.Color

Pro I = xCount To 1 Krok -1

xRg.Cells(I, K).Interior.Color = xColor

xRg.Cells(I, K).Interior.TintAndShade = I / xCount

další

další

End Sub

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Jak mohu udělat, aby kód šel zprava doleva, předem děkuji
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Ashley,
Chcete-li vytvořit barevný přechod zprava doleva, může vám pomoci následující kód vba, zkuste to.

Sub colorgradientmultiplecells()
Dim xRg jako rozsah
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K As Long
Dim xCount As Long
On Error Resume Next
Pokud ActiveWindow.RangeSelection.Count > 1 Potom
xTxt = ActiveWindow.RangeSelection.AddressLocal
Jiný
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("vyberte rozsah buněk:", "Kutools pro Excel", xTxt, , , , , 8)
Pokud xRg není nic, pak Exit Sub
Pokud xRg.Areas.Count > 1 Potom
MsgBox "nepodporuje vícenásobný výběr", vbInformation, "Kutools pro Excel"
Přejít na vstup LIN
End If
On Error Resume Next
Application.ScreenUpdating = False
xCount = xRg.Columns.Count
Pro K = 1 To xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
Pro I = xCount To 1 Krok -1
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = I / xCount
další
další
End Sub
Tento komentář byl moderátorem webu minimalizován
Je možné provést tento přechod, ale zleva zdola nahoru doprava?
Tento komentář byl moderátorem webu minimalizován
Ahoj, nejsem tak zvyklý na kódy VBA. Jak nastavím jinou barvu v kódu?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Pavle,
Pokud chcete nastavit jinou barvu, stačí vyplnit požadovanou barvu do buněk a poté použít výše uvedený kód v tomto článku.
Zkuste to prosím.
Tento komentář byl moderátorem webu minimalizován
dík! funguje to :)
Tento komentář byl moderátorem webu minimalizován
Proč mám černo-bílou barvu nahradit můj přechod
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Piyaphane,
Výše uvedený kód funguje dobře v mém listu, kterou verzi aplikace Excel používáte?
Nebo můžete svůj problém popsat podrobněji.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Ahoj! Mám stejný problém, vybírám barvy pro svůj přechod, ale při použití kódu se změní na přechod z černé na bílou. Nějaká pomoc?? dík!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, jak mohu přejít ze žluté na červenou (například)? Funguje pouze od bílé k jiné barvě. Pracuji s kódem zleva doprava.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Jasmin,
Omlouváme se za to, tento kód byl použit pouze na jednu barvu, a pokud chcete vyplnit přechod zleva do těsného, ​​níže uvedený komentář má řešení, zkontrolujte jej.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, můžete to použít na rozsah jako 1 až 5, buňky mají v sobě číslo, přičemž 5 je nejtmavší?

Byl by Kutools schopen udělat něco podobného jako výše, ale pak uspořádat řadu čísel do stupnice - není dobré to vysvětlit. Řekněte průzkumovou odpověď na stupnici od 1 do 5, poté graficky znázorněte jeden pruh na otázku zobrazující procento odpovědí v 1, 2, 3, 4, 5; 5 % 1, 10 % 2, 15 % 3 a 50 % 4, 20 % 5, ale zobrazující barevný přechod ve vodorovném pruhu (lepší, když jsou 2 barvy).

Díky, Gorde
Tento komentář byl moderátorem webu minimalizován
Ahoj, zkusil jsem zkopírovat kód VBA, ale při pokusu o jeho spuštění se mi stále zobrazuje zpráva „Chyba kompilace: Neplatná vnější procedura“....


Jak to opravím?


Díky!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, můžete to použít na rozsah jako 1 až 5, buňky mají v sobě číslo, přičemž 5 je nejtmavší?
Byl by Kutools schopen udělat něco podobného jako výše, ale pak uspořádat řadu čísel do stupnice - není dobré vysvětlovat. Řekněte průzkumovou odpověď na stupnici od 1 do 5, poté graficky znázorněte jeden pruh na otázku zobrazující procento odpovědí v 1, 2, 3, 4, 5; 5 % 1, 10 % 2, 15 % 3 a 50 % 4, 20 % 5, ale zobrazující barevný gradient ve vodorovném pruhu (lepší, když 2 barvy).
Díky, Gorde
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Jak mohu použít tento vzorec pro dvě barvy, výše nemohu sledovat řešení. Prosím
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í