ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / EXCEL, VBA, таблица
9 сообщений из 9, страница 1 из 1
EXCEL, VBA, таблица
    #38201304
fr33z3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fr33z3
Гость
Добрый день!
Имеем таблицу такого типа (предположим - фактические продажи от плана):
Код: html
1.
2.
3.
4.
5.
6.
7.
    Дата            Продукт 1              Продукт 2             Продукт 3                  Продукт 4
2013.01.01             100%                   80%                     30%                     100%
2013.01.02              90%                  100%                    100%                      25%
2013.01.03             100%                   80%                     30%                     100%
2013.01.04              90%                  100%                    100%                      25%
2013.01.05              90%                  100%                    100%                      25%
2013.01.06             100%                   80%                     30%                     100%


По первому столбцу на всякий случай уточню отдельно:
 
т.к. вся эта таблица сама заполняется посредством макроса, который открывает другие файлы, которые именованы именно таким форматом даты ГГГГ.ММ.ДД, то значения в этом столбце - в текстовом формате, что необходимо для нормальной работы макроса.


Задача - написать макрос для построения графиков. Необходимо иметь возможность выбрать продукт, по которому нужен график, и диаппазон дат, для которых график будет построен.
Мои мысли:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
1. Sub НарисоватьГрафик()
2.    ActiveSheet.Shapes.AddChart.Select
3.    ActiveChart.ChartType = xlLine
4.    ActiveChart.SeriesCollection.NewSeries
5.    ActiveChart.SeriesCollection(1).Name = "=Продажи!$B$1"
6.    ActiveChart.SeriesCollection(1).Values = "=Продажи!$B$2:$B$5"
7.    ActiveChart.SeriesCollection(1).XValues = "=Продажи!$A$2:$A$5"
8. End Sub



Очевидно, нужно иметь возможность просто подставлять переменные в 5,6,7 строчки.
Также, нужно искать номер ячейки по содержимому (поиск дат).

Как это делать - понятия не имею!
По поводу поиска номера ячейки - пробовал ПОИСКПОЗ - не понял, как его сюда внедрить. Не хватает опыта в vba. Ну и вообще, как даже переменные сюда вставлять - не понимаю.
В общем, прошу помощи знающих.
Если что-то неясно описал - задавайте вопросы. Конец рабочего дня, не очень резво мысли бегают :)
...
Рейтинг: 0 / 0
27.03.2013, 20:46
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38201618
крендель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
крендель
Участник
1. создаешь окно с combobox и двумя textbox и OkButton, в combobox при открытии пишешь список продуктов из таблицы
2. по окbutton шерстишь таблицу на 1-му столбцу проверка даты на вхождение в диапазон и значение из столбца продукты
3. вставляешь найденные значения в Hidden Sheet
4. далее по твоему коду со ссылкой на значения таблицы в Hidden Sheet

вместо окна можно использовать значения введенные и выделенные пользователем, затем запуск макроса и определение параметров из того что выделил пользователь
...
Рейтинг: 0 / 0
28.03.2013, 09:06
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38203764
fr33z3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fr33z3
Гость
Подробнее можно? Синтаксис
...
Рейтинг: 0 / 0
29.03.2013, 11:04
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38204834
крендель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
крендель
Участник
Держи, в следующий раз будет за деньги
...
Рейтинг: 0 / 0
29.03.2013, 18:31
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38205303
fr33z3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fr33z3
Гость
Спасибо. Но для того чтобы поиск колонки работал, необходимо чтобы название продукта начиналось с "Продукт", так? При изменении названия на не совпадающие никак друг с другом, можно ли как-то по другому поставить условие If ? Вроде If not null. Не нашёл ничего подобного в google/stackoverflow
...
Рейтинг: 0 / 0
30.03.2013, 11:25
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38205312
fr33z3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fr33z3
Гость
И подпись под осью x отсутствует (точнее идёт просто числами по порядку)
...
Рейтинг: 0 / 0
30.03.2013, 11:38
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38206503
крендель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
крендель
Участник
fr33z3Но для того чтобы поиск колонки работал, необходимо чтобы название продукта начиналось с "Продукт", так?
нет
fr33z3При изменении названия на не совпадающие никак друг с другом, можно ли как-то по другому поставить условие If ? Вроде If not null.
смотри код, разбирайся
...
Рейтинг: 0 / 0
01.04.2013, 09:01
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38210057
fr33z3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fr33z3
Гость
Посмотрел - непонятно.
...
Рейтинг: 0 / 0
02.04.2013, 21:29
| Ответить | Цитировать | Написать  
EXCEL, VBA, таблица
    #38210384
крендель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
крендель
Участник
fr33z3Посмотрел - непонятно.
следующий раз наступил
...
Рейтинг: 0 / 0
03.04.2013, 09:28
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / EXCEL, VBA, таблица
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38210384&tid=2157065]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 28ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 263ms
total:  381ms
созд. / загр.: 381ms
x
x
Закрыть


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