как задать источник данных для диаграммы

[Bape}l{ka]

привет всем!))

столкнулась со следующим вопросом:
подскажите пожалуйста, как задать источник данных для диаграммы, учитывая, что это несмежный диапазон ячеек

нужно, чтобы в данные попадали, названия месяцев (2-я строка) и значения по строке ниже (например, по 4-й строке), соответствующие месяцам..
таким образом, не нужно учитывать скрытые столбцы с % и столбцы "Итого", "Периодов" и "%"
подскажите, как задать такой диапазон??

ПРИМЕР ФАЙЛА СМ. НИЖЕ

конечно все прекрасно работает, если скрыть все ненужные столбцы, но...

например, можно ли использовать в качестве источника данных Массив уже самих значений, а не ячеек?? если да, то как это прописать в макросе?

[gluk_fm]

Module3.tt

Посмотрите Вы просто скорее всего забыли обьявить что За данные вы хотите вставлять (числовые, текстовые)

[Bape}l{ka]

gluk_fm
не совсем поняла, что вообще делает макрос (ваш ttt ?)

вот обновленный пример (в прошлый раз забыла лишние листы удалить, чтоб с толку не сбивали)

Diagram_2.rar

[gluk_fm]

В приложении я немного подкорректировал. В зависимости что за данные Вам надо (посмотрите как делается на примере "pp"). А если Вы хотите непосредственно числа загружать через лист бокс, то там тоже есть пример взятия параметра и передачи в модуль построения.

[Bape}l{ka]

Cпаибо gluk_fm, я уже сама подумала, что диапазон можно составлять через &, буквы и цифры.. ну а если я сначала определяю нужный мне диапазон, то как потом мне его прописать в SourceData???

Set DiagrRng1 = ActiveSheet.Range(Cells(2, FirstCol), Cells(2, MaxCol)) '.SpecialCells.Visible  '.Value
DiagrRow = TextBox1.Value
Set DiagrRng2 = ActiveSheet.Range(Cells(DiagrRow, FirstCol), Cells(DiagrRow, MaxCol))

Set Diagram_ = Charts.Add
Diagram_.SetSourceData Source:=Worksheets(SheetName). _
        Range(DiagrRng1, DiagrRng2) ' ТУТ БЕРЕТСЯ ВЕСЬ ДИАПАЗОН МЕЖДУ 2-мя СТРОКАМИ, А МНЕ НУЖНЫ ТОЛЬКО ЭТИ 2 СТРОКИ

П.С. у меня 2003 эксель

[gluk_fm]

Просто через запятую, параметром можете брать значение с формы тексбокс
Это как раз то что я Вам описывал в модуле pp. Там есть синтаксис который Вам и нужно реализовать.

[gluk_fm]

pp = "AD" & ff1 & ":AZ" & ff1 ' ff1-это параметр который передаётся с листбокс(значение которое Вы вводите в форме)
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range( _
"AD2:AZ2," & pp)

Или как-то так:
ActiveChart.SeriesCollection(1).Val ues = _
"='Лист1'!$AD$2;'Лист1'!$AF$2;'Лист 1'!$AH$2;'Лист1'!$AJ$2;'Лист1'!$AD$ & " & ff1 & ";'Лист1'!$AF$& " & ff1 & ";'Лист1'!$AH$& " & ff1 & ";'Лист1'!$AJ$& " & ff1 & ""

[Bape}l{ka]

да, я поняла)
просто у меня количество столбцов меняется, и я хотела сделать их переменной, т.е. это цифра, если через Columns.Count определять, а не буква Т_Т

подскажите тогда пожалуйста, как мне получить буквенное значение столбца, когда у нас есть числовое??

MaxCol = Cells(1, ActiveWorkbook.ActiveSheet.Columns.Count).End(xlToLeft).Column

т.е. нужны только буквы без номера строки

[gluk_fm]

Попробуйте переключится в режим когда столбцы не в буквенном а числовом значении отображаются. Я думаю тогда Вам будет полегче написать макрос по перебору столбцов и выору только неоходимыхю

[Bape}l{ka]

спасибо за совет, как-то даже не подумала о таком