Как построить нестандартную диаграмму из скрипта?

есть табличка:

Дата Цена
Февраль-04 45000
Февраль-04 45000
Март-04 45000
Март-04 5400
Март-04 45000
Февраль-04 45000
Февраль-04 45000
Март-04 45000
Март-04 13500

нужен график, чтоб по оси Х были месяца, а по Y соответственно цена, а значения должны быть суммы по месяцам.
Стандартный чарт не позволяет вроде построить таким образом...
в скрипте создать 2 массива и скинуть в них данные не проблема(в один - месяцы, в другой суммы по месяцам), но как исходя из данных массива построить диаграмму, ведь Эксель позволяет вроде строить их только по ячейкам?
а временно создавать ряды по данным этих массивов тоже не хочется, хотя как вариант.

и еще: по оси Y макс. значение должна быть опред. цифра, которая имеется. Реально задать максимум по по оси Y ??

может кто-то имееет опыт построения графиков по массивам?

0

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

0

Спасибо конечно за ответ и за желание помочь...
Но ответ бесполезный...
здесь так-то форум по VBA и хотелось бы услышать конкретные предложения, увидеть какой-то код, если это есть, а не совет на какой оси что расположить - у меня же написано четко про оси
наверняка кто-то же строил график скриптом...

0

Да не сердись ты так :-). Выдалось немного свободного времени и
я построил график. Макрорекордером записал, а потом немного отредактировал код. Вот что получилось:
Sub Макрос2()
Dim Ch1(), ch2(), Labx() As String
Dim a As String
Dim j As Integer

ReDim Ch1(I)
ReDim ch2(I)
ReDim Labx(I)
x = 0
step = 3.14 / I
For j = 0 To I
Ch1(j) = Replace(CStr(Round((Sin(x)), 2)), ',', '.')
ch2(j) = j * j * j
Labx(j) = CStr(j)
x = x + step
Next

Charts.Add
Charts(Charts.Count).Name = 'Проба'
With Charts('Проба')
.HasTitle = True
.ChartTitle.Text = 'Проба'
.ChartType = xlLineMarkers
.SeriesCollection(1).XValues = Labx()
.SeriesCollection(1).Values = '={' & Join(Ch1(), ';') & '}'
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'Значения Х'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'Значения У1'
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = '={' & Join(ch2(), ';') & '}'
.SeriesCollection(2).AxisGroup = 2
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = 'Значкния У2'
.Legend.Position = xlBottom
' .Location Where:=xlLocationAsObject, Name:='Лист1'
End With

End Sub

Так для идеи построил, может кто подскажет как лучше.
Ведь на то и форум, что бы было о чем потрещать.
Удачи!

0

Еще Const I=20 забыл написать ;-)

0

Максимум по оси можно задать так:
with ...
...
.Axes(xlValue, xlSecondary).MaximumScale = 8500
end with
в данном примере для вспомогательной оси.
Это то что тебе было нужно?

0

Слушай, РИАЛ, СУПЕР!!! ))
ТЫСЯЧУ извинений ))

я думаю этот код не одному мне пригодится, потому что в форуме я много видел просьб поделиться кодом как строить график из скрипта.
ты еще и из массивов сделал, СУПЕР!!!

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

СПАСИБ огромный!!!!!!!!!!

0

Ради бога лишь бы в радость было
Я вчера из скрипта строил график в первый раз в жизни, т.к. мне это никогда не было нужно.С передачей массива парился минут 15. Кстати для информации, если массив из Integer его преобразовывать не нужно, его ексель так съедает. Удачи!!!

0