✅ Kaip sukurti ir rodyti diagramą ląstelėje

Turinys

Tai paprasta pamoka, kaip sukurti ir rodyti juostinę diagramą langelyje; technika, kuri labai gerai veikia kuriant valdymo ataskaitas.

Žingsniai:

1. A stulpelyje įveskite vertes, kurias norite rodyti, ty A1 langelyje įveskite reikšmę 10, langelyje A2 20 ir kt.

2. Stulpelyje B1 įveskite šią formulę: = REPT („n“, A1). Ši formulė tiesiog nurodo „Excel“ pakartoti reikšmę, saugomą tarp „“, skaičiumi langelyje A1.

3. Pakeiskite šriftą į „Wingdings“.

4. Žiūrėkite 1 pavyzdį pridėtame „Excel“ faile.

5. Jei norite sumažinti juostinės diagramos ilgį, tiesiog padalykite „A1“ aukščiau pateiktoje formulėje iš 10 arba bet kokiu skaičiumi, kuris yra prasmingiausias. Pavyzdžiui, formulė atrodytų taip = REPT („n“, A1/10). Žr. 2 pavyzdį pridėtame „Excel“ faile.

Reikėtų pažymėti, kad pakeitus „n“ aukščiau paminėtoje formulėje, galite rodyti skirtingus vaizdus. Pavyzdžiui, didžioji raidė „J“ parodys besišypsantį veidą, o didžioji „L“ - liūdną veidą. Žr. 3 pavyzdį pridėtame „Excel“ faile.

Kova su neigiamomis vertybėmis

Aukščiau pateiktos formulės puikiai tinka, kai susiduriate su teigiamomis vertybėmis. Tačiau jei A stulpelio reikšmė yra neigiama, B stulpelio grafikas pasikeis į eilutę, sudarytą iš daugybės skirtingų simbolių ir taip praras norimą efektą (žr. 4 pavyzdį pridedamoje skaičiuoklėje).

Vienas iš būdų įveikti šį apribojimą yra IF pareiškimas, pvz .:

= IF (A21 <0, REPT („n“, ABS (A21/10)), REPT („n“, A21/10))

Aukščiau pateiktos formulės paaiškinimas:

1. Tarkime, kad vertė, kurią bandote parodyti juostinėje diagramoje, yra A21 langelyje. Ši vertė taip pat yra neigiama.

2. Formulė prasideda sakant, jei A21 reikšmė yra mažesnė nei 0, ty neigiama, tada pakartokite „n“ absoliučia verte (ABS), esančia A21 langelyje, ir tada padalykite šį skaičių iš 10. Naudodami absoliučią vertę liepkite „Excel“ ignoruoti neigiamą ženklą ir skaičių laikyti teigiama verte.

3. Kita formulės dalis nurodo „Excel“, ką daryti, jei vertė yra didesnė nei 0.

4. Žiūrėkite 4 pavyzdį pridėtame faile.

Įdomu papildyti tai, kas išdėstyta aukščiau, naudojant sąlyginį formatavimą, norint pakeisti grafiko spalvą, kad neigiamos vertės būtų raudonos, o teigiamos - mėlynos. Tegul jūsų vaizduotė jus veda!

Šioje pamokoje bus aprašyta, kaip sukurti diagramą langelyje, kaip parodyta lentelėje, esančioje stulpelyje „Tendencija“.

Diagrama kuriama naudojant funkciją „CellChart“. Ją įvesite į „Excel“, kaip ir bet kurią kitą standartinę funkciją, t. Y. SUM, VIDUTINĖ arba VLOOKUP ir tt. Ši funkcija vadinama „vartotojo apibrėžta funkcija“ ir nėra standartinė „Microsoft Excel“ funkcija. Jį turi sukurti vartotojas, naudodamas VBA.

Įvedus „Excel“, „CellChart“ funkcija atrodo taip:

Atidžiau pažvelgus į „CellChart“ funkciją, diagramos diapazonas yra apibrėžtas pirmoje funkcijos dalyje, C3: F3 aukščiau pateiktame pavyzdyje. Toliau apibrėžta diagramos spalva, 203 naudojant aukščiau pateiktą pavyzdį.

Dabar apie VBA dalykus

1. Įeikite į VBA projekto langą dešiniuoju pelės klavišu spustelėdami lapo pavadinimą ir pasirinkę „View Code“ arba pasirinkę „ALT, F11“.

2. Dešinėje pusėje dešiniuoju pelės mygtuku spustelėkite savo projekto pavadinimą ir pasirinkite įdėtą „modulį“.

3. Nukopijuokite ir įklijuokite šį kodą į ką tik sukurtą naują modulį:

„Sukuria naują funkciją, vadinamą ląstelių diagramos funkcija„ CellChart “(brėžiniai kaip diapazonas, spalva kaip ilgai) kaip eilutė“ Apibrėžia kintamuosius, kurie bus vėliau naudojami kode Const cMargin = 2 Dim rng As Range, arr () Kaip variantas, i Kaip ilgai, j kaip ilgas, k kaip ilgas dim dblMin kaip dvigubas, dblMax kaip dvigubas, shp kaip forma 'Toliau apskaičiuojami diagramoje naudojami brėžiniai Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Jei j = 0 Tada j = i ElseIf Sklypai (, j)> Sklypai (, i) Tada j = i Pabaiga Jei Jei k = 0 Tada k = i ElseIf Sklypai (, k) 
 0 Tada .Line.ForeColor.RGB = Spalva El. Dim rng as Range, shp As Shape, blnDelete As Boolean for each shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Jei ne rng nieko nėra, jei rng .Address = Diapazonas (shp.TopLeftCell, shp.BottomRightCell). Adresas Tada blnDelete = Tikra pabaiga Jei If blnDelete Tada shp. Ištrinti kitą pabaigą

4. Spustelėkite išsaugojimo mygtuką.

5. Spustelėkite mažą „Excel“ piktogramą viršutiniame dešiniajame meniu „Failas“, kad išeitumėte iš VBA projekto lango ir grįžtumėte į „Excel“