Ово је једноставан водич о томе како створити и приказати тракасти графикон у ћелији; техника која веома добро функционише при креирању менаџерских извештаја.
Кораци:
1. У колону А унесите вредности које желите да прикажете, тј. У ћелију А1 унесите вредност 10, у ћелију А2 20 итд.
2. У колону Б1 унесите сљедећу формулу: = РЕПТ (“н”, А1). Ова формула једноставно говори Екцелу да понови вредност ускладиштену између „“ бројем у ћелији А1.
3. Промените фонт у „Вингдингс“.
4. Молимо погледајте пример 1 у приложеној Екцел датотеци.
5. Ако желите да смањите дужину тракастог графикона, једноставно поделите „А1“ у горњој формули са 10 или било којим бројем који има највише смисла. На пример, формула би изгледала овако = РЕПТ („н“, А1/10). Погледајте пример 2 у приложеној Екцел датотеци.
Треба напоменути да променом „н“ у горе поменутој формули можете приказати различите слике. На пример, велико слово „Ј“ приказује насмејано лице, док велико слово „Л“ приказује тужно лице. Погледајте пример 3 у приложеној Екцел датотеци.
Суочавање са негативним вредностима
Горе наведене формуле добро функционишу када се бавите позитивним вредностима. Међутим, ако је вредност у колони А негативна, графикон у колони Б ће се променити у низ састављен од више различитих симбола чиме ће се изгубити жељени ефекат (видети пример 4 у приложеној табели).
Један од начина да се превазиђе ово ограничење је ИФ изјава попут:
= ИФ (А21 <0, РЕПТ ("н", АБС (А21/10)), РЕПТ ("н", А21/10))
Објашњење горње формуле:
1. Претпоставимо да се вредност коју покушавате приказати на тракастом графикону налази у ћелији А21. Ова вредност је такође негативна.
2. Формула почиње говорећи ако је вредност у А21 мања од 0, тј. Негативна, затим поновите „н“ апсолутном вредношћу (АБС) садржаном у ћелији А21, а затим поделите овај број са 10. Користећи апсолутну вредност, реците Екцелу да игнорише негативан знак и третира број као позитивну вредност.
3. Следећи део формуле говори Екцелу шта да ради ако је вредност већа од 0.
4. Молимо погледајте пример 4 у приложеној датотеци.
Занимљиви додаци горе наведеном били би употреба условног обликовања за промену боје графикона тако да се за негативне вредности каже црвено, а за позитивне плаво. Нека вас води машта!
Следећи водич ће описати како се прави графикон у ћелији попут оне приказане у горњој табели у колони „Тренд“.
Графикон је креиран помоћу функције под називом „ЦеллЦхарт“. Унели бисте је у Екцел као било коју другу стандардну функцију, на пример СУМ, ПРОСЕЧАН или ВЛООКУП итд. Ова функција се назива „Кориснички дефинисана функција“ и није стандардна функција доступна у програму Мицрософт Екцел. Корисник мора да га креира користећи ВБА.
Када се унесе у Екцел, функција ЦеллЦхарт изгледа овако:
Ако се пажљивије погледа функција ЦеллЦхарт, опсег графикона је дефинисан у првом делу функције, Ц3: Ф3 у горњем примеру. Затим је дефинисана боја графикона, 203 користећи горњи пример.
Сада о ВБА стварима
1. Уђите у прозор пројекта ВБА тако што ћете десним тастером миша кликнути на назив листа и изабрати „Виев Цоде“ или изабрати „АЛТ, Ф11“.
2. Са десне стране кликните десним тастером миша на назив пројекта и изаберите уметнути „модул“.
3. Копирајте и залепите следећи код у нови модул који сте управо креирали:
'Креира нову функцију под називом Целл Цхарт Функција ЦеллЦхарт (Плотс Ас Ранге, Цолор Ас Лонг) Ас Стринг' Дефинише променљиве које ће се касније користити у коду Цонст цМаргин = 2 Дим рнг Ас Ранге, арр () Ас Вариант, и Ас Лонг, ј Ас Лонг, к Ас Лонг Дим дблМин Ас Доубле, дблМак Ас Доубле, схп Ас Схапе 'Следеће израчунава графиконе који ће се користити за графикон Сет рнг = Апплицатион.Цаллер СхапеДелете рнг Фор и = 1 То Плотс.Цоунт Ако је ј = 0 Тада је ј = и Остали графикони (, ј)> Парцеле (, и) Тада је ј = и Крај Ако је к = 0 Тада је к = и Остали графикони (, к)0 Затим .Лине.ФореЦолор.РГБ = Друга боја. Дим рнг Ас Ранге, схп Ас Схапе, блнДелете Ас Боолеан За сваки схп У рнгСелецт.Ворксхеет.Схапес блнДелете = Фалсе Сет рнг = Интерсецт (Ранге (схп.ТопЛефтЦелл, схп.БоттомРигхтЦелл), рнгСелецт) Иф рнг Није ништа .Аддресс = Опсег (схп.ТопЛефтЦелл, схп.БоттомРигхтЦелл). Адреса Затим блнДелете = Труе Енд Ако је Ако блнДелете Затим схп.Делете Нект Енд Суб
4. Притисните дугме за чување.
5. Кликните на малу икону програма Екцел у горњем десном углу испод менија „Датотека“ да бисте изашли из прозора пројекта ВБА и вратили се у Екцел
6. Унесите функцију ЦеллЦхарт у било коју ћелију као што је приказано горе.
7. Погледајте радну свеску у прилогу за радни пример горе наведеног.
За додатне информације о овој врсти ћелијског графикона посетите:
У ћелијском графикону