Cara Membuat Petak Batang &Daun di Excel 2007

Plot batang dan daun (juga disebut batang batang) adalah jenis rajah yang digunakan untuk menunjukkan data statistik. Ini adalah kaedah untuk mengekalkan titik data individu dalam rajah yang sering hilang dengan kaedah grafik lain seperti carta pai dan histogram. Sebagai contoh, jika anda sebutkan nombor 10, 11, 12, 13, dan 14 dalam carta pai, nombor dimasukkan ke dalam kategori dan anda tidak dapat melihat nombor individu pada carta. Dengan batang dan daun, anda dapat melihat semua nombor asal.

Ganti nama lembaran kerja Excel kosong "Data" dengan mengklik tab bawah untuk lembaran kerja dan ketik nama baru.

Ganti nama lembaran kerja Excel yang lain dalam buku kerja "Stem" dengan mengklik tab bawah untuk lembaran kerja itu dan menaip nama baru.

Masukkan senarai nombor anda di lajur A lembaran kerja “Data”.

Tekan "Alt" dan "F11" pada masa yang sama untuk membuka editor asas visual.

Klik dua kali "Buku Kerja Ini" di bawah Objek Microsoft Excel di panel navigasi kiri untuk membuka tetingkap kod kosong.

Tampal kod VBA berikut ke dalam tetingkap kosong:Sub StemAndLeaf () dataColumn =1

'Bersihkan semuanya dari lembaran kerja Stem. Lembaran kerja ("Batang"). Sel. Jelas

'Lihat lembaran kerja Data. Lembaran kerja ("Data"). Aktifkan

'Cari nilai maksimum. rowPointer =2 Lakukan Sehingga Sel (rowPointer, 1). Nilai ="" rowPointer =rowPointer + 1 Loop Maximum =Sel (rowPointer - 1, dataColumn) .Nilai

'Tetapkan pembahagi untuk menanggalkan daun. pembahagi =1 Lakukan Sehingga Maksimum / pembahagi <=10 pembahagi =pembahagi * 10 Gelung

Sekiranya digit pertama dari nilai terbesar kurang dari 5, kemudian 'gunakan pembahagi yang lebih kecil. Jika tidak, anda boleh berakhir dengan empat atau lebih baris di plot. Sekiranya Betulkan (Maksimum / pembahagi) <5 Maka pembahagi =pembahagi * 10

'Hitung nilai batang atas. topStem =Betulkan (Maksimum / pembahagi)

'Sediakan lembaran kerja Stem. Lembaran kerja ("Batang"). Aktifkan Sel (1, 1). Nilai ="Hitung" Sel (1, 2). Nilai =Sel "Batang" (1, 3). Nilai ="Daun" Untuk rowPointer =2 Ke atasStem + 2 Sel (rowPointer, 2). Nilai =rowPointer - 2 Sel (rowPointer, 3). Nilai ="|" Baris seterusnyaPointer

'Hitungkan kiraannya. 'Kod berikut lebih perlahan daripada yang sepatutnya, 'tetapi kod yang lebih cepat akan lebih sukar untuk dibaca dan difahami. Lembaran kerja ("Data"). Aktifkan rowPointer =2 Lakukan Sehingga Sel (rowPointer, dataColumn). Nilai ="" pengukuran =Sel (rowPointer, dataColumn). Nilai Stem =Betulkan (pengukuran / pembahagi) Lembaran kerja ("Stem"). Sel (Stem + 2, 1). Nilai =Lembaran Kerja ("Batang"). Sel (Batang + 2, 1). Nilai + 1 barisPointer =barisPointer + 1 Gelung

'Hitung faktor pengecutan. Lembaran kerja ("Stem"). Aktifkan jumlah maksimum =0 Untuk rowPointer =2 Ke atasStem + 2 Jika Sel (rowPointer, 1). Nilai> jumlah maksimum Kemudian jumlah maksimum =Sel (barisPointer, 1). Nilai Tamat Jika baris berikutnyaPointer

shrinkFactor =Fix (maksimumCount / 50) Jika shrinkFactor <1 Kemudian shrinkFactor =1 Sel (1, 4). Nilai ="Setiap digit mewakili" + Str (shrinkFactor) + "case."

'Kembali ke data, dan isikan daun dengan melihat nilai-nilai dalam data. Lembaran kerja ("Data"). Aktifkan rowPointer =2 Lakukan Sehingga Sel (rowPointer, dataColumn). Nilai ="" pengukuran =Sel (rowPointer, dataColumn). Nilai Stem =Betulkan (pengukuran / pembahagi) daun =pengukuran - Batang * daun pembahagi =Betulkan (daun * 10 / pembahagi)

Lembaran kerja ("Batang"). Sel (Batang + 2, 3). Nilai =Lembaran Kerja ("Batang"). Sel (Batang + 2, 3). Nilai + Potong (Str (daun)) rowPointer =rowPointer + shrinkFactor Loop

'Pergi ke lembaran kerja Stem. Lembaran kerja ("Batang"). Aktifkan Sub Akhir

Tekan "F5" untuk menjalankan kod. Petak Batang dan Daun anda akan muncul di lembaran kerja “Batang”.

Petua

Sekiranya anda mengubah data anda dan perlu menghasilkan batang dan daun baru, jalankan lagi makro StemAndLeaf lagi.

URL:https://ms.whycomputer.com/perisian/1015016907.html