Ako si vyrobiť vretena & Leaf pozemok v programe Excel 2007

stonku a list plot ( tiež volal stemplot ) je druh diagramu slúži na zobrazenie štatistických údajov . Je to spôsob , ako uchovať jednotlivé dátové body v grafe , ktorý často zmizne s inými grafickými metódami , ako sú koláčové grafy a histogramy . Napríklad , ak máte pozemok čísla 10,11,12,13 a 14 v grafe , čísla sú umiestnené do kategórií a nemôžete vidieť jednotlivé čísla na grafe . So stonkou a listom , dostanete sa na všetkých pôvodných čísel . Pokyny dovolená 1

Premenovanie prázdny list Excel " dát " kliknite na záložku spodnej na liste a zadaním nového názvu .
2

Premenovať ďalší prázdny hárok programu Excel v zošit " Stem " kliknutím na záložku spodnej pre tento listu a zadaním nového názvu .
3

Zadajte zoznam čísel v stĺpci a listu " Data " .

4

Stlačte tlačidlo " Alt " a " F11 " súčasne otvorte Editor jazyka Visual Basic .
5

Dvakrát kliknite na " Tento zošit " objekty programu Microsoft Excel v ľavej navigačnej table otvoriť prázdne okno kód
6

vložte nasledujúci kód jazyka VBA do prázdne okno : . Sub StemAndLeaf ( ) DataColumn = 1

" Clean všetko sa z kmeňových worksheet.Worksheets ( " Stem " ) . Cells.Clear

" Pozri sa na dáta worksheet.Worksheets ( " data " ) . Aktivovať

" Nájdite maximálny value.rowPointer = 2DO Do buniek ( . rowPointer , 1 ) Hodnota = " " rowPointer = rowPointer + 1LoopMaximum = Cells ( rowPointer - . 1 , DataColumn ) Hodnota

" Nastaviť deliteľ vyzliecť leaves.divisor = 1do Do Maximálna /deliteľ < ; = 10divisor = deliteľ * 10Loop

" Ak prvá číslica najväčšia hodnota je nižšia ako 5 , then'use menšie deliteľ . " Inak by ste mohli skončiť s štyri alebo menej riadkov v plot.If fix ( Maximálna /deliteľ ) < 5 potom deliteľ = deliteľ * 10

' Spočítajte vrchole stonky je value.topStem = Oprava ( Maximálna /deliteľ )

" Nastaviť stonky worksheet.Worksheets ( " Stem " ) . ActivateCells ( 1 , 1 ) . Value = " Počet " bunky ( 1 , 2 ) . Value = " kmeňové " bunky ( 1 , 3 ) . Value = " Listy " Pre rowPointer = 2 Ak chcete topStem + 2Cells ( rowPointer , 2 ) Hodnota = rowPointer - 2Cells ( rowPointer , 3 ) Hodnota = .. "

• Predchádzajúca strana: Ako exportovať kalendára programu Outlook do programu Excel 
• Ďalšia strana: Ako zmeniť poradie programu Excel Trendline