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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на формирование бланков из общей таблицы. - Мир MS Excel

  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_, DrMini  
Макрос на формирование бланков из общей таблицы.
Adrien Дата: Понедельник, 15.12.2014, 17:31 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!
Хочу немного автоматизировать рабочий процесс.
Необходимо что бы данные из каждого столбца копировались на отдельный лист (условие : не должно быть заливки в названии продукта и в его стоимости.)
Соответственно данные по колонке цен "Фирма1" на лист 2"Фирма2" на лист 3 и тд. Тоесть на лист 2 :капуста квашеная с морк. кг 46,00р.
на лист 3:лимон. кг 80,00р. и тд.
Можно ли такое сделать макросом и если можно то как?
Заранее спасибо!!!
К сообщению приложен файл: 1271232.xlsx (24.0 Kb)
 
Ответить
СообщениеЗдравствуйте!
Хочу немного автоматизировать рабочий процесс.
Необходимо что бы данные из каждого столбца копировались на отдельный лист (условие : не должно быть заливки в названии продукта и в его стоимости.)
Соответственно данные по колонке цен "Фирма1" на лист 2"Фирма2" на лист 3 и тд. Тоесть на лист 2 :капуста квашеная с морк. кг 46,00р.
на лист 3:лимон. кг 80,00р. и тд.
Можно ли такое сделать макросом и если можно то как?
Заранее спасибо!!!

Автор - Adrien
Дата добавления - 15.12.2014 в 17:31
gling Дата: Понедельник, 15.12.2014, 18:31 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2663
Репутация: 747 ±
Замечаний: 0% ±

2010
Здравствуйте! Можно сводной без макроса.
К сообщению приложен файл: 1240689.xlsx (49.0 Kb)


ЯД-41001506838083
 
Ответить
СообщениеЗдравствуйте! Можно сводной без макроса.

Автор - gling
Дата добавления - 15.12.2014 в 18:31
Adrien Дата: Понедельник, 15.12.2014, 20:31 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Не совсем понял как работает.
В аналогичной таблице руками ввожу каждую неделю стоимости товаров из данного списка.
по формулам далее идут вычисления и создания бланков заказа на эти продукты просто неудобно каждый раз внося исправления фильтрами выстраивать бланки думал немного упростить что ли.
Просто что бы нажатием на 1-2-3-4-5 кнопок выводить на заданы листы готовые бланки.
В идеале правда что бы бланк заказа отдельно создавался так же в EXCEL


Сообщение отредактировал Adrien - Понедельник, 15.12.2014, 20:39
 
Ответить
СообщениеНе совсем понял как работает.
В аналогичной таблице руками ввожу каждую неделю стоимости товаров из данного списка.
по формулам далее идут вычисления и создания бланков заказа на эти продукты просто неудобно каждый раз внося исправления фильтрами выстраивать бланки думал немного упростить что ли.
Просто что бы нажатием на 1-2-3-4-5 кнопок выводить на заданы листы готовые бланки.
В идеале правда что бы бланк заказа отдельно создавался так же в EXCEL

Автор - Adrien
Дата добавления - 15.12.2014 в 20:31
gling Дата: Понедельник, 15.12.2014, 21:00 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2663
Репутация: 747 ±
Замечаний: 0% ±

2010
Может быть я не правильно понял. Работает это так: для примера удалите часть данных в столбце Фирма1 листа Сводная. Перейдите на лист Форма1 ПКМ на сводную таблицу в любую ячейку--выбрить пункт Обновить--ЛКМ и смотреть результат или печатать отчет, на другом листе другая фирма. Что не понятного? Бланков заказа в примере не увидел, возможно есть какая то форма которую вы не показали. В каком виде должен быть бланк заказа?


ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 15.12.2014, 21:01
 
Ответить
СообщениеМожет быть я не правильно понял. Работает это так: для примера удалите часть данных в столбце Фирма1 листа Сводная. Перейдите на лист Форма1 ПКМ на сводную таблицу в любую ячейку--выбрить пункт Обновить--ЛКМ и смотреть результат или печатать отчет, на другом листе другая фирма. Что не понятного? Бланков заказа в примере не увидел, возможно есть какая то форма которую вы не показали. В каком виде должен быть бланк заказа?

Автор - gling
Дата добавления - 15.12.2014 в 21:00
Adrien Дата: Понедельник, 15.12.2014, 21:42 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Выглядит бланк примерно вот так.
Это в идеале.
Удалены все строки помеченные цветом и из столбца выбраны цены продуктов так же без заливки.
То есть условия попадания продукта в тот или иной бланк это без выделение название продукта и без выделения его цена.
Сама таблица закрашивает числа согласна ряду критериев, а именно отсеивает наибольшие числа
К сообщению приложен файл: 3829527.xlsx (13.9 Kb)


Сообщение отредактировал Adrien - Понедельник, 15.12.2014, 21:45
 
Ответить
СообщениеВыглядит бланк примерно вот так.
Это в идеале.
Удалены все строки помеченные цветом и из столбца выбраны цены продуктов так же без заливки.
То есть условия попадания продукта в тот или иной бланк это без выделение название продукта и без выделения его цена.
Сама таблица закрашивает числа согласна ряду критериев, а именно отсеивает наибольшие числа

Автор - Adrien
Дата добавления - 15.12.2014 в 21:42
Wasilich Дата: Вторник, 16.12.2014, 00:49 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
В задаче много воды, да и та мутная. Из второго примера (бланка) понял, что выбор для фирмы 1 делается по неокрашенных ячейках наименования и фирмы. Только вот как определить окрас ячеек УФ, я не знаю. Похоже придется делать доп колонки для каждой фирмы и в этих колонках ставить метку для выбора. ИМХО.
 
Ответить
СообщениеВ задаче много воды, да и та мутная. Из второго примера (бланка) понял, что выбор для фирмы 1 делается по неокрашенных ячейках наименования и фирмы. Только вот как определить окрас ячеек УФ, я не знаю. Похоже придется делать доп колонки для каждой фирмы и в этих колонках ставить метку для выбора. ИМХО.

Автор - Wasilich
Дата добавления - 16.12.2014 в 00:49
Adrien Дата: Вторник, 16.12.2014, 08:43 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Воды то много. Я знаю что хочу от таблиц до мелочей только вот как зделать самому или описать каму-то ещё данную информацию увы не знаю.
и да выборка производиться по не окрашенным ячейкам наименования и фирмы
 
Ответить
СообщениеВоды то много. Я знаю что хочу от таблиц до мелочей только вот как зделать самому или описать каму-то ещё данную информацию увы не знаю.
и да выборка производиться по не окрашенным ячейкам наименования и фирмы

Автор - Adrien
Дата добавления - 16.12.2014 в 08:43
Pelena Дата: Вторник, 16.12.2014, 15:16 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
Adrien, посмотрите такой вариант. Исходила из того, что среди фирм надо выбрать с минимальной ценой, а названия товаров - из незакрашенных ячеек.

Условное форматирование не стала исправлять, но, на мой взгляд, логичнее было бы наоборот закрасить ячейку с минимальной ценой.
К сообщению приложен файл: 1271232.xlsm (36.6 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеAdrien, посмотрите такой вариант. Исходила из того, что среди фирм надо выбрать с минимальной ценой, а названия товаров - из незакрашенных ячеек.

Условное форматирование не стала исправлять, но, на мой взгляд, логичнее было бы наоборот закрасить ячейку с минимальной ценой.

Автор - Pelena
Дата добавления - 16.12.2014 в 15:16
Adrien Дата: Вторник, 16.12.2014, 16:07 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Огромное спасибо. Просто супер. То, что нужно.
Ковырну код что бы понять более подробно как работает скрипт.
 
Ответить
СообщениеОгромное спасибо. Просто супер. То, что нужно.
Ковырну код что бы понять более подробно как работает скрипт.

Автор - Adrien
Дата добавления - 16.12.2014 в 16:07
Adrien Дата: Вторник, 16.12.2014, 16:43 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Попытался вживить макрос в конечный вариант таблички и хоть ты тресни спотыкается на строчке:
mi = c.Resize(, 6).Find(m).Column - 2

пишет ошибку:
"Оbject variable With block variable not set"
В чём прикол не понятно та же конструкция таблицы те же условия.
p/s может такое быть что значения ячеек в табличку по формулам попадают(ссылки на ячейки в другом бланке??


Сообщение отредактировал Adrien - Вторник, 16.12.2014, 16:47
 
Ответить
СообщениеПопытался вживить макрос в конечный вариант таблички и хоть ты тресни спотыкается на строчке:
mi = c.Resize(, 6).Find(m).Column - 2

пишет ошибку:
"Оbject variable With block variable not set"
В чём прикол не понятно та же конструкция таблицы те же условия.
p/s может такое быть что значения ячеек в табличку по формулам попадают(ссылки на ячейки в другом бланке??

Автор - Adrien
Дата добавления - 16.12.2014 в 16:43
Pelena Дата: Вторник, 16.12.2014, 17:05 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
Приложите кусок реальной таблицы, при необходимости замените реальные названия на условные


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПриложите кусок реальной таблицы, при необходимости замените реальные названия на условные

Автор - Pelena
Дата добавления - 16.12.2014 в 17:05
Adrien Дата: Вторник, 16.12.2014, 17:09 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Практически финальная версия табличка иногда расширяется
К сообщению приложен файл: 8047460.xlsm (98.6 Kb)
 
Ответить
СообщениеПрактически финальная версия табличка иногда расширяется

Автор - Adrien
Дата добавления - 16.12.2014 в 17:09
Pelena Дата: Вторник, 16.12.2014, 17:44 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
значения ячеек в табличку по формулам попадают

Ну да, получается, что Find не хочет искать, если в ячейках формула, а как прикрутить сюда Value, я не знаю :( Может, кто-то из более сведущих подскажет
[vba]
Код
mi = c.Resize(, 6).Find(m).Column - 2
[/vba]
Сделала другим способом
Да и первые две строчки (шапка таблицы) на каждом листе уже должны быть
К сообщению приложен файл: 3971939.xlsm (95.3 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
значения ячеек в табличку по формулам попадают

Ну да, получается, что Find не хочет искать, если в ячейках формула, а как прикрутить сюда Value, я не знаю :( Может, кто-то из более сведущих подскажет
[vba]
Код
mi = c.Resize(, 6).Find(m).Column - 2
[/vba]
Сделала другим способом
Да и первые две строчки (шапка таблицы) на каждом листе уже должны быть

Автор - Pelena
Дата добавления - 16.12.2014 в 17:44
RAN Дата: Вторник, 16.12.2014, 19:50 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ну не зря я метод Find не люблю!
И так крутил, и этак - xlPart находит, а xlWhole ни в какую.
Где собака зарылась? Может кто откопает?


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеНу не зря я метод Find не люблю!
И так крутил, и этак - xlPart находит, а xlWhole ни в какую.
Где собака зарылась? Может кто откопает?

Автор - RAN
Дата добавления - 16.12.2014 в 19:50
Wasilich Дата: Вторник, 16.12.2014, 20:41 | Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
А не проще ли: :)
Похоже придется делать доп колонки для каждой фирмы и в этих колонках ставить метку для выбора. ИМХО.
 
Ответить
СообщениеА не проще ли: :)
Похоже придется делать доп колонки для каждой фирмы и в этих колонках ставить метку для выбора. ИМХО.

Автор - Wasilich
Дата добавления - 16.12.2014 в 20:41
RAN Дата: Вторник, 16.12.2014, 20:52 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Wasilic, мы простых путей не ищем, мы ищем, где собака1 :D


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеWasilic, мы простых путей не ищем, мы ищем, где собака1 :D

Автор - RAN
Дата добавления - 16.12.2014 в 20:52
Adrien Дата: Вторник, 16.12.2014, 20:55 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, по какой то причине не подцепляет последнюю строчку таблицы сметана не в одну из таблиц не переносится
 
Ответить
СообщениеPelena, по какой то причине не подцепляет последнюю строчку таблицы сметана не в одну из таблиц не переносится

Автор - Adrien
Дата добавления - 16.12.2014 в 20:55
Pelena Дата: Вторник, 16.12.2014, 21:00 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
Вот в этой строчке
[vba]
Код
nrow = Worksheets("Сводная").Range("A2").CurrentRegion.Rows.Count - 1
[/vba]
уберите -1
[vba]
Код
nrow = Worksheets("Сводная").Range("A2").CurrentRegion.Rows.Count
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВот в этой строчке
[vba]
Код
nrow = Worksheets("Сводная").Range("A2").CurrentRegion.Rows.Count - 1
[/vba]
уберите -1
[vba]
Код
nrow = Worksheets("Сводная").Range("A2").CurrentRegion.Rows.Count
[/vba]

Автор - Pelena
Дата добавления - 16.12.2014 в 21:00
Adrien Дата: Вторник, 16.12.2014, 21:25 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Убрал, для проверки оставил сумму только сметаны написал ошибку " Не возможно получить свойство Match класса WorksheetFunction"
Подскажите пожалуйста какая из переменных задаёт количество строк таблицы что бы понимать сколько ещё можно ещё внести в таблицу позиций


Сообщение отредактировал Adrien - Вторник, 16.12.2014, 21:27
 
Ответить
СообщениеУбрал, для проверки оставил сумму только сметаны написал ошибку " Не возможно получить свойство Match класса WorksheetFunction"
Подскажите пожалуйста какая из переменных задаёт количество строк таблицы что бы понимать сколько ещё можно ещё внести в таблицу позиций

Автор - Adrien
Дата добавления - 16.12.2014 в 21:25
Pelena Дата: Среда, 17.12.2014, 09:24 | Сообщение № 20
Группа: Админы
Ранг: Местный житель
Сообщений: 19572
Репутация: 4646 ±
Замечаний: ±

Excel 365 & Mac Excel
Мне не удалось воспроизвести эту ошибку

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

Количество строк определяется автоматически по количеству строк в столбце А и сохраняется в переменной nrow

Добавила в макрос очистку ячеек при повторном нажатии кнопки
К сообщению приложен файл: 5576474.xlsm (95.4 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМне не удалось воспроизвести эту ошибку

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

Количество строк определяется автоматически по количеству строк в столбце А и сохраняется в переменной nrow

Добавила в макрос очистку ячеек при повторном нажатии кнопки

Автор - Pelena
Дата добавления - 17.12.2014 в 09:24
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

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