Jak wykonać wykres trzpienia i liścia w programie Excel 2007

Wykres łodygi i liścia (nazywany również stemplot) jest rodzajem diagramu używanego do wyświetlania danych statystycznych. Jest to sposób na zachowanie poszczególnych punktów danych na diagramie, który często znika za pomocą innych metod graficznych, takich jak wykresy kołowe i histogramy. Na przykład, jeśli narysujesz liczby 10,11,12,13 i 14 na wykresie kołowym, liczby zostaną umieszczone w kategorii i nie możesz zobaczyć poszczególnych liczb na wykresie. Z łodygą i liściem możesz zobaczyć wszystkie oryginalne liczby.

Zmień nazwę pustego arkusza programu Excel „Dane”, klikając dolną kartę arkusza i wpisując nową nazwę.

Zmień nazwę innego pustego arkusza programu Excel w skoroszycie „Pień”, klikając dolną kartę tego arkusza i wpisując nową nazwę.

Wprowadź listę numerów w kolumnie A arkusza „Dane”. p> Naciśnij jednocześnie „Alt” i „F11”, aby otworzyć podstawowy edytor wizualny.

Kliknij dwukrotnie „This Workbook” w obszarze Microsoft Excel Objects w lewym okienku nawigacyjnym, aby otworzyć puste okno kodu.

Wklej następujący kod VBA do pustego okna: Sub StemAndLeaf () dataColumn = 1

'Wyczyść wszystko z arkusza macierzystego. Arkusze robocze („Stem”). Cells.Clear

'Spójrz na arkusz danych. Arkusze robocze („Dane”). Aktywuj

'Znajdź maksymalną wartość. rowPointer = 2 Do Until Cells (rowPointer, 1) .Value = "" rowPointer = rowPointer + 1 Loop Maximum = Komórki (rowPointer - 1, dataColumn) .Value

'Ustaw dzielnik na usuwanie liści. divisor = 1 Do Until Maksymalny /divisor & lt; = 10 divisor = divisor * 10 Loop

'Jeśli pierwsza cyfra największej wartości jest mniejsza niż 5, wtedy użyj mniejszego dzielnika. „W przeciwnym razie możesz skończyć z czterema lub mniej wierszami na wykresie. Jeśli poprawka (maksymalna /dzielnik) & lt; 5 Następnie divisor = divisor * 10

'Oblicz wartość górnej łodygi. topStem = Fix (Maximum /divisor)

'Skonfiguruj arkusz Stem. Arkusze robocze („Stem”). Aktywuj komórki (1, 1) .Value = „Count” Cells (1, 2) .Value = „Stem” Cells (1, 3) .Value = „Leaves” For rowPointer = 2 To topStem + 2 komórki (rowPointer, 2) .Value = rowPointer - 2 komórki (rowPointer, 3) .Value = "| „Next rowPointer

„ Oblicz liczbę ”. Poniższy kod jest wolniejszy niż powinien być”, ale trudniejszy do odczytania i zrozumienia jest szybszy kod. Arkusze („Dane”). Aktywuj rowPointer = 2 Do Until Cells (rowPointer, dataColumn) .Value = "" measurement = Cells (rowPointer, dataColumn) .Value Stem = Fix (pomiar /dzielnik) Arkusze ("Stem"). Komórki (trzon + 2, 1) .Value = Arkusze („Pień”). Komórki (trzpień + 2, 1) .Wartość + 1 wierszPointer = wierszPointer + 1 Pętla

'Oblicz współczynnik kurczenia. Arkusze („Pień”). Aktywuj maximumCount = 0 Dla rowPointer = 2 Do góryStem + 2 Jeśli komórki (rowPointer, 1) .Value & gt; maximumCount Następnie maximumCount = Komórki (rowPointer, 1) .Value Koniec jeśli następny rowPointer

shrinkFactor = Fix (maximumCount /50) Jeśli shrinkFactor & lt; 1 Następnie shrinkFactor = 1 Cells (1, 4) .Value = "Każda cyfra reprezentuje" + Str (shrinkFactor) + "przypadki.

'Wróć do danych i wypełnij liście w świetle wartości w danych Arkusze robocze („Dane”). Aktywuj rowPointer = 2 Do Until Cells ( rowPointer, dataColumn) .Value = "" measurement = Cells (rowPointer, dataColumn) .Value Stem = Fix (pomiar /dzielnik) leaf = pomiar - Stem * divisor leaf = Fix (leaf * 10 /divisor)

Arkusze robocze („Pień”). Komórki (Pień + 2, 3). Wartość = Arkusze („Pień”). Komórki (Pień + 2, 3) .Wartość + Przycinanie (Str (liść)) RowPointer = WierszPointer + ShrinkFactor Pętla

'Pobierz arkusz kalkulacyjny. Arkusze robocze („Stem”). Aktywuj koniec Sub

Naciśnij „F5”, aby uruchomić kod. Twoja fabuła łodygi i liścia pojawi się w arkuszu „Pień”.

Porady

Jeśli zmienisz dane i potrzebujesz wygenerować nowy wykres łodygi i liścia, po prostu ponownie uruchom makro StemAndLeaf.

URL:https://pl.whycomputer.com/oprogramowanie/100316907.html