Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/При помощи макроса размножить таблицу значений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При помощи макроса размножить таблицу значений (Макросы/Sub)
При помощи макроса размножить таблицу значений
romkinss Дата: Четверг, 22.10.2015, 19:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Пример во вложении (Таблицы разнесены на разные листы).

Есть Таблица 1 раскрывающая некоторые характеристики предметов-категорий (например, фруктов и овощей). Вида:

Фрукт | 100 грамм | полезный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Овощ | 50 грамм | полезный | распространенный
Овощ | 100 грамм | вредный | редкий
Овощ | 200 грамм | полезный | очень редкий

Также есть дополнительная Таблица 2, детализирующая предметы на конкретные объекты:

Фрукт | яблоко
Фрукт | груша
Фрукт | апельсин
Овощ | огурец
Овощ | томат

Что должно получиться в идеале:

При активации макроса на новом листе книги должна сформироваться новая таблица с данными из Таблицы 1, только строки должны быть размножены по количеству конкретных объектов, описанных в Таблице 2 и в первом столбце вместо обобщения (фрукт или овощ) должны указываться конкретные объекты (яблоко, груша, апельсин, огурец, томат):

Фрукт | 100 грамм | полезный | редкий
Фрукт | 100 грамм | полезный | редкий
Фрукт | 100 грамм | полезный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Овощ | 50 грамм | полезный | распространенный
Овощ | 50 грамм | полезный | распространенный
Овощ | 100 грамм | вредный | редкий
Овощ | 100 грамм | вредный | редкий
Овощ | 200 грамм | полезный | очень редкий
Овощ | 200 грамм | полезный | очень редкий
К сообщению приложен файл: 7801940.xlsx (9.9 Kb)
 
Ответить
СообщениеПример во вложении (Таблицы разнесены на разные листы).

Есть Таблица 1 раскрывающая некоторые характеристики предметов-категорий (например, фруктов и овощей). Вида:

Фрукт | 100 грамм | полезный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Овощ | 50 грамм | полезный | распространенный
Овощ | 100 грамм | вредный | редкий
Овощ | 200 грамм | полезный | очень редкий

Также есть дополнительная Таблица 2, детализирующая предметы на конкретные объекты:

Фрукт | яблоко
Фрукт | груша
Фрукт | апельсин
Овощ | огурец
Овощ | томат

Что должно получиться в идеале:

При активации макроса на новом листе книги должна сформироваться новая таблица с данными из Таблицы 1, только строки должны быть размножены по количеству конкретных объектов, описанных в Таблице 2 и в первом столбце вместо обобщения (фрукт или овощ) должны указываться конкретные объекты (яблоко, груша, апельсин, огурец, томат):

Фрукт | 100 грамм | полезный | редкий
Фрукт | 100 грамм | полезный | редкий
Фрукт | 100 грамм | полезный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Фрукт | 200 грамм | нейтральный | редкий
Овощ | 50 грамм | полезный | распространенный
Овощ | 50 грамм | полезный | распространенный
Овощ | 100 грамм | вредный | редкий
Овощ | 100 грамм | вредный | редкий
Овощ | 200 грамм | полезный | очень редкий
Овощ | 200 грамм | полезный | очень редкий
Автор - romkinss
Дата добавления - 22.10.2015 в 19:31
romkinss Дата: Четверг, 22.10.2015, 20:23 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые форумчане, возможно где-то на форумах уже есть это решение, но найти его не получается. Может дадите ссылку?
 
Ответить
СообщениеУважаемые форумчане, возможно где-то на форумах уже есть это решение, но найти его не получается. Может дадите ссылку?
Автор - romkinss
Дата добавления - 22.10.2015 в 20:23
Pelena Дата: Четверг, 22.10.2015, 20:36 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19192
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Как-то у Вас пост расходится с примером. Где правильно?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеКак-то у Вас пост расходится с примером. Где правильно?
Автор - Pelena
Дата добавления - 22.10.2015 в 20:36
romkinss Дата: Четверг, 22.10.2015, 20:47 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Да, увидел. В ТАблице 2 расхождение. Но не суть, т.к. это просто вводные данные. Примем как данность вариант в екселе.
 
Ответить
СообщениеДа, увидел. В ТАблице 2 расхождение. Но не суть, т.к. это просто вводные данные. Примем как данность вариант в екселе.
Автор - romkinss
Дата добавления - 22.10.2015 в 20:47
Pelena Дата: Четверг, 22.10.2015, 21:23 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19192
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Так проверьте
К сообщению приложен файл: 7801940.xlsm (22.6 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак проверьте
Автор - Pelena
Дата добавления - 22.10.2015 в 21:23
romkinss Дата: Четверг, 22.10.2015, 21:37 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Это то что нужно! Покажите, пожалуйста, где мне можно редактировать код, чтобы увеличить количество столбцов.
 
Ответить
СообщениеЭто то что нужно! Покажите, пожалуйста, где мне можно редактировать код, чтобы увеличить количество столбцов.
Автор - romkinss
Дата добавления - 22.10.2015 в 21:37
Pelena Дата: Четверг, 22.10.2015, 21:41 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19192
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Таблица1$A1:D" & c1
Таблица2$A1:B" & c2

имена листов и диапазоны, число строк определяется автоматически

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТаблица1$A1:D" & c1
Таблица2$A1:B" & c2

имена листов и диапазоны, число строк определяется автоматически
Автор - Pelena
Дата добавления - 22.10.2015 в 21:41
romkinss Дата: Четверг, 22.10.2015, 22:10 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо огромное!


Сообщение отредактировал romkinss - Четверг, 22.10.2015, 22:34
 
Ответить
СообщениеСпасибо огромное!
Автор - romkinss
Дата добавления - 22.10.2015 в 22:10
romkinss Дата: Четверг, 23.06.2016, 20:55 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые, а чем отличается работа макросов на Офисе 365 в Мак ОСе? Пытаюсь запустить макрос - пишет: Ошибка выполнения "429": Компоненту ActiveX не удается создать объект. По идее это ведь тот же самый Ексель, те же макросы...
 
Ответить
СообщениеУважаемые, а чем отличается работа макросов на Офисе 365 в Мак ОСе? Пытаюсь запустить макрос - пишет: Ошибка выполнения "429": Компоненту ActiveX не удается создать объект. По идее это ведь тот же самый Ексель, те же макросы...
Автор - romkinss
Дата добавления - 23.06.2016 в 20:55
RAN Дата: Четверг, 23.06.2016, 20:58 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата romkinss, 23.06.2016 в 20:55, в сообщении № 9
По идее это ведь тот же самый Ексель, те же макросы...

И огрызок, который не знает, что такое ActiveX. :p
так что неча на Excel пенять.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата romkinss, 23.06.2016 в 20:55, в сообщении № 9
По идее это ведь тот же самый Ексель, те же макросы...

И огрызок, который не знает, что такое ActiveX. :p
так что неча на Excel пенять.
Автор - RAN
Дата добавления - 23.06.2016 в 20:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При помощи макроса размножить таблицу значений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!