Efnisyfirlit
Mótun vandans
Ég vil að dálkarnir á súluritinu (eða sneiðar á kökuritinu osfrv.) hafi sjálfkrafa litinn sem var notaður til að fylla samsvarandi frumur með upprunagögnum:
Með því að búast við undrandi og reiðilegum upphrópum einstakra félaga, skal tekið fram að auðvitað er einnig hægt að breyta lit fyllingarinnar í skýringarmyndinni handvirkt (hægrismelltu á dálkinn - Punkt/röð snið (Sníða gagnapunkt/röð) o.s.frv. – enginn heldur því fram. En í reynd eru margar aðstæður þar sem það er auðveldara og þægilegra að gera þetta beint í reitunum með gögnum og þá ætti grafið þá að vera endurmálað sjálfkrafa. Reyndu til dæmis að stilla fyllingu eftir svæði fyrir dálkana í þessu grafi:
Ég held að þú skiljir hugmyndina, ekki satt?
lausn
Ekkert nema macro getur gert þetta. Þess vegna opnum við Visual Basic ritstjóri af flipanum verktaki (Hönnuður - Visual Basic ritstjóri) eða ýttu á flýtilykla Alt + F11, settu nýja tóma einingu í gegnum valmyndina Settu inn - Eining og afritaðu texta slíkrar fjölvi þar, sem mun gera alla vinnu:
Sub SetChartColorsFromDataCells() If TypeName(Selection) <> "ChartArea" Then MsgBox "Сначала выделите диаграмму!" Exit Sub End If Set c = ActiveChart Fyrir j = 1 Til c.SeriesCollection.Count f = c.SeriesCollection(j).Formúla m = Split(f, ",") Setja r = Range(m(2)) Fyrir i = 1 Til r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j End Sub
Þú getur nú lokað Visual Basic og farið aftur í Excel. Það er mjög einfalt að nota makróið sem búið er til. Veldu töfluna (kortasvæði, ekki lóðarsvæði, hnitanet eða dálka!):
og keyrðu macro okkar með hnappinum Fjölvi flipi verktaki (Hönnuður - Fjölvi) eða með flýtilykla Alt + F8. Í sama glugga, ef um er að ræða tíða notkun, geturðu tengt flýtilykla á fjölva með því að nota hnappinn breytur (Valkostir).
PS
Eina flugan í smyrslinu er ómögulegt að nota svipaða aðgerð fyrir tilvik þar sem liturinn er úthlutað frumum upprunagagnanna með því að nota skilyrtar sniðreglur. Því miður er Visual Basic ekki með innbyggt tól til að lesa þessa liti. Það eru auðvitað ákveðnar „hækjur“ en þær virka ekki í öllum tilvikum og ekki í öllum útgáfum.
- Hvað eru fjölvi, hvernig á að nota þau, hvar á að setja inn fjölvakóða í Visual Basic
- Skilyrt snið í Excel 2007-2013
- Hvað er nýtt í myndritum í Excel 2013