Какие надстройки, кроме ThinkCell (не продляет лицензию) позволяют делать такие фокусы с графиками и диаграммами (пример во вложении): На бридже: -подписать столбцы итогов жирным шрифтом (не критично, но тем не менее) -сделать составные факторы или составные итоговые столбы с динамическими изменяемыми итоговыми значениями.
На любых графиках и диаграммах добавлять сумму изменения между любыми указанными точками на ней
Гугл выдаёт много разных надстроек, но мне нужны именно с таким или похожим функционалом.
чем не устраивает? Или вы тут просто рекламу решили сделать?
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
ИМХО: для аналитики достаточно таблиц с реальными данными и вполне достаточно средств, которые предлагались еще в EXCEL 2003. Жирный шрифт или цвет столбцов на диаграмме на эффективность бизнеса никак повлиять не сможет.
написал: ИМХО: для аналитики достаточно таблиц с реальными данными и вполне достаточно средств, которые предлагались еще в EXCEL 2003. Жирный шрифт или цвет столбцов на диаграмме на эффективность бизнеса никак повлиять не сможет
Спасибо за совет А теперь представьте на столе у Совета директоров ежемесячную презентацию из 120 слайдов, и на каждом - таблицы. Они воспримут это как личное оскорбление и точно решат, что пора перетрахивать всю команду аналитиков. Диаграммы созданы для того чтобы визуализировать показатели и упростить их восприятие. В своём примере я привел самые простые диаграммы, только чтобы объяснить суть вопроса. В жизни они на порядок сложнее. Тех же итоговых столбцов на бридже бывает гораздо больше двух. Линейные диаграммы, например, могут содержать несколько линий с динамикой помесячно за несколько лет. Конечно, на каждый месяц значения не ставлю, но есть ключевые даты, где нужно показывать дельты между этими линиями, а так же изменение между периодами.
_Igor_61, если бы вы были правы, то Power BI не был бы создан Можно сделать один график или диаграмму, где ловко показать необходимые ключевые показатели, а можно показывать череду плоских таблиц, объяснять, как пользоваться фильтром и что все таблицы прекрасно связаны между собой, нужно лишь знать, в какой и что смотреть. Второй вариант, как правило, предшествует увольнению
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
lipun написал: Они воспримут это как личное оскорбление и точно решат, что пора перетрахивать всю команду аналитиков.
Ну если не желаете быть пере...ахаными, то начинайте изучать VBA, PowerBi и т.п. Какую-то часть можно сделать макросами. Например так (набросал на скорую руку):
Плюшка_1
Код
Sub Плюшка_1()
ActiveSheet.ChartObjects("Диаграмма 5").Activate
ActiveChart.SetElement (msoElementDataLabelNone)
ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
nachalo = Application.InputBox("Укажите номер начального периода:", "Запрос данных", "", Type:=1)
If nachalo = 0 Then Exit Sub 'nachalo = 1
konec = Application.InputBox("Укажите номер конечного периода:", "Запрос данных", "", Type:=1)
If konec = 0 Or konec <= nachalo Then Exit Sub
With ActiveChart.FullSeriesCollection(1)
ymin = .Points(nachalo).DataLabel.Top
For n = nachalo To konec
If ymin > .Points(n).DataLabel.Top Then ymin = .Points(n).DataLabel.Top
Next
x1 = .Points(nachalo).DataLabel.Left + .Points(nachalo).DataLabel.Width / 2
x2 = .Points(konec).DataLabel.Left + .Points(konec).DataLabel.Width / 2
y1 = .Points(nachalo).DataLabel.Top
y2 = .Points(konec).DataLabel.Top
zn = CDbl(.Points(konec).DataLabel.Text) - CDbl(.Points(nachalo).DataLabel.Text)
End With
With ActiveChart.Shapes.BuildFreeform(msoEditingAuto, x1, y1)
.AddNodes msoSegmentLine, msoEditingAuto, x1, ymin - 20
.AddNodes msoSegmentLine, msoEditingAuto, x2, ymin - 20
.AddNodes msoSegmentLine, msoEditingAuto, x2, y2
.ConvertToShape.Select
End With
With Selection.ShapeRange.Line
.Weight = 4
.EndArrowheadStyle = msoArrowheadStealth
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.Brightness = 0.6000000238
End With
ActiveChart.Shapes.AddShape(msoShapeOval, x1 + (x2 - x1) / 2 - 25, ymin - 32, 50, 24).Select
With Selection.ShapeRange
.Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.Line.ForeColor.ObjectThemeColor = msoThemeColorText2
.Line.ForeColor.Brightness = 0.6000000238
.Line.Weight = 2
.TextFrame2.TextRange.Characters.Text = IIf(zn > 0, "+" & zn, zn)
.TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.HorizontalAnchor = msoAnchorCenter
.TextFrame2.TextRange.Font.Bold = msoTrue
.TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText2
.TextFrame2.TextRange.Font.Fill.ForeColor.Brightness = 0.400000006
.TextFrame2.MarginLeft = 0.2834645669
.TextFrame2.MarginRight = 0.2834645669
End With
End Sub
Плюшка_2
Код
Sub Плюшка_2()
ActiveSheet.ChartObjects("Диаграмма 5").Activate
ActiveChart.SetElement (msoElementDataLabelNone)
ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
nachalo = Application.InputBox("Укажите номер начального периода:", "Запрос данных", "", Type:=1)
If nachalo = 0 Then Exit Sub
konec = Application.InputBox("Укажите номер конечного периода:", "Запрос данных", "", Type:=1)
If konec = 0 Or konec <= nachalo Then Exit Sub
With ActiveChart.FullSeriesCollection(1)
xmax = .Points(.Points.Count).DataLabel.Left
x1 = .Points(nachalo).DataLabel.Left + .Points(nachalo).DataLabel.Width / 2
x2 = .Points(konec).DataLabel.Left + .Points(konec).DataLabel.Width / 2
y1 = .Points(nachalo).DataLabel.Top + .Points(nachalo).DataLabel.Height + 2.54
y2 = .Points(konec).DataLabel.Top + .Points(konec).DataLabel.Height + 2.54
zn = (CDbl(.Points(konec).DataLabel.Text) - CDbl(.Points(nachalo).DataLabel.Text)) / CDbl(.Points(nachalo).DataLabel.Text)
End With
ActiveChart.Shapes.AddConnector(msoConnectorStraight, x1, y1, xmax + 55, y1).Select
With Selection.ShapeRange.Line
.Weight = 1.2
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.Brightness = 0.6000000238
.DashStyle = msoLineLongDash
End With
ActiveChart.Shapes.AddConnector(msoConnectorStraight, x2, y2, xmax + 55, y2).Select
With Selection.ShapeRange.Line
.Weight = 1.2
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.Brightness = 0.6000000238
.DashStyle = msoLineLongDash
End With
ActiveChart.Shapes.AddConnector(msoConnectorStraight, xmax + 50, y1, xmax + 50, y2).Select
With Selection.ShapeRange.Line
.Weight = 1.2
.BeginArrowheadStyle = msoArrowheadTriangle
.EndArrowheadStyle = msoArrowheadTriangle
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.Brightness = 0.6000000238
End With
ActiveChart.Shapes.AddConnector(msoConnectorStraight, xmax + 50, Abs((y1 + y2) / 2), xmax + 60, Abs((y1 + y2) / 2) - 8).Select
With Selection.ShapeRange.Line
.Weight = 1.2
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.Brightness = 0.6000000238
End With
ActiveChart.Shapes.AddShape(msoShapeOval, xmax + 60, Abs((y1 + y2) / 2) - 20, 65, 24).Select
With Selection.ShapeRange
.Fill.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.Line.ForeColor.ObjectThemeColor = msoThemeColorText2
.Line.ForeColor.Brightness = 0.6000000238
.Line.Weight = 2
.TextFrame2.TextRange.Characters.Text = IIf(zn > 0, "+" & Format(zn, "Percent"), Format(zn, "Percent")) 'zn
.TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
.TextFrame2.VerticalAnchor = msoAnchorMiddle
.TextFrame2.HorizontalAnchor = msoAnchorCenter
.TextFrame2.TextRange.Font.Bold = msoTrue
.TextFrame2.TextRange.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorText2
.TextFrame2.TextRange.Font.Fill.ForeColor.Brightness = 0.400000006
.TextFrame2.MarginLeft = 0.2834645669
.TextFrame2.MarginRight = 0.2834645669
End With
End Sub
Тут не поспоришь, в примерах работает как надо... Но объём непонятного кода в ваших примерах только навевает грусть.. Вот для таких как я и созданы готовые надстройки типа ThinkCell. Предприятие готово заплатить за лицензию, лишь бы оно работало как надо. Но почему то почти все надстройки зарубежные, а это значит они тоже в любой момент могут "гордо уйти". Где наши светлые головы? Наш рынок пустой, есть деньги, но некому их отдать, вот где шанс развернуться специалистам своего дела.
lipun написал: Предприятие готово заплатить за лицензию, лишь бы оно работало как надо.
Разместить этот пост в разделе РАБОТА. Тут много светлых голов, всё будет зависеть от объёма вложенных инвестиций, Ваших желаний и потребностей. Только нужно учесть, что разработка универсального инструмента и инструмента для обработки конкретных графиков это не одно и тоже, и цена может здорово отличаться.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
tutochkin написал: Я обычно просто через доп.графики такие вещи рисую
я в былые времена тоже доп графики рисовал, это наверное даже правильнее будет, но потом подумал, что лень вспоминать как их добавлять в смешанные диаграммы, да плюс ещё это дополнительные столбцы в общем в ломы было мозг напрягать.
Цитата
Jack Famous написал: весьма круто набросал, надо сказать
Это на самом деле, костыльное решение. Пришлось привязываться к меткам данных, а они могут быть в разных местах. Не нашёл как привязаться к самим столбцам, да собственно и не искал особо, может и вообще нельзя.
Цитата
Jack Famous написал: Я теперь по макрографикам и плюшкам к ним у вас буду консультироваться
Я только ЗА, но думаю, как писал уже в предыдущих абзацах, правильнее будет добавлять доп графики, по методу tutochkin_а, тогда при изменении графиков не придется всё переделывать, будет меняться всё автоматически
Сергей Лисицын написал: Жаль только, что пометки статичны
Уже писал
Цитата
Msi2102 написал: правильнее будет добавлять доп графики, по методу tutochkin_а, тогда при изменении графиков не придется всё переделывать, будет меняться всё автоматически
Обращайтесь к tutochkin, он подскажет как это делать. А данный вариант это скорее может подойти как конечная обработка, просто для красоты
Jack Famous написал: Второй вариант, как правило, предшествует увольнению
Jack Famous, доброго вечера! Я наверное не правильно сформулировал свои мысли в #4, конечно Совету Директоров незачем показывать 200 слайдов.
Цитата
lipun написал: Вот для таких как я и созданы готовые надстройки типа ThinkCell. Предприятие готово заплатить за лицензию, лишь бы оно работало как надо
Если Совет директоров считает покупку сторонней надстройки более эффективным средством анализа процессов, происходящих на фирме, чем содержание высококлассных специалистов, которые знают работу фирмы изнутри и владеют соответствующей квалификацией, то владельцу бизнеса стоит задуматься о составе Совета директоров и кадров, что и подтверждается дальнейшими сообщениями в теме Опять же ИМХО
lipun написал: Где наши светлые головы? Наш рынок пустой, есть деньги, но некому их отдать, вот где шанс развернуться специалистам своего дела.
, Кстати, можете также обратиться за разработкой к светлым головам СЮДА или СЮДА или СЮДА , собственно ещё много куда, только нужно уметь искать
Ссылки полезные, спасибо! Для узких задач самое то. Я немного не об этом, я не про индивидуальные заказы, а про выпуск готового универсального продукта и продажа его всем желающим. Требования к визуализации постоянно меняются и требуют быстрого решения. К примеру, ThinkCell умеет многое, но до совершенства ему далеко. Хотя общая идея хорошая: своя отдельная от Excel среда для рисования диаграмм. Одна из интересных особенностей - автоматическая перерисовка (подгонка) положения всех навешанных на диаграмму стрелочек и подписей при изменении самого рисунка диаграммы. Ну и работа практически без окошек настроек, одной мышью. Техподдержка есть, реагирует на обращения, но что-то менять в программе в целом не готова.
попробуйте charticulator - можно загрузить свои данные, накидать график, выгрузить картинкой, или html для вставки в email рассылку, или экспортировать как кастомный визуал power BI.
Видел как-то даже тендер Росатома на продление лицензии для Think-cell На сайте Think-cell нет никакой информации об уходе с российского рынка. По крайней мере, продление лицензии на очередной год или открытие новой лицензии можно оплатить online с их сайта. Требуется указать адрес корпоративной электронной почты, на которую будет выслана ссылка для скачивания и лицензионный код. Скорее всего, бывшие российские посредники просто не могут проводить оплату в валюте. Попробуйте найти способ онлайн-оплаты валютой с какой-нибудь соседней страны/республики вместо обычного выставления и оплаты счета с реквизитами юрлица.
По поводу альтернатив – посмотрите еще: 1. Peltier Tech Charts for Excel 4.0 – надстройка для Excel, много интересных диаграмм, есть кнопка копирования рисунка диаграммы на активный слайд Power Point. Тестировал когда-то 3-ю версию, сейчас там 4-я 2. ZebraBI For Excel (Есть и для PowerBI) Есть видео-презентации, мне интересно было почитать рекомендации по исключению "излишеств нехороших" диаграмм и презентаций в соответствии со стандартом The International Business Communication Standards (IBCS®)
ZVI написал: рекомендации по исключению "излишеств нехороших" диаграмм и презентаций в соответствии со стандартом
А такого документа в оффлайн случайно нет? (дочитал до конца, понял что нет...) В своё время была хорошая ИМХО книга "как сделать красиво на бумаге"... Пора развиваться... Хотя кое с чем я не согласен... Дельту указать стрелками и подписью нагляднее, чем толстой линией. Да они сами по тексту стрелками указывают