Cara Membuat Plot Batang & Daun di Excel 2007

Plot batang dan daun (juga disebut stemplot) adalah jenis diagram yang digunakan untuk menampilkan data statistik. Ini adalah cara mempertahankan titik data individual dalam diagram yang sering hilang dengan metode grafis lainnya seperti diagram lingkaran dan histogram. Misalnya, jika Anda memplot angka 10,11,12,13, dan 14 dalam diagram lingkaran, angka-angka tersebut ditempatkan ke dalam kategori dan Anda tidak dapat melihat nomor individu pada grafik tersebut. Dengan batang dan daun, Anda bisa melihat semua angka aslinya.

Ganti nama lembar kerja Excel yang kosong “Data” dengan mengklik tab bawah untuk lembar kerja dan mengetikkan nama yang baru.

Ganti nama lembar kerja Excel lain yang kosong di buku kerja "Stem" dengan mengklik tab bawah untuk lembar kerja itu dan ketikkan nama baru.

Masukkan daftar angka Anda di kolom A dari lembar kerja "Data".
< " secara bersamaan untuk membuka editor visual basic.

Klik dua kali "Buku Kerja Ini" di bawah Microsoft Excel Objects di panel navigasi kiri untuk membuka jendela kode kosong.

Tempelkan kode VBA berikut ke jendela kosong: Sub StemAndLeaf () dataColumn \u003d 1

'Bersihkan semuanya dari lembar kerja Stem. Lembar kerja ("Batang"). Cells.Clear

'Lihat lembar kerja Data. Lembar kerja ("Data"). Aktifkan

'Temukan nilai maksimum. rowPointer \u003d 2 Lakukan Hingga Sel (rowPointer, 1) .Value \u003d "" rowPointer \u003d rowPointer + 1 Loop Maksimum \u003d Sel (rowPointer - 1, dataColumn) .Value

'Atur pembagi untuk menghapus daun. pembagi \u003d 1 Lakukan Hingga Maksimum /pembagi <\u003d 10 pembagi \u003d pembagi * 10 Loop

'Jika digit pertama dari nilai terbesar kurang dari 5, maka' gunakan pembagi yang lebih kecil. 'Kalau tidak, Anda bisa berakhir dengan empat atau lebih baris dalam plot. Jika Memperbaiki (Maksimum /pembagi) <5 Lalu pembagi \u003d pembagi * 10

'Hitung nilai batang atas. topStem \u003d Perbaiki (Maksimum /pembagi)

'Siapkan lembar kerja Batang. Lembar Kerja ("Stem"). Aktifkan Sel (1, 1) .Nilai \u003d "Hitung" Sel (1, 2) .Nilai \u003d "Stem" Sel (1, 3) .Nilai \u003d "Daun" Untuk rowPointer \u003d 2 Ke topStem + 2 Sel (rowPointer, 2) .Value \u003d rowPointer - 2 Sel (rowPointer, 3) .Value \u003d "|

"Baris rowPointer

'Hitung penghitungan.' Kode berikut ini lebih lambat dari yang seharusnya, 'tetapi kode yang lebih cepat akan lebih sulit untuk dibaca dan dimengerti. Lembar kerja (" Data "). Aktifkan rowPointer \u003d 2 Lakukan Hingga Sel (rowPointer, dataColumn) .Nilai \u003d "" pengukuran \u003d Sel (rowPointer, dataColumn) .Nilai Batang \u003d Perbaiki (pengukuran /pembagi) Lembar Kerja ("Batang"). Sel (Batang + 2, 1) .Nilai \u003d Lembar Kerja ("Stem"). Sel (Stem + 2, 1) .Nilai + 1 rowPointer \u003d rowPointer + 1 Loop

'Hitung faktor menyusut. Lembar kerja ("Stem"). Aktifkan maximumCount \u003d 0 Untuk rowPointer \u003d 2 To topStem + 2 If Cells (rowPointer, 1) .Value> maximumCount Kemudian maximumCount \u003d Cells (rowPointer, 1) .Nilai End If Next rowPointer

shrinkFactor \u003d Fix (maksimumCount /50) If shrinkFactor <1 Then shrinkFactor \u003d 1 Sel (1, 4) .Nilai \u003d "Setiap digit mewakili" + Str (shrinkFactor) + "case."

'Kembali ke data, dan isi dedaunan dengan mengingat nilai-nilai dalam data. Lembar kerja ("Data"). Aktifkan rowPointer \u003d 2 Lakukan Hingga Sel (rowPoi nter, dataColumn) .Nilai \u003d "" pengukuran \u003d Sel (rowPointer, dataColumn) .Value Stem \u003d Perbaiki (pengukuran /pembagi) leaf \u003d pengukuran - Stem * daun pembagi \u003d Perbaiki (daun * 10 /pembagi)

Lembar kerja ("Batang"). Sel (Batang + 2, 3) .Nilai \u003d Lembar kerja ("Batang"). Sel (Batang + 2, 3) .Nilai + Potong (Str (daun)) rowPointer \u003d rowPointer + shrinkFactor Loop

'Buka lembar kerja Stem. Lembar Kerja ("Batang"). Aktifkan Sub Akhir

Tekan "F5" untuk menjalankan kode. Plot Stem dan Leaf Anda akan muncul di lembar kerja “Stem”.

Tips

Jika Anda mengubah data dan perlu membuat plot batang dan daun baru, cukup jalankan makro StemAndLeaf lagi. Situs
URL:https://komputer.whycomputer.com/Perangkat-lunak/101316907.html