Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / диаграмма и активная ячейка / 16 сообщений из 16, страница 1 из 1
25.08.2010, 10:13
    #36809638
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
всем привет...
проблема такая -
нужно построить диаграмму по запуску макроса... при это известно что данные хранятся в известной строке например с "b6" по "j6"... и строить её надо по активной строке, тесть выделен первый или какой то другой элемент строки, и по этой строке нужно построить диаграмму...

Код: plaintext
1.
2.
3.
4.
    Range("B6:J6").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Лист2!$B$6:$J$6")
    ActiveChart.ChartType = xlLineMarkers

Гаранкина Виолета 362631 363861 549635 479509
Шкуро Наталья 513354 549109 736499 601434

вот пример таблицы, действие оператора, выделяет Шкуро, включает макрос, а макрос уже определяет какая это строка в экселе и строит от нужного столбцы в этой строке диаграмму.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.08.2010, 10:38
    #36809711
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Так макрос уже у вас есть, просто уберите первую строку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.08.2010, 10:53
    #36809755
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
ага макрос есть... да первую строчку можно убрать - тупанул
просто
Код: plaintext
  ActiveChart.SetSourceData Source:=Range("Лист2!$B$6:$J$6")
это строчка менятся будет, и зависть будет от строки, на которой выделена ячейка до запуска макроса
...
к примеру если выделил ячейку "Гаранкина Виолета" то построит диаграмму по строке
"Гаранкина Виолета 362631 363861 549635 479509"
если выделил ячейку "Шкуро Наталья" то построит диаграмму по строке
"Шкуро Наталья 513354 549109 736499 601434"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 14:19
    #36813028
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Ни у кого нету идей?(
или может задаче не имеет решения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 14:25
    #36813044
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
vladAnco,

Я думал, что задача уже решена.

Кто мешает Range("Лист2!$B$6:$J$6") заменить на Selection?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 14:54
    #36813163
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
чесно говоря не очень понимаю как( не знаком селектион... покапался в хелпе, всего 2 примера и далеко не по моей теме(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 15:13
    #36813236
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Макрос2()

Dim Ch As Chart, Sel As Range
Set Sel = Selection
Set Ch = Charts.Add
Ch.ChartType = xlLineMarkers
Ch.SetSourceData Source:=Sel

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 15:18
    #36813258
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
спс большое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 15:24
    #36813272
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
слущай а я могу узнать координаты одной ячейки, если
Set Sel = Selection
окажется 1 ячейка как мне можно узнать её "cell(?,?)"
и можно будет ли потом самому переписать
sel = Range(Cells(i, j), Cells(i, j+5)).
i,j - любые
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 15:27
    #36813278
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
vladAnco,

Смотри
.Rows.Count
.Row
.Cols.Count
.Col
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 16:01
    #36813409
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Sub()

Dim Ch As Chart, Sel As Range
Dim sh  As Worksheet
Set sh = ActiveWorkbook.Worksheets("l2")
Set Sel = Selection
Set Ch = Charts.Add
i = Sel.Row
j = Sel.Column


Ch.SetSourceData Source:=Range(sh.Cells(i, j), sh.Cells(i, j +  8 ))
Ch.ChartType = xlLineMarkersStacked
End Sub

вот модифицировал код так, единственный косяк это почему то рисует не очень красивую диаграмму... на неё только 1 ось(y), это мои числа, а в розрези времяни(оси X), ничего нету... менял чар тайп( не помогло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 16:02
    #36813421
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
vladAnco,

запись макроса умеешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 16:04
    #36813429
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Shocker.Pro,

да, я всегда так начинаю свою работу)

Код: plaintext
1.
2.
3.
   Range("B6:J6").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Лист2!$B$6:$J$6")
    ActiveChart.ChartType = xlLineMarkers

вот что тогда выдал мне запись макроса... ну я модифицировал чучуть, впринцепе рейндж указываю верно( но с осью X не могу понять что не так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 16:10
    #36813446
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Ну так включи запись макроса, сделай такую диаграмму, какая нравится и смотри, что получилось. Тип - это же не единственный параметр.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 16:13
    #36813459
vladAnco
vladAnco
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
Shocker.Pro,

хорошо... спс за помошь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2010, 16:30
    #36813513
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
диаграмма и активная ячейка
vladAnco
Код: plaintext
Sub Sub()

душевно.
не сразу заметил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / диаграмма и активная ячейка / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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