графики

[Евгений_12]

Нужна помощь профессионалов.

Вопрос такой : в excel есть ячейка (A1) в которой постоянно обновляются данные . Существует ли возможность средствами excel
и VBA выводить график изменения данных в (A1) по Y (от 0 ...10000)
по X (время от суток до 3 суток) ( Выборка данных из A1 от 1раз в минуту до 1 раз в 15 минут) Нужна помощь если да....

Заранее Всем большое спасибо и удачи.

[doober]

Да возможно.
Два варианта
Это либо котировки,либо запись параметров каких то процессов
С вас файлик с пояснениями в динамике.

[Евгений_12]

Существует ячейка (A1) в эту ячейку пишутся данные по DDE
(реально меняются в on-line) Хотелось бы видеть эти данные в виде
временного графика (данные по Y меняются от 0 до 10000)
(а по X 7дней с интервалом 1 раз в 5 минут) Старые данные вытесняются новыми а на графике всегда 7 последних дней.

[Евгений_12]

Иными словами хотелось бы архивировать данные (постоянно меняющиеся
в ячейке A1) в виде графика (записывать новые данные раз в 5 минут)

[doober]

Попробуйте так

Sub S_Time()

NextTick = Now + TimeValue("00:05:00")
Application.OnTime NextTick, "S_Time"
With Sheets("Лист1")
 .Range("A9") = Now
.Range("B9") = .Range("A1")
 .Range("A9:B9").Insert
  .Range("A2026:B2026").ClearContents
End With

Подкорректировал макрос.Ограничил на 7 суток
 
End Sub

[Евгений_12]

Код работает таблица заполняется , но в графике данные не обновляются?

Вхожу в "исходные данные" -- "ряд1" (весь диапазон данных)--'подпись ось x"(весь диапазон времен) давлю OK данные обновляются только раз
Может где то нужно галки расставить для обновления графика?

[doober]

Так должно работать

Sub S_Time()
Dim Diag As Shape
NextTick = Now + TimeValue("00:05:00")
Application.OnTime NextTick, "S_Time"
With Sheets("Лист1")
 .Range("A9") = Now
.Range("B9") = .Range("A1")
 .Range("A9:B9").Insert
  .Range("A2026:B2026").ClearContents
  
Set Diag = .Shapes("Диаграмма 1")
 
 Diag.Chart.SeriesCollection(1).XValues = "=Лист1!$A$10:$A$2026"
   Diag.Chart.SeriesCollection(1).Values = "Лист1!$B$10:$B$2026"
  Set Diag = Nothing
End With

End Sub

[Евгений_12]

Пробовал что то код не работает останавливается на строке
Set Diag=.Shapes("Диаграмма 1")

Ошибка: Компонент суказанным именем не найден

(Хотя "Диаграмма 1" реально есть на Листе 1) ???

[doober]

Проблемма может быть только в имени

[Евгений_12]

Файл открыть не могу.

Название диаграммы не то? Она сама его присваивает!

?????