ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / построением диаграммы типа "график" в excel
11 сообщений из 11, страница 1 из 1
построением диаграммы типа "график" в excel
    #35234393
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FasterHarder
Участник
Код: plaintext
I started in 1983, in 2008 i still on a case!

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

P.S. поиск дал не густо, на фоксклубе.ру нашел(правда малость не то), но очень невнятно и мало.
...
Рейтинг: 0 / 0
03.04.2008, 22:17
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35234541
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FasterHarder
Участник
Код: 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, 01:12
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35234763
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
1. Посмотри аттач в теме
2. Run() - это запуск макроса
...
Рейтинг: 0 / 0
04.04.2008, 09:21
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35235224
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FasterHarder
Участник
Код: plaintext
I started in 1983, in 2008 i still on a case!

спасибо, понятно по поводу run, а вот по поводу диаграммки не очень. Сходил по ссылке, кроме excel - ских документов ничего не нашел(мне нужно примерное такое сделать как у тех ребят с фоксклаба.ру), а мне необходимо исходник на "лисе"(хотя бы набросок), чтобы подобное произвести. Подскажите как быть то?
...
Рейтинг: 0 / 0
04.04.2008, 11:40
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35235647
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
И сюда до кучи:
Код: 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
04.04.2008, 13:11
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35241030
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FasterHarder
Участник
Код: 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:57
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35241033
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
07.04.2008, 20:59
| Ответить | Цитировать | Написать  
построением диаграммы типа "график" в excel
    #35241041
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FasterHarder
Участник
Код: plaintext
I started in 1983, in 2008 i still on a case!

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

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

на самом деле дело не в пустых датах ибо я забил их текущей датой, но ошибка осталась. Подскажите как быть то?
...
Рейтинг: 0 / 0
09.04.2008, 11:25
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / построением диаграммы типа "график" в excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35241030&tid=1587914]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 198ms
total:  351ms
созд. / загр.: 351ms
x
x
Закрыть


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