Вопрос : VBA для множественного творения диаграммы using SheetsFound

Hi, мне нужен некоторый специалист, котор advice.

I в настоящее время делали электронная таблица в котором I input некоторые данные от внешнего рапорта; макрос после этого бежится для того чтобы проанализировать данные и он возвращает что-нибыдь не соотвествует критери по комплекта к Sheet2 & виды в макросе order.
The тогда создают платы для каждого из по-разному имен клиента зарегистрированных в пределах sheet1, в заказе даты (по мере того как рапорт фактическ показывает цели над месяцем).

I am вставило теперь по мере того как я хотел был бы макрос автоматически создал бы диаграммы scatter в пределах каждой из плат показывая представление клиента над месяцем - я не могу показаться, что сделал это с что-нибыдь только активно лист - и макрос должно работать на основание, котор он не знает сколько листы (так он закрепить петлеть) или имена этих листов (смысли он идет завершить sheetfound).

I прикрепляло пример как лист смотрел бы раз макрос побежал к пункту где я буду помощью now.

Any больш был бы оценен. filename " class= >

 Example.xlsm (34 KB) яваскрипт " href= " " attachmentDetails class= (тип архива детали) >
l class= " >
Example.xlsm (34 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) >
l class= " >
Example.xlsm (34 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) class= >Example
>
class=

Ответ : VBA для множественного творения диаграммы using SheetsFound

О'кейо, я принял ваше значение sheet1 от вашего прикрепленного workbook и положил его в новый workbook.  Я после этого скопировал ваше Кодего и побежал оно.  Оно побежал успешно с «сделанным» msgbox.  Оно создал листы Client2 и Client3 Client1 с данными.  Однако, никакие из этих листов имеют значения в колонке d.

Я после этого побежал моя подводная лодка ниже.  Она установила диаграммы на каждом рабочий лист клиента using A2: A32, D2: D32 как datasource на каждом.

Возможно я misunderstanding….

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Sub диаграммы ()
Тусклое sht как рабочий лист
Тусклый wb как Workbook
  
Установите wb = ActiveWorkbook
Для каждого sht в wb. Листы
    Если InStr, то (1, sht. Имя, «клиент») > 0 после этого
        При ое sht.ChartObjects.Add (: =100, ширина: =375, верхняя часть: =75, высота: =225)
            . Источник Chart.SetSourceData: =sht. Ряд («A2: A32, D2: D32»)
            . Chart.ChartType = xlXYScatter
        Конец с
    Закончитесь если
Затем
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us