yksinkertainen XY Quad Chart käyttäen akselit Quadrant rajoja

tämä artikkeli näyttää, kuinka helppoa on luoda scatter kaavio sen juoni alue jaettu vaaka-ja pystysuunnassa neljään alueeseen. Alueet erotetaan karttaakseleilla, ja nämä akselit voidaan sijoittaa tarpeen mukaan kvadranttien rajaamiseksi.

olen kirjoittanut opetusohjelman, jossa näytetään, miten luodaan Excel-kaavio värillisellä Kvadranttitaustalla, joka oli monimutkaisempi, koska siinä käytettiin pinottuja alueita ja toissijaisia akseleita värillisen taustan saamiseksi. Tämä on paljon yksinkertaisempi luoda ja ylläpitää, ja palvelee paljon samaa tarkoitusta.

tässä on otoksen X-ja Y-tiedot laskettuine keskiarvoineen sekä alkuperäinen XY-hajontakaavio. Sijoitamme akselit X-ja Y-tietojen vastaaviin keskiarvoihin, vaikka voit sijoittaa ne sinne, missä analyysissasi on järkeä.

tämän kaavion akselit on sijoitettava uudelleen. Kaksoisnapsauta vaaka-akselia tai valitse vaaka-akseli ja paina Ctrl+1 (numero yksi) avataksesi Format Axis-tehtäväruudun (esitetty tässä, Excel 2013) tai Format Axis-valintaikkunan (toimii pitkälti samalla tavalla aiemmissa Excel-versioissa). Valitse kohdassa Akseliasetukset >pystyakselin ristit akselin arvo-asetus ja syötä X-keskiarvo ruutuun, kuten on esitetty.

tulos näkyy alla vasemmalla. Toista pystyakselille, alapuolella oikealle.

nuo akselimerkinnät ovat täysin tiellä, mutta niitä on helppo liikuttaa. Muotoile jokainen akseli (avaa tehtäväruutu tai-ikkuna kuten yllä) ja valitse alasvetovalikosta alaotsikoiden > alaotsikon sijainti.

Now those labels are at the edge of the chart, where they do more good than harm (alla vasemmalla). Voit tehdä pienen määrän muotoilua, jotta kvadrantit erottuvat hieman selkeämmin. Alla olevassa kaaviossa olen käyttänyt vaaleampaa harmaan sävyä ruutuviivoille ja tummempaa väriä, itse asiassa samaa väriä kuin tussit, axis line-värille.

akselien ja akselien asetteluun on helppo käyttää VBA: ta käyttäen yksinkertaista rutiinia, kuten alla on esitetty. Tämä rutiini sijoittaa etiketit ja käyttää sitten laskentataulukossa laskettuja keskiarvoja akselin linjojen sijoittamiseen.

Sub AxesAsQuadBoundaries1() With ActiveChart With .Axes(xlCategory) .TickLabelPosition = xlTickLabelPositionLow .CrossesAt = ActiveSheet.Range("A17").Value2 End With With .Axes(xlValue) .TickLabelPosition = xlTickLabelPositionLow .CrossesAt = ActiveSheet.Range("B17").Value2 End With End WithEnd Sub

seuraava rutiini ohittaa laskentataulukot ja ottaa sen sijaan kaavioon merkittyjen X-ja Y-arvojen keskiarvot akselin viivojen asemoimiseksi.

Sub AxesAsQuadBoundaries2() Dim vData As Variant With ActiveChart vData = .SeriesCollection(1).XValues With .Axes(xlCategory) .TickLabelPosition = xlTickLabelPositionLow .CrossesAt = WorksheetFunction.Average(vData) End With vData = .SeriesCollection(1).Values With .Axes(xlValue) .TickLabelPosition = xlTickLabelPositionLow .CrossesAt = WorksheetFunction.Average(vData) End With End WithEnd Sub

voit jopa käyttää laskentataulukon tapahtumia kaavion akselien uudelleen sijoittamiseen. Minun X-ja Y-arvoni laskettiin käyttämällä =RANDBETWEEN(2,14), joten aina kun laskentataulukko laskee (esimerkiksi painamalla funktion F9 näppäintä), arvot muuttuvat. Voin hyödyntää tätä laskentatapahtumaa seuraavasti.

• Napsauta laskentataulukko-välilehteä hiiren kakkospainikkeella ja valitse Näytä koodi ponnahdusvalikosta. VB-editori avautuu laskentataulukkoa vastaavalla koodimoduulilla.
• valitse laskentataulukko uuden koodimoduulin yläosassa olevasta vasemman käden pudotusvalikosta.
• valitse Laske oikean käden pudotusvalikosta.
• anna koodi kuten kuvassa.

Here is the code so you don ’ t need to type it all yourself. Kopioi ja liitä laskentataulukon koodimoduuliin.

Private Sub Worksheet_Calculate() Dim vData As Variant With Me.ChartObjects(1).Chart vData = .SeriesCollection(1).XValues With .Axes(xlCategory) .TickLabelPosition = xlTickLabelPositionLow .CrossesAt = WorksheetFunction.Average(vData) End With vData = .SeriesCollection(1).Values With .Axes(xlValue) .TickLabelPosition = xlTickLabelPositionLow .CrossesAt = WorksheetFunction.Average(vData) End With End WithEnd Sub

riippuen laskentataulukon mallista, voit käyttää Worksheet_Calculate, Worksheet_Change, Worksheet_PivotTableUpdate, tai muita tapahtumatapoja kaavion päivittämiseksi.