✅ Как да създадете и покажете диаграма в клетка

Съдържание

Това е прост урок за това как да създадете и покажете лентова диаграма в клетка; техника, която работи много добре при създаване на управленски доклади.

Стъпки:

1. В колона А въведете стойностите, които искате да покажете, т.е. в клетка A1 въведете стойността 10, в клетка A2 20 и т.н.

2. В колона B1 въведете следната формула: = REPT (“n”, A1). Тази формула просто казва на Excel да повтори стойността, съхранена между „“, с номера в клетка A1.

3. Променете шрифта на “Wingdings”.

4. Моля, вижте пример 1 в прикачения файл на Excel.

5. Ако искате да намалите дължината на лентовата диаграма, просто разделете „A1“ в горната формула на 10 или с каквото и да е число, което е най -смислено. Като пример, формулата ще изглежда така = REPT (“n”, A1/10). Вижте пример 2 в приложения файл на Excel.

Трябва да се отбележи, че чрез промяна на „n“ в гореспоменатата формула можете да показвате различни изображения. Например главна буква „J“ ще показва усмихнато лице, докато главна „L“ ще показва тъжно лице. Вижте пример 3 в прикачения файл на Excel.

Справяне с отрицателни стойности

Горните формули работят добре, когато имате работа с положителни стойности. Ако обаче стойността в колона А е отрицателна, графиката в колона В ще се промени в низ, съставен от няколко различни символа, като по този начин ще се загуби желаният ефект (Вижте пример 4 в приложената електронна таблица).

Един от начините за преодоляване на това ограничение е чрез IF изявление като:

= IF (A21 <0, REPT (“n”, ABS (A21/10)), REPT (“n”, A21/10))

Обяснение на горната формула:

1. Да приемем, че стойността, която се опитвате да покажете в лентова диаграма, се намира в клетка A21. Тази стойност също е отрицателна.

2. Формулата започва с това, ако стойността в A21 е по -малка от 0, т.е. отрицателна, след това повторете „n“ с абсолютната стойност (ABS), съдържаща се в клетка A21, и след това разделете това число на 10. Като използвате абсолютната стойност, вие сте кажете на Excel да игнорира отрицателния знак и да третира числото като положителна стойност.

3. Следващата част от формулата казва на Excel какво да прави, ако стойността е по -голяма от 0.

4. Моля, вижте пример 4 в прикачения файл.

Интересни допълнения към горното биха били използването на условно форматиране за промяна на цвета на графиката, за да се каже червено за отрицателни стойности и на синьо за положителни стойности. Нека въображението ви води!

Следващият урок ще опише как да създадете диаграма в клетка като тази, показана в таблицата по -горе под колоната „Тенденция“.

Диаграмата е създадена с помощта на функция, наречена „CellChart“. Бихте го въвели в Excel като всяка друга стандартна функция, т.е. SUM, AVERAGE или VLOOKUP и т.н. Тази функция се нарича „User Defined Function“ и не е стандартна функция, налична в Microsoft Excel. Той трябва да бъде създаден от потребителя, използващ VBA.

Когато се въведе в Excel, функцията CellChart изглежда така:

Ако разгледаме по -отблизо функцията CellChart, диапазонът за диаграмата е дефиниран в първата част на функцията, C3: F3 в горния пример. След това цветът на диаграмата е дефиниран, 203, като се използва горният пример.

Сега за VBA нещата

1. Влезте в прозореца на проекта VBA, като щракнете с десния бутон върху името на лист и изберете „Преглед на кода“ или като изберете „ALT, F11“.

2. От дясната страна щракнете с десния бутон върху името на вашия проект и изберете вмъкнат „модул“.

3. Копирайте и поставете следния код в новия модул, който току -що създадохте:

„Създава нова функция, наречена функция на клетъчна диаграма CellChart (графики като диапазон, цвят като дълъг) като низ“ Определя променливите, които ще бъдат използвани по -късно в кода Const cMargin = 2 Dim rng As Range, arr () As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'Следното изчислява графиките, които да се използват за диаграмата Set rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Ако j = 0, тогава j = i Други графики (, j)> Графи (, i) Тогава j = i Край Ако Ако k = 0, тогава k = i 
 0 Тогава .Line.ForeColor.RGB = Цвят Друг. Line.ForeColor.SchemeColor = -Цвят Край с край с CellChart = "" Крайна функция Sub ShapeDelete (rngSelect As Range) "Определя променливите, които ще се използват по -късно в кода Dim rng As Range, shp As Shape, blnDelete As Boolean За всеки shp В rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Ако не е rng Нищо .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address Тогава blnDelete = True End Ако Ако blnDelete След това shp.Delete Next End Sub

4. Щракнете върху бутона за запазване.

5. Щракнете върху малката икона на Excel горе вдясно под менюто „Файл“, за да излезете от прозореца на проекта VBA и да се върнете в Excel