nick7inc
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У диаграмы формула для графика выглядит так:
=РЯД('G:\Documents and Settings\Nikolay\Рабочий стол\SomeOneSomeOneSomeoneSomeone\[Книга1.xls]Лист1'!$C$3;'G:\Documents and Settings\Nikolay\Рабочий стол\SomeOneSomeOneSomeoneSomeone\[Книга1.xls]Лист1'!$B$4:$B$8;'G:\Documents and Settings\Nikolay\Рабочий стол\SomeOneSomeOneSomeoneSomeone\[Книга1.xls]Лист1'!$C$4:$C$8;1)
, а результат нажатия на кнопку вот так:
=SERIES('G:\Documents and Settings\Nikolay\Рабочий стол\SomeOneSomeOneSomeoneSomeone\[Книга1.xls]Лист1'!$C$3,'G:\Documents and Settings\Nikolay\Рабочий стол\SomeOneSomeOneSomeoneSomeone\[Книга1.xls]Лист1'!$B$4:$B$8,,1)
Нетрудно заметить, что съеден третий параметр.
Код кнопки:
Код:
Private Sub CommandButton1_Click()
Dim s As String, ch As Chart, ss As series
Set ch = Лист1.ChartObjects("Chart 2").Chart
Set ss = ch.SeriesCollection(1)
s = ss.Formula
MsgBox s
Debug.Print s
End Sub |
|
Всего записей: 1138 | Зарегистр. 04-05-2007 | Отправлено: 23:32 15-04-2008 | Исправлено: nick7inc, 23:13 16-04-2008 |
|
