Из SQL в Excel, построить графки

[eduard93]

Добрый день!

У меня есть статистика загрузок файлов в SQL, примерно так:

id  | download_id | date       | downloads
----+-------------+------------+----------
1   | 1           | 05.11.2011 | 10
2   | 2           | 05.11.2011 | 11
3   | 1           | 06.11.2011 | 8
4   | 2           | 06.11.2011 | 9

Загрузил я это чудо в Excel. Я с ним никогда не работал, но думал, быстро разберусь, как построить красивый график: линии, одна для каждой загрузки, по вертикали downloads, по горизонтали date.
Лучшее, что я смог сделать, это сортировать по download_id, выбрать данные только одного из них, и построить график.

Подскажите пожалуйста, как решить такой вопрос.
Спасибо.

[Казанский]

> Лучшее, что я смог сделать, это сортировать по download_id, выбрать данные только одного из них, и построить график.

Если у разных download_id могут быть разные даты, выберите тип диаграммы - Точечная.
Правый клик на графике - Исходные данные - Ряд - Добавить, выберите диапазон для следующего download_id и т.д.

Примерно так:

[EducatedFool]

Вы файл с исходными данными прикрепите (XLS или TXT, смотря что там у вас)
и подробнее опишите, что за график нужен (можете попытаться нарисовать его, чтобы мы понимали, что вам требуется)
Тогда помочь вам будет намного проще...

[eduard93]

@Казанский: то что нужно, но вот:
> выберите диапазон для следующего download_id и т.д.
их ведь много, и база большая. Как это сделать автоматом?

@EducatedFool: Примерно так:

[IgorGO]

Как это сделать автоматом?

написать макрос

[Казанский]

> их ведь много, и база большая

Не надо на одном графике делать больше 8 рядов. Нечитабельно будет.

[IgorGO]

Sub ShowGraphs()
  Dim N As Long, R1 As Long, R2 As Long
  With ActiveSheet.ChartObjects(1).Chart
    For N = 1 To .SeriesCollection.Count
    .SeriesCollection(1).Delete
    Next
    N = 1: R1 = 2
    Do
      .SeriesCollection.NewSeries
      .SeriesCollection(N).Name = "=""" & Cells(R1, 2) & """"
      R2 = R1
      Do While Cells(R2 + 1, 2) = Cells(R2, 2): R2 = R2 + 1: Loop
      .SeriesCollection(N).XValues = "=" & ActiveSheet.Name & "!R" & R1 & "C3:R" & R2 & "C3"
      .SeriesCollection(N).Values = "=" & ActiveSheet.Name & "!R" & R1 & "C4:R" & R2 & "C4"
      .SeriesCollection(N).MarkerStyle = -4105
      N = N + 1
      R1 = R2 + 1
    Loop Until Cells(R1, 2) = ""
  End With
End Sub