Написал в Экселе верстальщик спецификаций А3 по ГОСТ.

В чем смысл:
1. Вы делаете расчеты в какой-то программе и она выдает неформатированный список комплектующих.
Revit, Magic, свои наработки - любая программа, которая выдает списки комплектующих.
2. Копируете эти списки в программу Specificator.
3. Заполняете данные рамки спецификации, нажимаете кнопку "Верстать спецификацию".
4. Эксель выдает готовые листы спецификации А3 по ГОСТ со всеми рамками, разбиениями позиций на строки, обозначением разделов и пр.

Последняя версия программы всегда находится по ссылке.

При запуске программы в Экселе требуется разрешить работу макросов.

Для проверки рабоспособности Вашего Экселя программа состоит из двух файлов:
- сама программа с чистыми листами ввода.
- заполненный пример программы. Требуется нажать кнопку " Верстать спецификацию" и Эксель должен выдать спецификацию на несколько листов.
Если Эксель не выдал готовую спецификацию, то надо смотреть настройки Вашего Экселя. Прежде всего настройки безопасности.

Более подробно об использовании программы см. заполненный пример программы, там возможности программы прокомментированы.

Огромное спасибо.Попробовал .Здорово экономит время при оформлении.

Вопрос: как в Эстонии используете прогу на русском?

Нажмите для просмотра прикрепленного файла

Да я сам офигел.

Тем не менее , наверняка какие-нибудь глюки и неудобства. Черкните, сюда, что именно не работает.

Коллега vades указал на баг, плюс еще другие неудобства были обнаружены, исправлены.

По старой же ссылке теперь новая версия программы, 002.

Также заменил пример заполнения данных, прилагаю. По ссылке пример тоже есть:

Нажмите для просмотра прикрепленного файла

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

Пример и обновленная программа по старой ссылке из первого сообщения темы.

При нажатии в примере "Верстать спецификацию", в колонке "поз." значения позиции с точкой верстаются в результат с запятой

Сэнкс. Поправил, теперь верстает без внедрений запятых.

Postmodernist, огромное спасибо за программу. Скажите как настроить шрифт при верстке спецификации? Текущий дефолтный мне не подходит.

Шрифт подобран как наиболее соответствующий ГОСТу, среди экселевских шрифтов не получится выбрать более ГОСТовский.

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

Собираюсь выпустить следующую версию спецификатора. Есть пожелания что-нибудь добавить ?

чтобы сама заполнялась)

Как можно настроить высоту шрифта? При верстке спецификации в штампе, в названии объекта и адреса, шрифт получается высотой 13. В итоге текст вылазит за рамки, приходится уменьшать высоту шрифта.

Пустой бланк 1-го листа спецификации находится на скрытом листе 1b. Можно открыть этот скрытый лист и изменить шрифт в рамке.
Чуть позже выпущу обновление, чтобы размер шрифта брался из заполненного штампа. Т.е. находу можно будет менять.

Спасибо).
Программа супер, внедрил ее в использовании.
Еще не выводиться длинное слово при верстке, приходится его разделять пробелом. Либо выскакивает ошибка, либо вообще не отображается.
Слово похоже не помещается в столбец. Бывают длинное обозначение типа оборудования, например ANR12_L/K1/P1/F1/H1/R2/N1.2/V1.0.P63.R-11x15/H1/B1

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

Не всегда хорошо программа делает разделение предложений на строки, требуется визуально просматривать результаты верстки. Допишу позже существенно более сложный алгоритм верстки.

Добрый день!
К сожалению кнопка "Верстать спецификацию" неактивна.
Что нужно сделать, чтобы это исправить?

Добрый день.

Тестил версию 005 - касаемо шрифтов - поменял по всем листам, но все равно в своде spec1 (при выполнении макроса) меняются на исходные.

Еще момент касаемо данной программы - не уловил смысла забивать всю информацию на листе Listing и потом переносить ее с помощью макроса на лист Spec1 (кроме удобства печати) ???.
Можно сразу вносить всю информацию на группу листов типа Spec1 (уже со штампами) и не делать промежуточных движений.

Другой вопрос - если бы на листе Listing был бы общий перечень (всего/всего) типа труба ф20/25/32..., кран ф20/25/32 и т.д. и макрос (верстать спецификацию) выбирал бы только те строки где проставлена единица измерения занося их в свод - это было бы практичней.

Если нужен такой макрос могу поделиться, но в моем случае он делает только общий свод как на Listing, а из него с помощью текущего макроса уже не проблема получить итог в виде Spec1




скорее всего Вам нужно включить макросы для данного файла

Да, шрифт меняется на наиболее близкий по ГОСТ. Т.е. смысл проги - получить спецификацию по ГОСТ.

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

Это делается без макросов, фильтрами.

скорее всего Вам нужно включить макросы для данного файла
[/quote]


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

Где то в настройках Офис есть дополнительный запрет на включение содержимого для файлов скаченных с интернета...может в этом проблема?

В вашем случае (с учетом необходимости переносов текста в след.строку) должно быть не быстро
Используемый мною макрос этого не умеет - приходится всегда (в исходнике уталкивать текст в нужную ширину столбца), но в остальном - 500 строк он обрабатывает за 2 сек., обычно 200-250 - за 1 сек.




Не совсем понял каким образом ? В исходнике я заполнил только наименование (без кол-ва)...выполнил макрос...все наименования перенеслись в свод (соотв в графе кол-во ни чего нет)...далее нужно сортировать строки по графе кол-во (пустые / не пустые)?

Наверно я не сразу понял, что в данной спецификации исходный лист нужно заполнять только теми строками которые будут в сводной спецификации...(заполненные строки где кол-во=пусто тоже уйдут в свод)?
Макрос переносит весь текс из исходной табл. в нужные диапазоны (листы с штампами) и разбивает его на строки если не умещается в одну.

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



Если есть вопрос - переформулируйте его точнее. Что именно Вы хотите ?

Я пока думаю как можно применить ваш макрос в моем случае (удобно когда есть перенос не влезающего в одну строку текста).
Перенос в сводный лист со штампами мне не нужен - достаточно готового списка в том виде в котором у Вас исходный перечень (нужные диапазоны с такого листа как вложения отображаются в чертежной программе после их обновления на соотв.листах с штампами

Теоретически можно написать такой непростой макрос, который делит произвольный текст на строки в зависимости от ширины ячейки. Но это отдельный макрос, не связанный со спецификациями и ГОСТ.

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

Заполнил данные на 2 листа А3 - в итоге 2 отдельных листа свода спецификации - было бы удобнее если все итоговые листы были на одной общей вкладке-листе Эксель.

Текущий вариант переноса данных принят скорее всего исходя из возможностей эксель?

Таких констант для произвольных шрифтов не существует, т.к. буквы разной ширины, соотношение ширин у букв в разных шрифтах тоже разное.
Вы не сможете распечатать корректно N листов с одной вкладки на произвольном принтере. Лист, он поэтому и называется листом, т.к. готов под печать.
Про какой перенос данных вопрос ?

Я имел в виду то что в текущей версии программы (на примере столбца "наименование") перенос текста по строкам происходит примерно после ~38 символов и в зависимости от пробелов. Т.е. 38 симв - это некая константа заданная для принятого типа шрифта.
Макросу все равно откуда брать эту константу из кода или из ячейки.
Используя данные ячейки каждый сам сможет подобрать эту константу под удобный для него шрифт и размер (текущий размер 16 многовато)


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

Размеры и гарнитура шрифта, размеры ячеек в спецификации - всё ГОСТировано. Вы не можете изменить шрифт и при этом сделать спецификацию по ГОСТ.

не соглашусь...читайте внимательно ГОСТы...там есть приписка ... о возможности использования внутренних стандартов организации.

Кто знает, как в этом форуме отредактировать старые сообщения ?

Требуется изменить начальное сообщение этого треда, заменить старые ссылки.
Я писал нескольким администраторам форума, но ответов нет.

Добрый день. А как добавить функционал:
1. Сделал спецификацию, когда то выпустил, дальше изменения пошли (наименования, кол-ва и т.п.) подсвечиваешь их (забиваешь цветом ячейки - делаешь светофор и при нажатии на Верстать "этот "светофор" так же отображается в цвете на листе со штампом.
2. Как "по кнопке" добавить дополнение справа нескольких столбцов связанных с ценами - сформировать закупочную ведомость????