Exсel. Помощь по составлению таблиц и созданию макросов в мебельных расчётах

[AndrewP]

Сообщение от sibmebel

Накалякал для покумекования)

Кумекаю. Скоро выложу альфа-версию.

Сообщение от sparkfire

...который в таблице будет искать одинаковые строки...

Это можно решить простой сортировкой.
Например, есть деталировка (у меня свой формат - не PRO100-шный, но смысл один и тот же)



Выделяем строки для сортировки.



Задаём сортировку: вначале сортируем по столбцу "В" - "Материалы", например, по убыванию; потом по столбцам "С" - "Длина" и "D" - "Ширина": тоже по убыванию - от большего к меньшему .

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




Ну, а макрос попробуйте записать макрорекордером. Более сложные и (или) другие варианты рассмотрим, если понадобится, в следующий раз.

Файл примера во вложении.

[sibmebel]

Сообщение от AndrewP

Кумекаю. Скоро выложу альфа-версию.

Есть шанс у моей затеи?

[sparkfire]

Вопрос , наверное, дурацкий, но можно ли завязать на макрос удаление пустых строк в заданном диапазоне со смещением вверх, не прибегая к сортировке?
Суть в чем: Продолжаю биться все над той же таблицей

Скрытый текст

(есть готовые части, есть неоконченные)

[свернуть]

, по расчету заказов, и случай такой, что данные из про100 копируются , очищается от предыдущих данных кнопкой таблица, другой кнопкой вставляется массив данных в нужное место, и если деталь в проекте помечена как "фасад"- идет копирование на другой лист, который занимается только фасадами, все сложно, количество строк- 60, позиций фасадов, как вы понимаете, меньше, чтоб не работать с нулями, можно ли завязать на кнопку очищение пустых строк именно заданного участка, со смещением вверх, до ближайшего заполненного поля?
Скрин промежутойной таблицы(как раз тот случай, когда условное форматирование выдает данные в новую таблицу)

Тема макросов еще далеко не закрыта, учиться, учиться и еще раз учиться!!

[AndrewP]

Для подобной сортировки можно пользовать формулу НАИМЕНЬШИЙ.


Собственно формула в примере - это:

НАИМЕНЬШИЙ($A$8:$A$16;СТРОКА(A8)-СТРОКА($A$8)+1),

где $A$8:$A$16 - это сортируемый диапазон, а A8 - начальная ячейка.
Во вложенном примере есть также формула ЕОШИБКА для обработка пустот в беспорядочных данных.
Пример во вложении. Успехов в изучении!

[AndrewP]

Ещё вариант: использовать автофильтры.
Допустим, у нас есть область, куда постоянно вставляются скопированные из ПРО100 данные, в нашем примере это B1: D17, выделяем этот диапазон и


присваиваем ему имя, например "то_что_надо_отфильтровать". Имя диапазону присваивается в верхнем левом углу над таблицей

имя должно начинаться с буквы и не содержать пробелов
После ввода имени, нажимаем энтер - имя присвоено.
Теперь заданному диапазону задаём автофильтрацию. Данные-Фильтр-Автофильтр (или в экселе2007 Данные -Фильтр)

Появляются вот такие кнопочки в нашем диапазоне.

теперь нажимая на них можем задать условия фильтрации и сортировки.

Получаем результат (например сортируя столбец В по убыванию)


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

Так же все вышепечисленные действия можно записать в макрос.

[Рудольф]

Это конечно интересно, но усложним задачу. Из PRO100 копируем детали заказа. Имеем ЛДСП 10 мм, ЛДСП 16 мм, Стекло, Зеркало (к примеру). В Excel есть несколько таблиц название которых соответствуют используемым материалам(различной толщины ЛДСП, стекло, зеркало, ДВПО и др.). Фильтра настроены соответственно, все фильтруется визуально все хорошо. Но, при подсчете, к примеру, кол-во деталей Excel считает в каждой таблице общее кол-во деталей не смотря на то что часть деталей скрыты. Как от этого избавится.

[AndrewP]

Сообщение от Рудольф

зеркало, ДВПО и др.). Фильтра настроены соответственно, все фильтруется визуально все хорошо. Но, при подсчете, к примеру, кол-во деталей Excel считает в каждой таблице общее кол-во деталей не смотря на то что часть деталей скрыты. Как от этого избавится.

С помощью формулы ПРОМЕЖУТОЧНЫЕ.ИТОГИ
Во вложенном примере ячейка Е2 содержит формулу

=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;E5:E20)

где 9 - это признак того, что суммируются отфильтрованные значения в в диапазоне E5:E20. Также можно с помощью других признаков вычислять среднее, находить максимум, минимум и т.д.

Очень полезная функция в мебельных спецификациях.
Всячески рекомендую к изучению.

[sparkfire]

Вопрос следующий:
Исходные данные-
а.моя таблица для расчетов(достаточно объемная для сохранения каждого расчета)
б. Необходимость сохранять данные из нее, не все, но несколько листов.
в.Часть кода(нарыл в сети):

ThisWorkbook.Worksheets(1).Copy
 ActiveWorkbook.SaveAs "D:\1.xls"

Насколько я понял- макрос сохраняет текущий лист в новый файл, с названием 1.xls
Теперь вопрос, как сохранять сразу несколько листов( например первый, третий и пятый), что нужно поменять в макросе, чтоб он сохранялся каждый раз с новым названием, например- "Расчет мебели от 13 марта- номер 1", если дата будет прописана в таблице формулой "сегодня()", а номер выставляется по порядку.

[sparkfire]

Уффф... Разобрался сам...
Выглядит это следующим образом...

Sub Сохранение()
Dim ActiveSht As Worksheet
Dim NewWb As Workbook
Sheets(Array("Форма 1", "Распил", "Фасады")).Copy
' Здесь указываете имена нужных листов, в т.ч. и скрытых.
Set NewWb = ActiveWorkbook
For Each ActiveSht In NewWb.Worksheets
ActiveSht.Visible = True
' делаем скрытые листы видимыми в новой книге.
With ActiveSht.UsedRange
.Value = .Value
End With
Next
XXFilenameXX = " Расчет мебели от " & Date & " " & Range("H1")
NewWb.SaveAs Filename:="D:\" & "Расчеты" & "\" & XXFilenameXX & ".xls"

MsgBox "Новый файл расчета сохранен!", , ""
ActiveWorkbook.Close
End Sub

Долго думал, копался во всех справочниках, часть позаимствовал, но СДЕЛАЛ!!

[AndrewP]

Сообщение от sparkfire

Разобрался сам...

Поздравляю! (Так и я скоро начну консультироваться у тебя по эксель )

Вопрос по ходу дела. Что у тебя в ячейке H1? Номер по-порядку?