Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / построением диаграммы типа "график" в excel / 11 сообщений из 11, страница 1 из 1
03.04.2008, 22:17
    #35234393
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

Всем программистам привет! Respect! Помогите решить задачку, связанную с построением диаграммы типа "график". Например есть табла "test.dbf" из двух полей(а, b), содержащая 30 записей, необходимо построить диаграмму по этим полям(по абсциссе a, по ординате b). Подскажите как быть то?

P.S. поиск дал не густо, на фоксклубе.ру нашел(правда малость не то), но очень невнятно и мало.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2008, 01:12
    #35234541
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

и еще маленький вопросик: в коде есть такая строка:
Код: plaintext
pub_OleAp.WorkBooks().Run("Start")
обяъявляется соот - но:
Код: plaintext
1.
2.
3.
LOCAL pub_OleAp as Excel.Application		

pub_OleAp=CREATEOBJECT('Excel.Application')
pub_OleAp.Visible=.T.
все писалось на 6.0, я смотрю в 9.0, поэтому подключил интелл. подсказку, но такого метода как run я не нашел? Что это такое? Подскажите как быть то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2008, 09:21
    #35234763
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
1. Посмотри аттач в теме
2. Run() - это запуск макроса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2008, 11:40
    #35235224
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

спасибо, понятно по поводу run, а вот по поводу диаграммки не очень. Сходил по ссылке, кроме excel - ских документов ничего не нашел(мне нужно примерное такое сделать как у тех ребят с фоксклаба.ру), а мне необходимо исходник на "лисе"(хотя бы набросок), чтобы подобное произвести. Подскажите как быть то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2008, 13:11
    #35235647
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
И сюда до кучи:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
 LOCAL loXls as Excel.Application, loBook as Excel.Workbook, loSheet as Excel.Worksheet  
  LOCAL loChart as Excel.Chart  
    
  #DEFINE xlLineMarkers	 65 	  
  #DEFINE xlLocationAsObject	 2 	  
  #DEFINE xlColumns	 2 	  
    
    
  loXls = CREATEOBJECT("Excel.Application")  
  loXls.Visible = .T.  
  loBook = loXls.Workbooks.Add()  
  loSheet = loBook.Worksheets( 1 )  
    
  FOR i =  1  TO  10   
  	loSheet.Cells(I, 1 ).Value=I  
  	loSheet.Cells(I, 2 ).Value= 11 -I  
  NEXT  
    
  loChart = loXls.Charts.Add  
  loChart.ChartType= xlLineMarkers  
  loChart.Location(xlLocationAsObject, loSheet.Name)  
    
  loXls.ActiveChart.SetSourceData(loSheet.Range('B1:B10'))  
  loXls.ActiveChart.SeriesCollection( 1 ).XValues = "="+ loSheet.Name + "!$A$1:$A$10"
Макрорекордер Excelя в помощь. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2008, 20:57
    #35241030
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!
ругается лис на это:
Код: plaintext
loXls.ActiveChart.SeriesCollection( 1 ).XValues = "="+ loSheet.Name + "!$A$1:$A$10"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2008, 20:59
    #35241033
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

По двум полям нужно построить диаграмму(дата и курс). Пример диаграммы см. в файле. Подскажите как быть то? Сам начал делать так:

Код: plaintext
1.
2.
3.
4.
5.
6.
LOCAL loChart as Excel.Chart  
  loChart = loExcel.Charts.Add  
  loChart.ChartType = xlLineMarkers  
  loChart.Location(xlLocationAsObject, loSheet.Name)    
    
  loExcel.ActiveChart.SetSourceData(loSheet.Range('E7:E25'))    
  loExcel.ActiveChart.SeriesCollection( 1 ).XValues = "="+ loSheet.Name + "!$A$7:$A$25"
но упал на XValues.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2008, 21:04
    #35241041
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

и как еще можно будет сделать, чтобы значение по оси ординат:
max - 38
min - 23.
При необходимости можно будет заменить, если будет обвал доллара или рост еврика.
а по оси абсцисс:
от 01-01-2007, до даты, указанной на форме(обычно текущая дата, хранится в переменной). Подскажите как быть то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2008, 11:08
    #35241823
AleksMed
AleksMed
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
FasterHarder
Код: plaintext
I started in 1983, in 2008 i still on a case!

По двум полям нужно построить диаграмму(дата и курс). Пример диаграммы см. в файле. Подскажите как быть то? Сам начал делать так:

Код: plaintext
1.
2.
3.
4.
5.
6.
LOCAL loChart as Excel.Chart  
  loChart = loExcel.Charts.Add  
  loChart.ChartType = xlLineMarkers  
  loChart.Location(xlLocationAsObject, loSheet.Name)    
    
  loExcel.ActiveChart.SetSourceData(loSheet.Range('E7:E25'))    
  loExcel.ActiveChart.SeriesCollection( 1 ).XValues = "="+ loSheet.Name + "!$A$7:$A$25"
но упал на XValues.
Ну и почему там пустые даты присутствуют, а?
Либо проставь что то, либо очисть ячейки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.04.2008, 15:09
    #35242777
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

прошу прощения, а что значит очистить ячейки? Подскажите ламеру? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2008, 11:25
    #35244749
FasterHarder
FasterHarder
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
построением диаграммы типа "график" в excel
Код: plaintext
I started in 1983, in 2008 i still on a case!

на самом деле дело не в пустых датах ибо я забил их текущей датой, но ошибка осталась. Подскажите как быть то?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / построением диаграммы типа "график" в excel / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 807ms
Закрыть
start [/forum/search_topic.php?author=Alex+Guest&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 8ms
get forum list:
 9ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 49ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 668ms
total:  807ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]