Awọ aworan apẹrẹ lati awọn sẹẹli pẹlu data rẹ

Ilana ti iṣoro naa

Emi yoo fẹ awọn ọwọn lori histogram (tabi awọn ege lori aworan apẹrẹ, ati bẹbẹ lọ) lati ni awọ laifọwọyi ti a lo lati kun awọn sẹẹli ti o baamu pẹlu data orisun:

Ni ifojusọna iyanilẹnu ati igbe ibinu ti awọn ẹlẹgbẹ kọọkan, o yẹ ki o ṣe akiyesi pe, nitorinaa, awọ ti kun ninu aworan atọka le tun yipada pẹlu ọwọ (tẹ-ọtun lori iwe - Point / jara kika (Fọka aaye data/jara) ati be be lo – ko si ọkan jiyan. Ṣugbọn ni iṣe, ọpọlọpọ awọn ipo lo wa nigbati o rọrun ati irọrun diẹ sii lati ṣe eyi taara ninu awọn sẹẹli pẹlu data, ati lẹhinna chart yẹ ki o tun kun laifọwọyi. Gbiyanju, fun apẹẹrẹ, lati ṣeto kikun nipasẹ agbegbe fun awọn ọwọn ninu chart yii:

Mo ro pe o gba ero naa, otun?

ojutu

Nkankan bikoṣe Makiro le ṣe eyi. Nitorina, a ṣii Visual Ipilẹ olootu lati taabu developer (Olùgbéejáde - Olootu Ipilẹ wiwo) tabi tẹ ọna abuja keyboard F11 giga +, fi titun kan sofo module nipasẹ awọn akojọ Fi sii - Module ati daakọ ọrọ iru macro kan nibẹ, eyiti yoo ṣe gbogbo iṣẹ naa:

Sub SetChartColorsFromDataCells() If TypeName(Aṣayan) <> "ChartArea" Lẹhinna MsgBox "Сначала выделите диаграмму!" Jade Iha Ipari Ti o ba Ṣeto c = ActiveChart Fun j = 1 Lati c.SeriesCollection.Count f = c.SeriesCollection(j) .Formula m = Pipin (f, ",") Ṣeto r = Ibiti (m (2)) Fun i = 1 To r.Cells.Count c.SeriesCollection (j) .Points (i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j Ipari Sub.

O le bayi pa Visual Basic ki o pada si Excel. Lilo Makiro ti o ṣẹda jẹ rọrun pupọ. Yan aworan apẹrẹ (agbegbe aworan, kii ṣe agbegbe idite, akoj tabi awọn ọwọn!):

ati ṣiṣe Makiro wa pẹlu bọtini Makiro taabu developer (Olùgbéejáde - Macros) tabi pẹlu ọna abuja keyboard F8 giga +. Ni window kanna, ni ọran ti lilo loorekoore, o le fi ọna abuja keyboard si Makiro nipa lilo bọtini naa sile (Aṣayan).

PS

Fò nikan ni ikunra ni ailagbara ti lilo iṣẹ ti o jọra fun awọn ọran nibiti a ti fi awọ si awọn sẹẹli ti data orisun nipa lilo awọn ofin ọna kika ipo. Laanu, Visual Basic ko ni ohun elo ti a ṣe sinu fun kika awọn awọ wọnyi. Nibẹ ni o wa, dajudaju, awọn "crutches", sugbon ti won ko sise fun gbogbo igba ati ki o ko ni gbogbo awọn ẹya.

  • Kini macros, bii o ṣe le lo wọn, nibo ni lati fi koodu macro sii ni Ipilẹ wiwo
  • Ni àídájú kika ni tayo 2007-2013
  • Kini Tuntun ni Awọn aworan apẹrẹ ni Excel 2013

Fi a Reply