✅ Kuidas luua ja kuvada lahtris diagrammi

Lang L: none (table-of-contents)

See on lihtne õpetus, kuidas luua ja kuvada tulpdiagrammi lahtris; tehnika, mis töötab väga hästi juhtimisaruannete loomisel.

Sammud:

1. Sisestage veergu A väärtused, mida soovite kuvada, st lahtrisse A1 sisestage väärtus 10, lahtrisse A2 20 jne.

2. Sisestage veergu B1 järgmine valem: = REPT (“n”, A1). See valem käsib Excelil lihtsalt korrata väärtust, mis on salvestatud lahtrisse A1 jääva arvu vahel.

3. Muutke font “Wingdings”.

4. Palun vaadake lisatud Exceli faili näidet 1.

5. Kui soovite tulpdiagrammi pikkust vähendada, jagage ülaltoodud valemis olev A1 lihtsalt 10 -ga või mis tahes kõige mõistlikuma numbriga. Näiteks valem näeks välja selline = REPT (“n”, A1/10). Vaadake lisatud Exceli faili näidet 2.

Tuleb märkida, et ülaltoodud valemis n -i muutes saate kuvada erinevaid pilte. Näiteks suurtäht “J” kuvab naeratava näo, suur täht “L” aga kurva näo. Vaadake lisatud Exceli faili näidet 3.

Negatiivsete väärtustega tegelemine

Ülaltoodud valemid toimivad hästi, kui tegelete positiivsete väärtustega. Kui aga veeru A väärtus on negatiivne, muutub veeru B graafik stringiks, mis koosneb mitmest erinevast sümbolist, kaotades sellega soovitud efekti (vt näidet 4 lisatud arvutustabelist).

Üks viis selle piirangu ületamiseks on IF -avaldus, näiteks:

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

Ülaltoodud valemi selgitus:

1. Oletame, et väärtus, mida proovite tulpdiagrammil näidata, asub lahtris A21. See väärtus on ka negatiivne.

2. Valem algab sellega, et kui A21 väärtus on väiksem kui 0, st negatiivne, siis korrake „n” lahtris A21 sisalduva absoluutväärtusega (ABS) ja jagage see arv 10 -ga. Kasutades absoluutväärtust öelge Excelile, et see ignoreeriks negatiivset märki ja käsitleks numbrit positiivse väärtusena.

3. Valemi järgmine osa ütleb Excelile, mida teha, kui väärtus on suurem kui 0.

4. Palun vaadake lisatud faili näidet 4.

Huvitav täiendus ülaltoodule oleks tingimusvormingu kasutamine graafiku värvi muutmiseks, et öelda negatiivsete väärtuste puhul punane ja positiivsete väärtuste puhul sinine. Las teie kujutlusvõime juhib teid!

Järgmine õpetus kirjeldab, kuidas luua diagrammi lahtrisse, nagu on näidatud ülaltoodud tabeli veerus „Trend”.

Diagramm luuakse funktsiooni „CellChart” abil. Sisestaksite selle Excelisse nagu iga teine standardfunktsioon, nt SUM, KESKMINE või VLOOKUP jne. Seda funktsiooni nimetatakse „kasutaja määratud funktsiooniks” ja see ei ole Microsoft Excelis saadaval olev standardfunktsioon. Selle peab looma kasutaja VBA abil.

Exceli sisestamisel näeb CellChart funktsioon välja selline:

Funktsiooni CellChart lähemalt uurides on diagrammi vahemik määratletud funktsiooni esimeses osas, ülaltoodud näites C3: F3. Järgmisena määratletakse diagrammi värv, 203 kasutades ülaltoodud näidet.

Nüüd aga VBA asjadest

1. Sisestage VBA projekti aken, paremklõpsates lehe nime ja valides „Vaata koodi” või valides „ALT, F11”.

2. Paremal paremklõpsake oma projekti nimel ja valige sisestatud moodul.

3. Kopeerige ja kleepige järgmine kood äsja loodud moodulisse:

'Loob uue funktsiooni nimega Cell Chart Function CellChart (joonistab vahemikuna, värv nii kaua) stringina' Määrab muutujad, mida kasutatakse hiljem koodis Const cMargin = 2 Dim rng As Range, arr () Variant, i Nii kaua, j nii kaua, k kui kaua tuhm dblMin kui kahekordne, dblMax kui kahekordne, shp kui kuju 'Järgnevalt arvutatakse diagrammi jaoks kasutatavad joonised Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Kui j = 0 Siis j = i ElseIf Plots (, j)> Krundid (, i) Siis j = i End If If k = 0 then k = i ElseIf Plots (, k) 
 0 Siis .Line.ForeColor.RGB = Muu värv .Line.ForeColor.SchemeColor = -Värv Lõpp lõpuga koos CellChart = "" Lõppfunktsiooni alamkujuDelete (rngSelect As Range) 'Määrab muutujad, mida koodis hiljem kasutatakse Dim rng As Range, shp As Shape, blnDelete Boolean Iga shp jaoks rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Kui ei ole rng pole midagi siis kui rng .Address = Vahemik (shp.TopLeftCell, shp.BottomRightCell) .Aadress Siis blnDelete = Tõeline lõpp If Kui blnDelete Siis shp. Kustuta Järgmine lõpp Alam

4. Klõpsake nuppu Salvesta.

5. VBA projekti aknast väljumiseks ja Excelisse naasmiseks klõpsake menüü „Fail” all paremas ülanurgas väikest Exceli ikooni