Datornätverk
Datornätverk
En stam- och bladplot (även kallad en stamplot) är en typ av diagram som används för att visa statistiska data. Det är ett sätt att behålla de enskilda datapunkterna i ett diagram som ofta försvinner med andra grafiska metoder som cirkeldiagram och histogram. Till exempel, om du plottar siffrorna 10, 11, 12, 13, och 14 i ett cirkeldiagram, siffrorna placeras i en kategori och du kan inte se de enskilda siffrorna på diagrammet. Med en stjälk och blad, du får se alla originalnumren.
Byt namn på ett tomt Excel -kalkylblad "Data" genom att klicka på den nedre fliken för kalkylbladet och skriva det nya namnet.
Byt namn på ett annat tomt Excel -kalkylblad i arbetsboken ”Stam” genom att klicka på den nedre fliken för det kalkylbladet och skriva det nya namnet.
Ange din lista med siffror i kolumn A i kalkylbladet "Data".
Tryck på "Alt" och "F11" samtidigt för att öppna den visuella grundläggande redigeraren.
Dubbelklicka på "Den här arbetsboken" under Microsoft Excel -objekt i det vänstra navigeringsfönstret för att öppna ett tomt kodfönster.
Klistra in följande VBA -kod i det tomma fönstret:Sub StemAndLeaf () dataColumn =1
'Rensa allt från Stem -kalkylbladet. Arbetsblad ("Stam"). Cells.Clear
'Se på kalkylbladet Data. Arbetsblad ("Data"). Aktivera
'Hitta det maximala värdet. rowPointer =2 Do Through Cells (rowPointer, 1) .Value ="" rowPointer =rowPointer + 1 loop max =Celler (rowPointer - 1, dataColumn) .Värde
'Ställ avdelaren för att ta bort löv. divisor =1 Gör tills maximalt / divisor <=10 divisor =divisor * 10 Loop
'Om den första siffran av det största värdet är mindre än 5, använd sedan en mindre delare. 'Annars kan du hamna med fyra eller färre rader i tomten. Om Fix (Maximum / divisor) <5 Sedan divisor =divisor * 10
'Beräkna toppstamens värde. topStem =Fix (Maximum / divisor)
'Ställ in Stem -kalkylbladet. Arbetsblad ("Stam"). Aktivera celler (1, 1) .Value ="Count" -celler (1, 2) .Value ="Stam" -celler (1, 3) .Value ="Leaves" För rowPointer =2 To topStem + 2 Cells (rowPointer, 2) .Value =rowPointer - 2 celler (rowPointer, 3) .Value ="|" Nästa radPekare
'Beräkna räkningarna. 'Följande kod är långsammare än den behöver vara, 'men en snabbare kod skulle vara svårare att läsa och förstå. Arbetsblad ("Data"). Aktivera rowPointer =2 gör tills celler (rowPointer, dataColumn) .Value ="" mätning =Celler (rowPointer, dataColumn) .Value Stem =Fix (mätning / divisor) Arbetsblad ("Stam"). Celler (Stam + 2, 1) .Value =Worksheets ("Stem"). Celler (Stem + 2, 1) .Värde + 1 rowPointer =rowPointer + 1 loop
'Beräkna krympfaktorn. Arbetsblad ("Stam"). Aktivera maximumCount =0 För rowPointer =2 To topStem + 2 If Cells (rowPointer, 1) .Value> maximumCount Then maximumCount =Cells (rowPointer, 1) .Värde Slut Om Nästa radPointer
shrinkFactor =Fix (maximumCount / 50) If shrinkFactor <1 Sedan shrinkFactor =1 Celler (1, 4) .Value ="Varje siffra representerar" + Str (shrinkFactor) + "fall".
'Återgå till data, och fyll bladen mot bakgrund av värdena i data. Arbetsblad ("Data"). Aktivera rowPointer =2 gör tills celler (rowPointer, dataColumn) .Value ="" mätning =Celler (rowPointer, dataColumn) .Värde Stam =Fix (mätning / avdelare) blad =mätning - Stam * avdelarblad =Fix (blad * 10 / delare)
Arbetsblad ("stam"). Celler (stam + 2, 3) .Value =Worksheets ("Stem"). Celler (Stem + 2, 3) .Value + Trim (Str (leaf)) rowPointer =rowPointer + shrinkFactor Loop
'Gå till Stem -kalkylbladet. Arbetsblad ("Stam"). Aktivera Slut Sub
Tryck på "F5" för att köra koden. Din stam- och bladplot kommer att visas i kalkylbladet "Stam".
Om du ändrar dina data och behöver skapa en ny stam- och bladplot, helt enkelt köra StemAndLeaf -makrot igen.
Med Microsoft Office 2007, Att använda ett Excel-kalkylblad för anpassade företagsfakturor kan vara den mest kostnadseffektiva lösningen för att hjälpa till med hanteringen av ditt lilla företag. Online mallar från Microsoft Office webbplats integreras direkt i Excel för enkel åtkomst. Du kan bläddr
Microsoft Excel ger dig alternativ för alla typer av databaser, från budgetar till e -postlistor till undersökningsresultat. Att känna till några tangentbordstrick kan göra att arbetet du gör i Excel går snabbare och ser mer professionellt ut. Gradsymbolen (°) kan vara svår att hitta, men en praktis
Skolan för produktivitetsmätning och planering, känd som Six Sigma, syftar till att bearbeta projektdata till en kvantifierbar kvalitetsnivå baserat på vissa faktorer. Beräkningarna som används i Six Sigma -analys vägs starkt mot en studie av defektfrekvens i en viss produkt eller tjänst. Microsoft