[решено] excel 2007

[cergeech]

Всем привет. У меня проблема следующего характера. Может поможет кто сможет.
Есть книга в Excel 2007. На листе 1 есть таблица, на листе 2 есть таблица и т.д. Структура этих таблиц одинакова, разные только данные. Помогите с макросом, который строит диаграммы по данным таблицы, которая расположена на на своем листе.

[Iska]

cergeech, действуйте примерно так:

1. Запишите макрос, строящий диаграмму по данным первого рабочего листа на первом же листе, макрорекордером.
2. В полученном макросе поправьте в коде все ссылки на первый рабочий лист так, чтобы они ссылались на активный рабочий лист.
3. Выделите нужный рабочий лист, запустите макрос на исполнение.

Например, я записал макрорекордером построение гистограммы по данным первого рабочего листа. Получился примерно такой код:
Option Explicit

Sub Макрос1()
Range("A1:B7").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A1:B7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

Здесь две привязки к конкретному рабочему листу, выделенные мною красным цветом. Поправим код записанного макроса следующим образом:
Option Explicit

Sub Макрос1()
Dim objWorksheet As Worksheet

Set objWorksheet = ActiveWorkbook.ActiveSheet

Range("A1:B7").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=objWorksheet.Range("A1:B7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=objWorksheet.Name
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

После этого достаточно выделить потребный рабочий лист и запустить макрос на исполнение: на активном рабочем листе будут выделены данные, и построена гистограмма — на этом же рабочем листе.

Я привёл пример, как можно наиболее простым способом получить автоматизацию повторяющихся действий при минимальных знаниях программирования на VBA и объектной модели Microsoft Excel. Более правильным подходом является корректировка полученного макроса в сторону его большей гибкости. Например, мы можем не помечать диапазон ячеек из макроса:
Range("A1:B7").Select
а оставить пометку диапазона на откуп пользователю и просто использовать уже имеющееся выделение.