Kaip sukurti stiebo ir lapo plotą „Excel 2007“

Stiebas ir lapų sklypas (dar vadinamas stemplotu) yra diagramos tipas, naudojamas statistiniams duomenims rodyti. Tai būdas išsaugoti atskirus duomenų taškus diagramoje, kuri dažnai išnyksta su kitais

" Apskaičiuokite skaičiavimus. "Šis kodas yra lėčiau nei reikia," tačiau greičiau kodą būtų sunkiau perskaityti ir suprasti. Darbalapiai ("duomenys"). Atlikti iki ląstelių (rowPointer, dataColumn) .Value = "" matavimas = ląstelės (rowPointer, dataColumn) .Vertybė Stem = Fix (matavimas /daliklis) darbalapiai ("Stem"). Cells (Stem + 2, 1) .Value = Darbalapiai Ląstelės (kamieniniai + 2, 1) .Vertybė + 1 rowPointer = rowPointer + 1 kilpa

'Apskaičiuokite susitraukimo koeficientą. Darbalapiai ("stiebas"). Aktyvinti maximumCount = 0 2 „TopStem“ + 2 Jei langeliai (rowPointer, 1) .Value & gt; maximumCount Tada maximumCount = Cells (rowPointer, 1) .Value End Jei seka eilutėPointer

shrinkFactor = Fix (maximumCount /50) Jei shrinkFactor & lt; 1 Tada shrinkFactor = 1 ląstelės (1, 4) .Value = "Kiekvienas skaitmuo reiškia" + Str (shrinkFactor) + "atvejus."

'Grįžti į duomenis ir užpildykite lapus atsižvelgiant į vertybes Įrašai („Duomenys“) Aktyvinkite „rowPointer“ = 2 „Ar ląstelės“ ( rowPointer, dataColumn) .Value = "" matavimas = ląstelės (rowPointer, dataColumn) .Vertybė Stem = Fix (matavimas /daliklis) lapų = matavimas - Stem * daliklis lapas = Fix (lapų * 10 /daliklis)

Darbalapiai („Kamienė“). Ląstelės (kamieniniai + 2, 3) .Vertis = darbalapiai („kamieniniai“). Ląstelės (kamieniniai + 2, 3). Vertė + kraštas (Str (lapai)) rowPointer = rowPointer + shrinkFactor Loop

„Pasiekite stiebo darbalapį. Darbalapiai („Stem“) Aktyvinti pabaigos sub-įrašą

Paspauskite „F5“, kad paleistumėte kodą. „Stem“ ir „Leaf“ sklypas bus rodomas „Stem“ darbalapyje.

Patarimai

Jei pakeisite savo duomenis ir norite sukurti naują stiebo ir lapo sklypą, tiesiog paleiskite „StemAndLeaf“ makro dar kartą.

URL:https://lt.whycomputer.com/software/100416907.html