График Excel с изменениями в процентах - Version 2

Привет! В этом видео мы улучшим нашу первую версию графика, который показывает изменение значений от одного временного отрезка к другому в процентах.
Новый график будет отличаться автоматизацией процессов, динамическими характеристиками и улучшенным визуальным видом. Кроме того, сам процесс построения данного графика стал более структурированным.
Всем приятного просмотра! :)

[@BilyalKhassenov]

Вот код для VBA (просто целиком скопируйте и вставьте в модуль листа, на котором находится Ваш график):
Private Sub Worksheet_Calculate()
Call Adjust_Error_Bars
End Sub
Sub Adjust_Error_Bars()
Dim ourChart As ChartObject
Set ourChart = ThisWorkbook.Worksheets("Лист1").ChartObjects("Диаграмма 1")
Dim i As Long
For i = 1 To ourChart.Chart.FullSeriesCollection(2).Points.Count
If Val(ourChart.Chart.FullSeriesCollection(2).Points(i).DataLabel.Text) < 0 Then
ourChart.Chart.FullSeriesCollection(2).Points(i).DataLabel.Position = xlLabelPositionBelow ' Подпись изменения в процентах снизу
ourChart.Chart.FullSeriesCollection(2).Points(i).DataLabel.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 0, 0) ' Изменения в процентах красного цвета
Else
ourChart.Chart.FullSeriesCollection(2).Points(i).DataLabel.Position = xlLabelPositionAbove ' Подпись изменения в процентах сверху
ourChart.Chart.FullSeriesCollection(2).Points(i).DataLabel.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(51, 204, 51) ' Изменения в процентах зеленого цвета
End If
Next i
End Sub

[@Bah1918]

Добрый день.С нетерпением жду Ваш уроки по VBA.

[@ШоазизШохайдаров]

От всей души, спасибо!

[@SamSambl4]

Спасибо за труд!

[@Bah1918]

Класс

[@AndreyDelay]

Спасибо за урок )

[@BilyalKhassenov]

Не за что, Андрей, рад помочь! :)

[@sheinpavel4694]

Моё почтение

[@ЗульфияШамсутдинова-у7ы]

Круто!!! Спасибо)

[@АлександрСтельмах-ф3у]

Подписался и ни разу не пожалел 👍

[@СветланаАгибаева-я2ы]

Спасибо

[@justcraft4600]

Спасибо. Можно еще вместо -1 abs использовать)

[@maiya_go]

Можно ли сделать такое же со сводными таблицами?)

[@user-rw8uy2ir4q]

Спасибо за максимальную пользу! Единственное, при VBA где я указываю строку для положительных изменений выбираю 2 (как нужно) появляется ошибка 9, а если указываю 3 (хотя там отрицательная), все работает. почему так, подскажите?

[@senjuuu5360]

У меня нихрена не получаеться

[@abdumalikzukurov6080]

Билял добрый день. Спасибо за видео. Маленький вопрос. Почему что у меня VBA не сработало, чем может быть связано

[@abdumalikzukurov6080]

Прощу прощения. Получился. Спасибо большое

[@wheeloffortune_21]

появился вопрос! А если в одной из ячеек столбца "ДС в месяце" оказывается нулевое значение, то изменение % выводит ошибку? очевидно, в формулу закладывать значение "-100%"?

[@BilyalKhassenov]

Здравствуйте, Павел!
В таком случае, я бы, например, встроил в формулу столбца «Изменение в %» нечто в подобном роде: =ЕСЛИОШИБКА(E3/C3;"+∞"). В таком случае, если значение в столбце «ДС в месяце» будет равно нулю, то изменение соответственно будет показывать "+∞".
Попробуйте на своем примере, надеюсь это решение подойдёт для Вас!
Если что, всегда пишите :)
С уважением,
ХБ

[@wheeloffortune_21]

@@BilyalKhassenov Спасибо, решение, как нельзя кстати и не только здесь!👍👍👍

[@BilyalKhassenov]

Всегда рад помочь :)
Хорошего Вам вечера, Павел! :)

[@likalika5246]

Добрый день, почему при открытии данного графика с другого компа подписи к стрелочкам вместо процента отражается диапазон ячеек

[@mamaewapolya]

Привет!
Подскажите, пожалуйста, как можно исправить проблему того, что ряды с изменениями (стрелочки на графике) не идеально в середине находятся?

[@wheeloffortune_21]

добрый день! нашёл ещё одну закавыку. Если я в таблицу с данными (ДС в месяце) внес какие-то изменение, а потом паче чаяния понял, что сделал неверно, то отменить операцию уже не смогу, ибо кнопка "отменить ввод" стала неактивна. Возможно ли изменить код, чтобы исправить эту ситуацию? Или не судьба? Спасибо.

[@BilyalKhassenov]

Здравствуйте, Павел!
Вы точно подметили одну из особенностей макросов в VBA - зачастую они очищают резервные данные кнопки «Отменить ввод». В принципе, есть возможность обойти данную особенность, достраивая наш рабочий лист и макрос (я позже постараюсь снять отдельное видео на эту тему).
Данное решение является своего рода Workaround - т.е. альтернативное решение задачи. Мы знаем, что VBA вычищает данные для возврата из памяти компьютера. Следовательно, мы должны сами сохранять нужные нам данные перед каждым изменением в определенное, отведенное для этого место. Поскольку нас интересуют лишь изменяющиеся, вводимые пользователем данные, а не все, именно их мы и будем селективно сохранять (в качестве примера с нашим графиком - это данные из столбца «ДС в месяце»).
Основываясь на этой идее, я бы и постарался написать макрос. В любом случае, как я уже сказал, я сниму чуть позднее видео на данную тему, так что следите за выходом новых видео :)
С уважением,
ХБ

[@wheeloffortune_21]

@@BilyalKhassenov Спасибо, буду ждать, т.к. мне пока это не под силу

[@senjuuu5360]

Оставил бы ссылку на скачивание

[@Bah1918]

Добрый день.С нетерпением жду Ваших уроков по VBA.

[@BilyalKhassenov]

Здравствуйте, Сергей! Спасибо за Ваши комментарии. На этих выходных постараюсь снять и выложить следующее видео из серии VBA.
Спасибо за Ваше терпение!
Хорошего Вам дня :)