Как се прави график на стволови и листа в Excel 2007

Парцелът на стъблото и листата (наричан още стволови клетки) е тип диаграма, използвана за показване на статистически данни. Това е начин да се запазят отделните точки от данни в диаграма, които често изчезват с други графични методи, като например кръгови диаграми и хистограми. Например, ако нанесете числата 10,11,12,13 и 14 на кръгова диаграма, числата се поставят в категория и не можете да видите отделните числа на графиката. С стъбло и листа можете да видите всички оригинални номера.

Преименувайте празния работен лист на Excel „Данни“, като кликнете върху долния раздел на работния лист и въведете новото име.

Преименувайте друг празен работен лист на Excel в работната книга „Стъблото“, като кликнете върху долния раздел на този лист и въведете новото име.

Въведете списъка си с номера в колона А на работния лист „Данни“. Натиснете “Alt” и “F11” едновременно, за да отворите визуалния основен редактор.

Поставете следния VBA код в празния прозорец: Sub StemAndLeaf () dataColumn = 1

'Почистете всичко от работния лист. Работни листове ("Стъблото"). Cells.Clear

'Вижте работния лист за данни. Активирайте

'Намерете максималната стойност. rowPointer = 2 Да До клетките (rowPointer, 1) .Value = "" rowPointer = rowPointer + 1 Loop Максимално = Клетки (rowPointer - 1, dataColumn) .Value

'Задайте делителя, за да отстраните листата. divisor = 1 Do Do Maximum /divisor & lt; = 10 divisor = divisor * 10 Loop

'Ако първата цифра от най-голямата стойност е по-малка от 5, тогава' използвайте по-малък делител. - В противен случай може да завършиш с четири или по-малко редове в сюжета. Ако Fix (Максимум /делител) & lt; 5 Тогава divisor = divisor * 10

'Изчислява се стойността на горната част на стеблото. topStem = Fix (Maximum /divisor)

'Задайте работен лист на ствола. Активирайте клетки (1, 1) .Value = "Count" Cells (1, 2) .Value = "Stem" Cells (1, 3) .Value = "Leaves" За rowPointer = 2 До topStem + 2 клетки (rowPointer, 2) .Value = rowPointer - 2 клетки (rowPointer, 3) .Value = "| Следващият код е по-бавен, отколкото трябва да бъде, но по-бърз код ще бъде по-труден за четене и разбиране. Работни листове ("Данни"). Активиране на rowPointer = 2 Да До клетъчни (rowPointer, dataColumn) .Value = измерване = Клетки (rowPointer, dataColumn) .Value Stem = Fix (измерване /делител) Работни листове ("Stem"). Клетки (Stem + 2, 1). Клетки (Ствол + 2, 1). Стойност + 1 редPointer = rowPointer + 1 Loop

'Изчислете коефициента на свиване. Работни листове ("Stem"). Активиране на maximumCount = 0 За rowPointer = 2 към topStem + 2 Ако Cells (rowPointer, 1) .Value> maximumCount Тогава maximumCount = Cells (rowPointer, 1) .Value End Ако Next rowPointer

shrinkFactor = Fix (maximumCount /50) Ако shrinkFactor & lt; 1 Тогава shrinkFactor = 1 Клетки (1, 4) .Value = "Всяка цифра представлява" + Str (shrinkFactor) + "случаи."

"Връщане към данните и запълване на листата в светлината на стойностите в данните: Работни листове ("Данни"). rowPointer, dataColumn) .Value = измерване = клетки (редPointer, dataColumn) .Value Stem = Fix (измерване /делител) leaf = измерване - Стволово * разделител leaf = Fix (листо * 10 /делител)

Клетки (Ствол + 2, 3) .Value = Работни листове ("Стъблото"). Клетки (Ствол + 2, 3). Стойност + Подстригване (Str (листо)) редPointer = редPointer + shrinkFactor Loop

Вземете работния лист на ствола. Активирайте End Sub

Натиснете “F5”, за да стартирате кода. Сцената на ствола и листа ще се появи в работния лист „Стъбъл“.

Съвети

Ако промените данните си и трябва да генерирате ново парче от стъбло и листа, просто стартирайте отново макроса StemAndLeaf.

URL:https://bg.whycomputer.com/soft/100216907.html