Построить диаграмму vba

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Построить диаграмму vba (Макросы Sub)

bozanov

Дата: Четверг, 19.12.2013, 15:35 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel для Mac

Есть таблица средней зарплаты за разные годы типа:

[vba]

Код

2008  | Ит сфера                  | 1000 eur
           | Сельское хозяйство  | 600 eur
           | Логистика                 | 800 eur
2009  | Ит сфера                  | 1100 eur
           | Сельское хозяйство  | 750 eur
           | Логистика                 | 860 eur
2010  | Ит сфера                  | 1370 eur
           | Сельское хозяйство  | 900 eur
           | Логистика                 | 1000 eur
2011  | Ит сфера                  | 1500 eur
           | Сельское хозяйство  | 700 eur
           | Логистика                 | 800 eur
2012  | Ит сфера                  | 1500 eur
           | Сельское хозяйство  | 700 eur
           | Логистика                 | 800 eur

[/vba]

есть форма с ListBox1 и ListBox2 в котроых названия отраслей (Ит сфера, Сельское хоз и Логистика). При выборе отрасли в каждом ListBox при нажати кнопки нужно построить диаграму изменения зарплат этих двух отраслей. Я так понимаю начать нужно с поиска соответсвия на заданном range?

[vba]

Код

With Range("нужный рендж")
        Set Result1 = .Find(What:=first, LookIn:=xlValues)
        If Not Result1 Is Nothing Then
            firstAddress = Result1.Address
            Do
                ' и тут как-то нужно взять данные что в ячейке справа?? поместить в массив какой нибудь??
                Set Result1 = .FindNext(Result1)
            Loop While Not Result1 Is Nothing And Result1.Address <> firstAddress
        End If
End With

[/vba] А что дальше? или как то подругому можно?
Помогите пожалуйста

Есть таблица средней зарплаты за разные годы типа:

[vba]

Код