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

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.

Nodyn: I gymhwyso hyn Newid Lliw Siart Yn ôl Lliw Cell, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd 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 Now!


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?

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os oes gen i fwy o siartiau yn fy nhaflen? a oes gennych god arall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y codau hyn! Dyma'r union beth rydw i wedi bod yn edrych amdano gydag un manylyn ddim yn ffitio'n iawn. Pan redais y cod, roedd y graffiau bar wedi'u lliwio'n gywir ond nid ar y chwedl, arhosodd yr un peth. A oes amrywiad i'r cod a fyddai'n cynnwys y chwedl? Neu a oes ffordd i baru'r Chwedl â'r newidiadau yn y siart heb god?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y codau! Sut fyddech chi'n ychwanegu fformat amodol pan fydd y fformat eisoes wedi'i sefydlu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hwn yn ddechrau gwych, ond nid yw lliwiau'r siart a'r celloedd bob amser yn cyfateb. Unrhyw syniad pam?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf wneud iddo weithio :( a yw hyn i fod i weithio ar siart bar wedi'i bentyrru? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n iawn. Ond... pam na wnewch chi fynd i'r opsiwn "Format Legend Entry" ym mhob cyfres ddata yn y siart, a mynd "Llenwi" a'i wneud y lliw rydych chi ei eisiau. Rwy'n golygu ... mae popeth yn iawn, ond mae cod VBA ar gyfer y dasg syml hon yn orlawn. Ond diolch. Gwerthfawrogi eich bod yn ei rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os oes gen i fwy o siartiau yn fy nhaflen? a oes gennych god arall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Am fwy nag 1 Siart:



Is-gelloedd LliwiauToSiart()'Diweddaruby Extendoffice
Dim xChart Fel Siart
Dim I Cyhyd, J Cyhyd, Y Cyhyd
Dim xRowsOrCols Cyhyd, xCyfrif Mor Hir Dim xRg Fel Ystod, xCell Ag Amrediad
Ar Ail-ddechrau Gwall Nesaf

Ar gyfer Y = 1 I 100Gosod xChart = ActiveSheet.ChartObjects ("Siart"&Y).Chart Os Nad yw xChart yn Ddim Yna Ymadael Is
xSCount = xChart.SeriesCollection.Count
Am I = 1 I xScount
J = 1
Gyda xChart.SeriesCollection(I)
Gosod xRg = ActiveSheet.Range(Hollti(Hollti(.Formula, ",")(2), "!")(1))
Os xScount> 4 Yna
xRowsOrCols = xRg.Columns.Count
arall
xRowsOrCols = xRg.Rows.Count
Gorffennwch Os
Am Bob xCell Mewn 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
Digwyddiadau
Diwedd GydaNesaf
Digwyddiadau
Is-End

Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir