Ruvara rwechati kubva kumaseru ane data rayo

Kugadziriswa kwedambudziko

Ndinoda makoramu ari pahistogram (kana zvimedu pane chati yepai, zvichingodaro) kuti aite otomatiki ruvara rwakashandiswa kuzadza maseru anowirirana nedata rekubva:

Kutarisira kushamisika uye kutsamwa kuchema kwevamwe shamwari, zvinofanirwa kucherechedzwa kuti, hongu, ruvara rwekuzadza mudhayagiramu rinogonawo kushandurwa nemaoko (tinya-kurudyi pane iyo column - Point/series format (Format data point/series) nezvimwewo - hapana anopokana. Asi mukuita, kune akawanda mamiriro ezvinhu kana zviri nyore uye zviri nyore kuita izvi zvakananga mumaseru ane data, uye ipapo chati inofanira kudhindwa zvakare otomatiki. Edza, semuenzaniso, kuseta kuzadza nedunhu kumakoramu ari muchati ino:

Ndinofunga unowana zano, handiti?

mhinduro

Hapana chimwe kunze kwe macro chinogona kuita izvi. Naizvozvo, tinovhura Visual Basic mupepeti kubva kune tab yokuvaka (Mugadziri - Visual Basic Edhita) kana kudzvanya nzira yekudimbudzira kiibhodhi Alt + F11, isa nyowani isina chinhu module kuburikidza nemenyu Pinza – Module uye tevedzera mameseji eiyo macro ipapo, iyo ichaita basa rese:

Sub SetChartColorsFromDataCells() Kana TypeName(Sarudzo) <> "ChartArea" Ipapo MsgBox "Сначала выделите диаграмму!" Buda Sub End Kana Set c = ActiveChart For j = 1 Ku c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ",") Set r = Range(m(2)) For i = 1 Ku r.Masero.Count c.SeriesCollection(j).Points(i).Format.Zadza.ForeColor.RGB = _ r.Masero(i).Interior.Color Next i Next j End Sub  

Iwe unogona ikozvino kuvhara Visual Basic uye kudzokera kuExcel. Kushandisa iyo yakagadzirwa macro iri nyore kwazvo. Sarudza chati (nzvimbo yechati, kwete nzvimbo yekuronga, grid kana makoramu!):

uye mhanyisa macro yedu nebhatani macro Tab yokuvaka (Mugadziri - Macros) kana nechidimburiko chekhibhodi Alt + F8. Muhwindo rimwe chete, kana uchiwanzo shandiswa, unogona kugovera kiibhodhi nzira yekudimbudzira kune macro uchishandisa bhatani Parameters (Sarudzo).

PS

Iyo chete nhunzi mune yekuzora kusagoneka kwekushandisa yakafanana basa kune zviitiko apo ruvara rwunopihwa kune maseru eiyo sosi data uchishandisa inomisikidzwa yekufometa mitemo. Nehurombo, Visual Basic haina mudziyo wakavakirwa-mukati wekuverenga aya mavara. Kune, hongu, mamwe "madondoro", asi haashande kune ese kesi uye kwete mune ese mavhezheni.

  • Chii macros, maitiro ekuashandisa, kupi kwekuisa macro kodhi muVisual Basic
  • Conditional Formatting muExcel 2007-2013
  • Chii Chitsva mumaChati muExcel 2013

Leave a Reply