Добрый день, подскажите пожалуйста как можно привязывать части названия диаграмм к ячейкам, например: работник Иванов выполнил 90 процентов плана за период в 5 дней. Соответственно 90 и 5 должны быть привязаны к разным ячейкам. а остальной текст сидеть в названии диаграммы. Заранее спасибо. [moder]Покажите пример в файле.[/moder]
Добрый день, подскажите пожалуйста как можно привязывать части названия диаграмм к ячейкам, например: работник Иванов выполнил 90 процентов плана за период в 5 дней. Соответственно 90 и 5 должны быть привязаны к разным ячейкам. а остальной текст сидеть в названии диаграммы. Заранее спасибо. [moder]Покажите пример в файле.[/moder]SergC4
SergC4, Ваш пример в файле отличается от описания в теле поста. Сделала, как поняла: [vba]
Код
Function getDate(nChart As Integer) txt = Split(ActiveSheet.ChartObjects("Диаграмма " & nChart).Chart.ChartTitle.Text, " ") getDate = txt(UBound(txt)) End Function
[/vba][vba]
Код
Function getNum(nChart As Integer) txt = Split(ActiveSheet.ChartObjects("Диаграмма " & nChart).Chart.ChartTitle.Text, " ") For i = 0 To UBound(txt) If InStr(txt(i), "№") Then getNum = Mid(txt(i), 2): Exit For Next i End Function
[/vba]
SergC4, Ваш пример в файле отличается от описания в теле поста. Сделала, как поняла: [vba]
Код
Function getDate(nChart As Integer) txt = Split(ActiveSheet.ChartObjects("Диаграмма " & nChart).Chart.ChartTitle.Text, " ") getDate = txt(UBound(txt)) End Function
[/vba][vba]
Код
Function getNum(nChart As Integer) txt = Split(ActiveSheet.ChartObjects("Диаграмма " & nChart).Chart.ChartTitle.Text, " ") For i = 0 To UBound(txt) If InStr(txt(i), "№") Then getNum = Mid(txt(i), 2): Exit For Next i End Function
Описание в теле старался сделать более читабельным, попытаюсь объяснить по примеру: надо чтобы в название диаграммы менялись значения в зависимости от того что в клетках, то есть в G1 ставиться произвольная дата она должна автоматом меняться в названии диаграммы, в G6 номер также меняется в названии диаграммы, и в E6 название прибора (обычно буквенно-цифровые аббревиатуры)
Описание в теле старался сделать более читабельным, попытаюсь объяснить по примеру: надо чтобы в название диаграммы менялись значения в зависимости от того что в клетках, то есть в G1 ставиться произвольная дата она должна автоматом меняться в названии диаграммы, в G6 номер также меняется в названии диаграммы, и в E6 название прибора (обычно буквенно-цифровые аббревиатуры)SergC4
Вот вот, принцип как сделал ув. Борода только без дополнительных строчек а сразу в название диаграммы загонять, строку конечно можно и под диаграмму спрятать, просто интересно возможно такое или нет
Вот вот, принцип как сделал ув. Борода только без дополнительных строчек а сразу в название диаграммы загонять, строку конечно можно и под диаграмму спрятать, просто интересно возможно такое или нетSergC4
Сообщение отредактировал SergC4 - Вторник, 01.03.2016, 12:00