Sut i liwio siart yn seiliedig ar liw celloedd yn Excel?
Fel rheol, pan fyddwch chi'n creu siart, lliw bar y golofn yw'r rhagosodiad. Os oes angen i chi fformatio lliw wedi'i lenwi ar bob bar yn seiliedig ar y lliwiau celloedd fel y dangosir y llun a ddangosir, sut allech chi ei ddatrys yn Excel?
Lliwiwch y siart gydag un neu fwy o gyfresi data yn seiliedig ar liw celloedd gyda chodau VBA
Lliwiwch y siart gydag un neu fwy o gyfresi data yn seiliedig ar liw celloedd gyda nodwedd anhygoel
Lliwiwch y siart gydag un neu fwy o gyfresi data yn seiliedig ar liw celloedd gyda chodau VBA
Lliwiwch y siart gydag un gyfres ddata yn seiliedig ar liw celloedd
Gyda'r cod VBA canlynol, gallwch newid lliw'r siart yn gyflym sy'n cynnwys un gyfres ddata yn seiliedig ar y lliw gwerthoedd celloedd gwreiddiol, gwnewch fel hyn:
1. Yn gyntaf, crëwch far neu siart colofn fel a ganlyn y llun a ddangosir (Dewiswch ddata a chlicio Mewnosod > Mewnosod Colofn neu Siart Bar):
2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Bariau siart lliw gydag un gyfres ddata yn seiliedig ar liw celloedd:
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
Nodyn: Yn y cod uchod, Siart 1 yw'r enw siart rydych chi am ei ddefnyddio, newidiwch ef i'ch un chi.
4. Ar ôl pasio'r cod uchod, pwyswch F5 allwedd i redeg y cod hwn, ac mae lliw y bariau siart wedi'u newid yn seiliedig ar liw gwreiddiol y gell, gweler y screenshot:
Lliwiwch y siart gyda sawl cyfres ddata yn seiliedig ar liw celloedd
Os yw'ch siart gyda sawl cyfres ddata, cymhwyswch y cod VBA canlynol:
1. Crëwch y siart bar neu golofn sy'n cynnwys cyfresi data lluosog fel y dangosir y llun canlynol:
2. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn ffenestr y Modiwl.
Cod VBA: Bariau siart lliw gyda sawl cyfres ddata yn seiliedig ar liw celloedd:
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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, mae'r bariau siart wedi'u llenwi â lliw celloedd gwreiddiol ar unwaith, gweler y screenshot:
Nodiadau:
1. Yn y cod uchod, Siart 1 yw'r enw siart rydych chi am ei ddefnyddio, newidiwch ef i'ch un chi.
2. Gellir cymhwyso'r cod hwn hefyd i siart llinell.
Lliwiwch y siart gydag un neu fwy o gyfresi data yn seiliedig ar liw celloedd gyda nodwedd anhygoel
Trwy ddefnyddio'r codau uchod, ni fydd lliwiau'r siart bob amser yn cael eu paru â lliw'r gell, i ddatrys y broblem hon, yma, byddaf yn cyflwyno teclyn defnyddiol - Newid Lliw Siart Yn ôl Lliw Cell of Kutools ar gyfer Excel, gyda'r nodwedd ddefnyddiol hon, gallwch liwio'r siart yn seiliedig ar liw'r gell yn gyflym ac yn hawdd.
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:
1. Yn gyntaf, mewnosodwch y siart rydych chi am ei defnyddio, ac yna dewiswch y siart, yna cliciwch Kutools > Siartiau > Offer Siart > Newid Lliw Siart Yn ôl Lliw Cell, gweler y screenshot:
2. Ac yna, mae blwch prydlon yn cael ei popio allan, cliciwch OK botwm.
3. Nawr, mae'r siart a ddewisoch wedi'i lliwio yn seiliedig ar y lliwiau celloedd fel y dangosir isod y sgrinluniau:
Lliwiwch y siart gydag un gyfres ddata yn seiliedig ar liw celloedd
Lliwiwch y siart gyda sawl cyfres ddata yn seiliedig ar liw celloedd
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Erthyglau siart mwy cymharol:
- Creu Siart Bar Yn Gorchuddio Siart Bar arall Yn Excel
- Pan fyddwn yn creu bar clystyredig neu siart colofn gyda dwy gyfres ddata, bydd y ddau far cyfres data yn cael eu dangos ochr yn ochr. Ond, weithiau, mae angen i ni ddefnyddio'r tros-bar neu'r siart bar sy'n gorgyffwrdd i gymharu'r ddwy gyfres ddata yn gliriach. Yn yr erthygl hon, byddaf yn siarad am sut i greu siart bar sy'n gorgyffwrdd yn Excel.
- Copïwch Fformat Un Siart I Eraill Yn Excel
- Gan dybio bod sawl math gwahanol o siartiau yn eich taflen waith, rydych chi wedi fformatio un siart i'ch angen, a nawr rydych chi am gymhwyso'r fformatio siart hwn i siartiau eraill. Wrth gwrs, gallwch fformatio eraill â llaw fesul un, ond bydd hyn yn gwastraffu llawer o amser, a oes unrhyw ffyrdd cyflym neu ddefnyddiol i chi gopïo un fformat siart i eraill yn Excel?
- Tynnu sylw at Bwyntiau Data Max a Min Mewn Siart
- Os oes gennych siart colofn yr ydych am dynnu sylw at y pwyntiau data uchaf neu leiaf gyda gwahanol liwiau i'w rhagori fel y dangosir y llun a ganlyn. Sut allech chi nodi'r gwerthoedd uchaf a lleiaf ac yna tynnu sylw at y pwyntiau data yn y siart yn gyflym?
- Creu Siart Cam Yn Excel
- Defnyddir siart cam i ddangos bod y newidiadau wedi digwydd ar gyfnodau afreolaidd, mae'n fersiwn estynedig o siart llinell. Ond, nid oes unrhyw ffordd uniongyrchol i'w greu yn Excel. Yr erthygl hon, byddaf yn siarad am sut i greu siart cam gam wrth gam yn nhaflen waith Excel.
- Creu Siart Bar Cynnydd Yn Excel
- Yn Excel, gall siart bar cynnydd eich helpu chi i fonitro cynnydd tuag at darged fel y dangosir y llun a ddangosir. Ond, sut allech chi greu siart bar cynnydd yn nhaflen waith Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!