Hogyan lehet színtáblázatot készíteni az Excel cellájának színe alapján?
Normál esetben egy diagram létrehozásakor az oszlopsáv színe az alapértelmezett. Ha meg kell formáznia az egyes sávok kitöltött színét a cella színei alapján, az alábbi képernyőkép szerint, hogyan tudná megoldani az Excelben?
Színezze a diagramot egy vagy több adatsorral, VBA kóddal ellátott cellaszín alapján
Színezze a diagramot egy vagy több adatsorral, cellaszín alapján, csodálatos funkcióval
Színezze a diagramot egy vagy több adatsorral, VBA kóddal ellátott cellaszín alapján
Színezze a diagramot egy adatsorral a cella színe alapján
A következő VBA-kóddal gyorsan megváltoztathatja a diagram színét, amely egy adatsort tartalmaz az eredeti cellaértékek színe alapján. Kérjük, tegye a következőket:
1. Először hozzon létre egy oszlop- vagy oszlopdiagramot a következő képernyőkép szerint (Válassza ki az adatokat, majd kattintson a betétlap > Oszlop vagy oszlopdiagram beszúrása):
2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA-kód: Színdiagram-sávok egy adatsorral a cella színe alapján:
Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, xRows As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
If xChart Is Nothing Then Exit Sub
With xChart.SeriesCollection(1)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
.Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
Next
End With
End Sub
Megjegyzések: A fenti kódban 1 diagram a használni kívánt diagram neve, kérjük, változtassa meg a saját nevével.
4. A fenti kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és a diagramsávok színe megváltozott az eredeti cellaszín alapján, lásd a képernyőképet:
Színezze a diagramot több adatsorral a cella színe alapján
Ha a diagram több adatsorral rendelkezik, kérjük, alkalmazza a következő VBA kódot:
1. Kérjük, hozza létre az oszlop- vagy oszlopdiagramot, amely több adatsort tartalmaz, az alábbi képernyőkép szerint:
2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA-kód: Színdiagram-sávok, több adatsorral, cellaszín alapján:
Sub CellColorsToChart()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long
Dim xRowsOrCols As Long, xSCount As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
If xChart Is Nothing Then Exit Sub
xSCount = xChart.SeriesCollection.Count
For I = 1 To xSCount
J = 1
With xChart.SeriesCollection(I)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
If xSCount > 4 Then
xRowsOrCols = xRg.Columns.Count
Else
xRowsOrCols = xRg.Rows.Count
End If
For Each xCell In xRg
.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
J = J + 1
Next
End With
Next
End Sub
4. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, a diagram sávok egyszerre vannak kitöltve az eredeti cellák színével, lásd a képernyőképet:
Megjegyzések:
1. A fenti kódban 1 diagram a használni kívánt diagram neve, kérjük, változtassa meg a saját nevével.
2. Ez a kód vonaldiagramra is alkalmazható.
Színezze a diagramot egy vagy több adatsorral, cellaszín alapján, csodálatos funkcióval
A fenti kódok használatával a diagram színei nem mindig lesznek összehangolva a cella színével, a probléma megoldásához itt bemutatok egy hasznos eszközt - A diagram színének módosítása a cellaszín szerint of Kutools az Excel számára, ezzel a praktikus funkcióval gyorsan és egyszerűen kiszínezheti a diagramot a cella színe alapján.
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Először kérjük, helyezze be a használni kívánt diagramot, majd válassza ki a diagramot, majd kattintson a gombra Kutools > táblázatok > Diagrameszközök > A diagram színének módosítása a cellaszín szerint, lásd a képernyőképet:
2. Ezután megjelenik egy prompt mező, kattintson OK gombot.
3. Most a kiválasztott diagramot a cella színei alapján színezték, az alábbi képernyőképek alapján:
Színezze a diagramot egy adatsorral a cella színe alapján
Színezze a diagramot több adatsorral a cella színe alapján
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Relatívabb cikkcikkek:
- Hozzon létre egy oszlopdiagramot, amely egy másik oszlopdiagramot fed fel az Excel programban
- Ha két adatsorral rendelkező fürtös oszlopot vagy oszlopdiagramot hozunk létre, a két adatsor oszlop egymás mellett jelenik meg. De néha az átfedés vagy az átfedés sávdiagramját kell használnunk a két adatsor egyértelműbb összehasonlításához. Ebben a cikkben arról fogok beszélni, hogy miként hozhatunk létre átfedett sávdiagramot az Excelben.
- Egy diagramformátum másolása másoknak az Excel programba
- Ha feltételezzük, hogy a munkalapon többféle típusú diagram található, akkor egy diagramot formázott az igényeinek megfelelően, és most ezt a diagramformázást szeretné alkalmazni más diagramokra is. Természetesen másokat manuálisan is formázhat egyesével, de ez sok időt fog pazarolni. Van-e gyors vagy praktikus módja annak, hogy másoljon egy diagramformátumot másoknak az Excel programban?
- Jelölje ki a Max és Min adatpontokat egy diagramban
- Ha van olyan oszlopdiagramja, amely a legmagasabb vagy a legkisebb adatpontot különféle színnel kívánja kiemelni, hogy felülmúlja azokat, az alábbi képernyőképen látható. Hogyan lehetne meghatározni a legmagasabb és legkisebb értékeket, majd gyorsan kiemelni az adatpontokat a diagramban?
- Hozzon létre egy lépésdiagramot az Excel programban
- Lépésdiagram segítségével mutatjuk be a szabálytalan időközönként bekövetkezett változásokat, ez egy vonaldiagram kiterjesztett változata. De nincs közvetlen módja az Excel-ben való létrehozásának. Ebben a cikkben arról fogok beszélni, hogyan lehet lépésről lépésre létrehozni egy lépésdiagramot az Excel munkalapon.
- Folyamatjelző diagram létrehozása Excelben
- Az Excelben az előrehaladási sávdiagram segíthet a cél felé történő haladás nyomon követésében, az alábbi képernyőképen. De hogyan hozhatna létre folyamatjelző diagramot az Excel munkalapon?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!