Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос для посторение графиков в EXCEL / 5 сообщений из 5, страница 1 из 1
08.11.2017, 04:47
    #39549308
SAS2014
SAS2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для посторение графиков в EXCEL
что нужно прописать, чтобы график строился по такой логике
если данные в ячейках есть - заносить в график, если нет то не заносить???

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

вот код, был построен автоматич. через запись макросов
Код: 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:49
    #39549309
SAS2014
SAS2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для посторение графиков в EXCEL
щас например 25 строк в таблице .... график по ним строится
а если завтра их будет скажем 30 график построится но полных данных не будет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.11.2017, 08:18
    #39549343
descent52
descent52
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для посторение графиков в EXCEL
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
| Ответить | Цитировать | Написать  
13.11.2017, 09:19
    #39551946
SAS2014
SAS2014
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для посторение графиков в EXCEL
Работает!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.12.2017, 01:44
    #39562926
Bobgos
Bobgos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Макрос для посторение графиков в EXCEL
SAS2014,
а нужно макросом? простая диаграмма пропускает значения, а диапазон можно указать с запасом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос для посторение графиков в EXCEL / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 407ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172473]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 283ms
total:  407ms
x
x
Закрыть


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