ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / диаграмма и активная ячейка
16 сообщений из 16, страница 1 из 1
диаграмма и активная ячейка
    #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:13
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36809711
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Так макрос уже у вас есть, просто уберите первую строку.
...
Рейтинг: 0 / 0
25.08.2010, 10:38
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36809755
vladAnco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vladAnco
Гость
ага макрос есть... да первую строчку можно убрать - тупанул
просто
Код: plaintext
  ActiveChart.SetSourceData Source:=Range("Лист2!$B$6:$J$6")
это строчка менятся будет, и зависть будет от строки, на которой выделена ячейка до запуска макроса
...
к примеру если выделил ячейку "Гаранкина Виолета" то построит диаграмму по строке
"Гаранкина Виолета 362631 363861 549635 479509"
если выделил ячейку "Шкуро Наталья" то построит диаграмму по строке
"Шкуро Наталья 513354 549109 736499 601434"
...
Рейтинг: 0 / 0
25.08.2010, 10:53
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813028
vladAnco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vladAnco
Гость
Ни у кого нету идей?(
или может задаче не имеет решения
...
Рейтинг: 0 / 0
26.08.2010, 14:19
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813044
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vladAnco,

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

Кто мешает Range("Лист2!$B$6:$J$6") заменить на Selection?
...
Рейтинг: 0 / 0
26.08.2010, 14:25
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813163
vladAnco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vladAnco
Гость
чесно говоря не очень понимаю как( не знаком селектион... покапался в хелпе, всего 2 примера и далеко не по моей теме(
...
Рейтинг: 0 / 0
26.08.2010, 14:54
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #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:13
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813258
vladAnco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vladAnco
Гость
спс большое
...
Рейтинг: 0 / 0
26.08.2010, 15:18
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #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:24
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813278
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vladAnco,

Смотри
.Rows.Count
.Row
.Cols.Count
.Col
...
Рейтинг: 0 / 0
26.08.2010, 15:27
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #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:01
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813421
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vladAnco,

запись макроса умеешь?
...
Рейтинг: 0 / 0
26.08.2010, 16:02
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #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:04
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813446
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну так включи запись макроса, сделай такую диаграмму, какая нравится и смотри, что получилось. Тип - это же не единственный параметр.
...
Рейтинг: 0 / 0
26.08.2010, 16:10
| Ответить | Цитировать | Написать  
диаграмма и активная ячейка
    #36813459
vladAnco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vladAnco
Гость
Shocker.Pro,

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

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


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