ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос для посторение графиков в EXCEL
5 сообщений из 5, страница 1 из 1
Макрос для посторение графиков в EXCEL
    #39549308
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
что нужно прописать, чтобы график строился по такой логике
если данные в ячейках есть - заносить в график, если нет то не заносить???

т.е. таблица с которых берутся данные для графика могут меняться в кол-ве строк

вот код, был построен автоматич. через запись макросов
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
Range("A8:D23").Select
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
    ActiveChart.SetSourceData Source:=Range("'?aci.AA Oracle'!$A$8:D23")
    ActiveChart.ChartTitle.Select
    ActiveChart.ChartTitle.Text = "resultat"
    Selection.Format.TextFrame2.TextRange.Characters.Text = _
        "resultat"
    With Selection.Format.TextFrame2.TextRange.Characters(1, 26).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 18).Font
        .BaselineOffset = 0
        .Bold = msoFalse
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(89, 89, 89)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 14
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Spacing = 0
        .Strike = msoNoStrike
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(19, 8).Font
        .BaselineOffset = 0
        .Bold = msoFalse
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(89, 89, 89)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 14
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Spacing = 0
        .Strike = msoNoStrike
    End With
    ActiveChart.Legend.Select
    ActiveChart.Legend.LegendEntries(2).Select
    Selection.Delete
...
Рейтинг: 0 / 0
08.11.2017, 04:47
| Ответить | Цитировать | Написать  
Макрос для посторение графиков в EXCEL
    #39549309
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
щас например 25 строк в таблице .... график по ним строится
а если завтра их будет скажем 30 график построится но полных данных не будет
...
Рейтинг: 0 / 0
08.11.2017, 04:49
| Ответить | Цитировать | Написать  
Макрос для посторение графиков в EXCEL
    #39549343
Фотография descent52
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
descent52
Участник
SAS2014что нужно прописать, чтобы график строился по такой логике
если данные в ячейках есть - заносить в график, если нет то не заносить???

т.е. таблица с которых берутся данные для графика могут меняться в кол-ве строк

вот код, был построен автоматич. через запись макросов
Код: vbnet
1.
2.
3.
4.
Range("A8:D23").Select
    ActiveSheet.Shapes.AddChart2(297, xlColumnStacked100).Select
    ActiveChart.SetSourceData Source:=Range("'?aci.AA Oracle'!$A$8:D23")
...


вставляй цикл подсчёта непустых значений ячеек и подсовывый диапазон
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
i = 8
While Cells(i, 2).Value <> ""
    i = i + 1
    Cells(i, 2).Select
Wend
MsgBox (Str(i - 1))
tmp = "A8:D" + Trim(Str(i - 1))
Range(tmp).Select
...
Рейтинг: 0 / 0
08.11.2017, 08:18
| Ответить | Цитировать | Написать  
Макрос для посторение графиков в EXCEL
    #39551946
SAS2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAS2014
Участник
Работает!!!
...
Рейтинг: 0 / 0
13.11.2017, 09:19
| Ответить | Цитировать | Написать  
Макрос для посторение графиков в EXCEL
    #39562926
Bobgos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bobgos
Гость
SAS2014,
а нужно макросом? простая диаграмма пропускает значения, а диапазон можно указать с запасом
...
Рейтинг: 0 / 0
02.12.2017, 01:44
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос для посторение графиков в EXCEL
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2172473]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 285ms
total:  412ms
созд. / загр.: 412ms
x
x
Закрыть


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