✅ Як створити та відобразити діаграму у комірці

Зміст

Це простий підручник про те, як створити та відобразити стовпчасту діаграму у комірці; техніка, яка дуже добре працює при створенні управлінських звітів.

Кроки:

1. У стовпці А введіть значення, які потрібно відобразити, тобто у комірці А1 введіть значення 10, у комірці А2 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 тощо. Ця функція називається "функцією, визначеною користувачем", і не є стандартною функцією, доступною в 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 'Нижче розраховуються графіки, які будуть використовуватися для діаграми Встановіть rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Якщо j = 0 Тоді j = i Інші ділянки (, j)> Ділянки (, i) Тоді j = i Кінець Якщо Якщо k = 0, то k = i Інші ділянки (, k) 
 0. Dim rng As Range, shp As Shape, blnDelete As Boolean Для кожного shp у rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Діапазон (shp.TopLeftCell, shp.BottomRightCell), rngSelect) Якщо rng Ніщо Тоді .Address = Діапазон (shp.TopLeftCell, shp.BottomRightCell). Адреса Тоді blnDelete = True End Якщо If blnDelete Тоді shp.Delete Next End Sub

4. Натисніть кнопку зберегти.

5. Натисніть на маленьку піктограму Excel у верхньому правому куті під меню «Файл», щоб вийти з вікна проекту VBA та повернутися до Excel