Πώς να κάνω μια Stem & Leaf Οικόπεδο στο Excel 2007

Ένα στέλεχος και την πλοκή των φύλλων ( ονομάζεται επίσης stemplot ) είναι ένας τύπος διάγραμμα που χρησιμοποιείται για να δείξει στατιστικά στοιχεία . Είναι ένας τρόπος διατηρώντας τα επιμέρους σημεία δεδομένων σε ένα διάγραμμα που συχνά εξαφανίζονται με άλλες γραφικές μεθόδους , όπως τα γραφήματα πίτας και ιστογράμματα . Για παράδειγμα , αν σχεδιάσετε τους αριθμούς 10,11,12,13 , και 14 σε ένα γράφημα πίτας , οι αριθμοί τοποθετούνται σε μια κατηγορία και δεν μπορείτε να δείτε τους μεμονωμένους αριθμούς στο γράφημα . Με ένα στέλεχος και φύλλα , μπορείτε να δείτε όλους τους αρχικούς αριθμούς . Οδηγίες
Η 1

Μετονομασία ένα κενό φύλλο εργασίας του Excel "Δεδομένα" , κάνοντας κλικ στην καρτέλα κάτω για το φύλλο εργασίας και πληκτρολογήστε το νέο όνομα . 2

Μετονομασία άλλο κενό φύλλο εργασίας Excel στην βιβλίο «Stem » , κάνοντας κλικ στην καρτέλα κάτω για αυτό το φύλλο εργασίας και πληκτρολογήστε το νέο όνομα .
εικόνων 3

Εισάγετε λίστα με τους αριθμούς της στήλης Α του «Δεδομένα» του φύλλου εργασίας .

4

Πατήστε το πλήκτρο " Alt " και " F11 " την ίδια στιγμή να ανοίξει το Visual Basic Editor .
5

διπλό κλικ στο " Αυτό το βιβλίο εργασίας " στο πλαίσιο του Microsoft Excel αντικείμενα στο αριστερό παράθυρο πλοήγησης για να ανοίξει ένα κενό παράθυρο κώδικα
Η 6

Επικολλήστε τον ακόλουθο κώδικα VBA στο κενό παράθυρο : . Sub StemAndLeaf ( ) DataColumn = 1

« Καθαρίστε τα πάντα έξω από τα worksheet.Worksheets Stem ( «Stem » ) . Cells.Clear

« Κοιτάξτε το worksheet.Worksheets δεδομένων ( « Δεδομένα » ) . Ενεργοποίηση

' Βρείτε τη μέγιστη value.rowPointer = 2DO Μέχρι κύτταρα ( . rowPointer , 1 ) Value = " " rowPointer = rowPointer + 1LoopMaximum = Cells ( rowPointer - . 1 , DataColumn ) Αξία

« Ορίστε ο διαιρέτης να αφαιρεί leaves.divisor = 1Μην Μέχρι μέγιστη /διαιρέτης

«Αν το πρώτο ψηφίο της μεγαλύτερης αξίας είναι μικρότερη από 5 , then'use ένα μικρότερο διαιρέτη . « Διαφορετικά, θα μπορούσατε να καταλήξετε με τέσσερις ή λιγότερες γραμμές στο plot.If Fix ( μέγιστη /διαιρέτης ) <5 Στη συνέχεια, διαιρέτης = διαιρέτης * 10

'Υπολογισμός του πάνω στελέχους της value.topStem = Fix ( μέγιστη /διαιρέτης )

« Ρυθμίστε τις worksheet.Worksheets Stem ( «Stem » ) . ActivateCells ( 1 , 1 ) . Value = " Count " κύτταρα ( 1 , 2 ) . Value = " Stem " Cells ( 1 , 3 ) . Value = " Φύλλα " Για rowPointer = 2 Για topStem + 2Cells ( rowPointer , 2 ) Αξία = rowPointer - 2Cells ( rowPointer , 3 ) Value = . ".