Hur färgar jag diagram baserat på cellfärg i Excel?
Normalt är färgen på kolumnraden standard när du skapar ett diagram. Om du behöver formatera fylld färg på varje stapel baserat på cellfärgerna enligt följande skärmdump, hur kan du lösa det i Excel?
Färga diagrammet med en eller flera dataserier baserat på cellfärg med VBA-koder
Färga diagrammet med en eller flera dataserier baserat på cellfärg med en fantastisk funktion
Färga diagrammet med en eller flera dataserier baserat på cellfärg med VBA-koder
Färga diagrammet med en dataserie baserat på cellfärg
Med följande VBA-kod kan du snabbt ändra färgen på diagrammet som innehåller en dataserie baserat på de ursprungliga cellvärdena, gör så här:
1. Skapa först ett stapel- eller kolumndiagram enligt följande skärmdump (Välj data och klicka Insert > Infoga kolumn eller stapeldiagram):
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: Färgkortsfält med en dataserie baserat på cellfärg:
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
Anmärkningar: I ovanstående kod, Diagram 1 är det diagramnamn som du vill använda, ändra det till ditt eget.
4. När du har klistrat in ovanstående kod, tryck på F5 nyckel för att köra den här koden, och färgen på diagramstaplarna har ändrats baserat på den ursprungliga cellfärgen, se skärmdump:
Färga diagrammet med flera dataserier baserat på cellfärg
Om ditt diagram med flera dataserier, använd följande VBA-kod:
1. Skapa stapeln eller kolumndiagrammet som innehåller flera dataserier enligt följande skärmdump:
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: Färgdiagramfält med flera dataserier baserat på cellfärg:
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. Tryck sedan på F5 nyckel för att köra den här koden, kartstaplarna är fyllda med originalceller färg på en gång, se skärmdump:
Anmärkningar:
1. I ovanstående kod, Diagram 1 är det diagramnamn som du vill använda, ändra det till ditt eget.
2. Denna kod kan också tillämpas på ett linjediagram.
Färga diagrammet med en eller flera dataserier baserat på cellfärg med en fantastisk funktion
Genom att använda ovanstående koder kommer färgerna i diagrammet inte alltid att matchas med cellfärgen, för att lösa detta problem, här introducerar jag ett användbart verktyg - Ändra diagramfärg enligt cellfärg of Kutools för Excel, med den här praktiska funktionen kan du snabbt och enkelt färglägga diagrammet baserat på cellfärgen.
När du har installerat Kutools för Excel, gör så här:
1. Först ska du infoga det diagram som du vill använda och sedan välja diagrammet och klicka sedan på Kutools > Diagram > Diagramverktyg > Ändra diagramfärg enligt cellfärg, se skärmdump:
2. Och sedan visas en snabbruta, klicka OK knapp.
3. Nu har diagrammet du valt färgats baserat på cellfärgerna som visas nedan:
Färga diagrammet med en dataserie baserat på cellfärg
Färga diagrammet med flera dataserier baserat på cellfärg
Ladda ner och testa gratis Kutools för Excel nu!
Fler relativa diagramartiklar:
- Skapa ett stapeldiagram som ligger över ett annat stapeldiagram i Excel
- När vi skapar ett grupperat stapel- eller kolumndiagram med två dataserier kommer de två dataserierna att visas sida vid sida. Men ibland måste vi använda överlägget eller det överlappade stapeldiagrammet för att jämföra de två dataserierna tydligare. I den här artikeln kommer jag att prata om hur man skapar ett överlappt stapeldiagram i Excel.
- Kopiera ett diagramformat till andra i Excel
- Antag att det finns flera olika typer av diagram i ditt kalkylblad, du har formaterat ett diagram efter ditt behov, och nu vill du tillämpa detta diagramformat på andra diagram. Naturligtvis kan du formatera andra manuellt en efter en, men det kommer att slösa mycket tid, finns det några snabba eller praktiska sätt för dig att kopiera ett diagramformat till andra i Excel?
- Markera max- och min datapunkter i ett diagram
- Om du har ett kolumndiagram som du vill markera de högsta eller minsta datapunkterna med olika färger för att överträffa dem enligt följande skärmdump. Hur kunde du identifiera de högsta och minsta värdena och sedan markera datapunkterna i diagrammet snabbt?
- Skapa ett stegdiagram i Excel
- Ett stegdiagram används för att visa de förändringar som inträffat med oregelbundna intervaller, det är en utökad version av ett linjediagram. Men det finns inget direkt sätt att skapa det i Excel. Den här artikeln kommer jag att prata om hur man skapar ett stegschema steg för steg i Excel-kalkylbladet.
- Skapa framstegsdiagram i Excel
- I Excel kan förloppsindikatorn hjälpa dig att övervaka framstegen mot ett mål enligt följande skärmdump. Men hur kan du skapa ett framstegsdiagram i Excel-kalkylbladet?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
