Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Excel (макрос) 
V
    Опции темы
Vaz007
Дата 19.10.2011, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

Репутация: нет
Всего: нет
Нужно создать макрос, который по выделенному диапазону ячеек строит любую диаграмму. Помогите пожалуйста, смотрел в интернете информацию о Range, но не могу понять как использовать.
PM MAIL Jabber   Вверх
Akina
Дата 19.10.2011, 18:05 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Создай на листе диапазон ячеек, пригодный для создания диаграммы.
Потренируйся создавать на его основе диаграммы (чтобы с первого раза получалось).
Сервис - Макрос - Начать запись.
Построй диаграмму.
Сервис - Макрос - Остановить запись.
Сервис-Макрос - Редактор VBA.
Изучай записанное макрорекордером. Если надо - вноси коррективы.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Vaz007
Дата 19.10.2011, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

Репутация: нет
Всего: нет
Цитата

Akina

Это я понимаю , мне нужно так сделать чтобы, этот макрос для любой выделенной области на этом листе строил диаграмму, а не только одной выделенной области.
PM MAIL Jabber   Вверх
Akina
Дата 20.10.2011, 07:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Цитата(Vaz007 @  20.10.2011,  00:25 Найти цитируемый пост)
мне нужно так сделать чтобы

Ну русским же по белому написано:
Цитата(Akina @  19.10.2011,  19:05 Найти цитируемый пост)
Изучай записанное макрорекордером.

Ключевое слово - ИЗУЧАЙ. А по итогам изучения
Цитата(Akina @  19.10.2011,  19:05 Найти цитируемый пост)
Если надо - вноси коррективы.




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Vaz007
Дата 20.10.2011, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

Репутация: нет
Всего: нет
Код

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 20.10.2011 (Админ)
'

'
 Worksheets("Лист1").Activate
 ActiveCell.CurrentRegion.Select
 
    Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("C6:D7"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
End Sub
Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 20.10.2011 (Админ)
'

'
    Range("C11:D12").Select
    Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("C11:D12"), PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = False
    End With
    ActiveSheet.Shapes("Диагр. 6").ScaleHeight 0.99, msoFalse, _
        msoScaleFromBottomRight
    ActiveSheet.Shapes("Диагр. 6").IncrementLeft -174#
    ActiveSheet.Shapes("Диагр. 6").IncrementTop -49.5
End Sub
Sub Макрос3()
'
' Макрос3 Макрос
' Макрос записан 20.10.2011 (Админ)
'

'
    Range("L13:M14").Select
    Charts.Add
    ActiveChart.ChartType = xl3DColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("L13:M14"), PlotBy _
        :=xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory).HasTitle = False
        .Axes(xlSeries).HasTitle = False
        .Axes(xlValue).HasTitle = False
    End With
End Sub

Как мне написать код выделенных ячеек?
PM MAIL Jabber   Вверх
Akina
Дата 20.10.2011, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Каждый из трёх макросов начинается как раз командой выбора некоторого диапазона.
Корректируй.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Vaz007
Дата 20.10.2011, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 13.5.2009
Где: Москва

Репутация: нет
Всего: нет
Код

iSelectionAddress = ActiveWindow.RangeSelection.Address
Range(iSelectionAddress).Select

вот так получается)
PM MAIL Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0529 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.