Не могу найти макрос, ошибка со шрифтами и поиск!

[Ilya87]

ДА уж! Плохо что я бейсик не очень знаю!
Тогда ещё вопросик, если у меня несколько диаграм, то что именно из этого кода ссылается на определённую диаграмму?

[SAS888]

Для того, чтобы корректно построить диаграмму, сначала на свободном месте листа формируем строки с данными для построения таким образом, чтобы значения в ячейках каждой строки соответствовали рядам (графикам) диаграммы, и следовали непрерывно. В предыдущем примере всего два графика, причем данные для построения располагались таким образом, что в столбцах с четными номерами строки 2 находились значения 1-го графика, а в столбцах с нечетными номерами строки 3 - значения для 2-го. Такая организация позволила сформировать требуемые строки с данными одним оператором:

If i Mod 2 = 0 Then Cells(rc - 1, Cells(rc - 1, cc).End(xlToLeft).Column + 1) = .Cells(2, i) _
            Else: Cells(rc, Cells(rc, cc).End(xlToLeft).Column + 1) = .Cells(3, i)

где rc - номер последней строки листа, cc - номер последнего столбца листа. Затем присваиваем переменным x и y (As Range) диапазоны с значениями для 1-го и 2-го графиков соответственно:

Set x = Range(Cells(rc - 1, "B"), Cells(rc - 1, Cells(rc - 1, cc).End(xlToLeft).Column))
    Set y = Range(Cells(rc, "B"), Cells(rc, Cells(rc, cc).End(xlToLeft).Column))

Теперь строим диаграмму так: задаем первый ряд (т.е. диапазон переменной x), затем добавляем второй (диапазон переменной y). После этого, задаем имена рядов (графиков), указывая адреса соответствующих ячеек, содержащих имя (лист "Данные", ячейки "A2" и "A3"). Все эти действия реализует следующий код:

With ActiveChart
        .SetSourceData Source:=Sheets("Диаграмма новая").Range(x.Address)
        .SeriesCollection.Add Source:=Sheets("Диаграмма новая").Range(y.Address)
        .SeriesCollection(1).Name = "=Данные!R2C1"
        .SeriesCollection(2).Name = "=Данные!R3C1"
    End With

Аналогично, при большем количестве графиков нужно формировать строки с непрерывными данными для построения каждого графика и, соответственно, добавлять их при построении (.SeriesCollection.Add...).
Если что-то непонятно объяснил - спрашивайте.

[Ilya87]

Что то дельного у меня не вышло!
SAS888, не могли бы вы сделать для двух диаграмм этот макрос на моём примере, а дальше бы уж всяко разобрался?

[SAS888]

Посмотрите вложение. Сделано для первых двух диаграмм. Если таких много - организуйте цикл. Будьте внимательны при обращении к ChartObjects по номеру. Можно, предварительно создать массив из номеров нужных ChartObjects и затем в цикле использовать элементы массива.

[Ilya87]

А можно ли как нибудь исправить что б, если нет значения, то он бы не "0" ставил а просто его не заносил в диаграмму?
Так то диаграмм много так что думаю попробую цикл сделать. Не подскажеле литературу где можно про это прочитать?

[SAS888]

Можно. Но я как раз наоборот, при формировании данных для построения вставляю "0" при отсутствующем значении.

a = IIf(.Cells(4, i) = "", 0, .Cells(4, i))
            b = IIf(.Cells(5, i) = "", 0, .Cells(5, i))

Если этого не нужно, то вместо этих строк всавьте

a = .Cells(4, i)
            b = .Cells(5, i)

А сделано так для того, чтобы не изменялся масштаб диаграмм по оси категорий. Т.е. если, например, несколько первых значений отсутствуют, то ось категорий автоматически будет начинаться с первого значимого значения (аналогично для последних значений).