Автоматическая верстка спецификаций А3 из произвольного списка, Программа Specificator Опции

[Postmodernist]

Написал в экселе верстальщик спецификаций А3, по ГОСТ.
Работает так:
1. Пишется в столбик неформатированный список позиций*. Вся мощь экселя вам в помощь.
2. Жмется кнопка.
3. Эксель выдает готовые листы спецификации.

Чтобы было понятно, что именно делает программа - прикрепляю файл Specificator_Example.pdf с примером.

Сама программа по ссылке.

Поскольку сделано всё макросами экселя, при запуске в экселе требуется разрешить работу макросов.

Главных фишек программы две:
- при изменении позиций происходит автоматическая переверстка всех листов спецификации. 1500 позиций для спецификации - нормально, сверстает.
- список позиций можно создавать с вычислениями.
Т.е. пишем, что есть болты таки и сякие, а гайки будут суммой этих болтов - эксель всё переварит и
при последующем изменении количества формулы будут работать.


* Из списка позиций берется текст, а также информация о жирном шрифте, подчеркивании и сплошной строке в спецификации. (см. Specificator_Example.pdf)

Прикрепленные файлы

 Specificator_Example.pdf ( 182,32 килобайт ) Кол-во скачиваний: 202

 

[Postmodernist]

Написал в экселе верстальщик спецификаций А3, по ГОСТ.
Работает так:
1. Пишется в столбик неформатированный список позиций*. Вся мощь экселя вам в помощь.
2. Жмется кнопка.
3. Эксель выдает готовые листы спецификации.

Чтобы было понятно, что именно делает программа - прикрепляю файл Specificator_Example.pdf с примером.

Сама программа по ссылке.

Поскольку сделано всё макросами экселя, при запуске в экселе требуется разрешить работу макросов.

Главных фишек программы две:
- при изменении позиций происходит автоматическая переверстка всех листов спецификации. 1500 позиций для спецификации - нормально, сверстает.
- список позиций можно создавать с вычислениями.
Т.е. пишем, что есть болты таки и сякие, а гайки будут суммой этих болтов - эксель всё переварит и
при последующем изменении количества формулы будут работать.


* Из списка позиций берется текст, а также информация о жирном шрифте, подчеркивании и сплошной строке в спецификации. (см. Specificator_Example.pdf)

Прикрепленные файлы

 Specificator_Example.pdf ( 182,32 килобайт ) Кол-во скачиваний: 202

 

[svoroponov]

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

[jota]

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

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

[Postmodernist]

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

 leonardo_dicaprio.gif ( 308,34 килобайт ) Кол-во скачиваний: 4


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

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

[Postmodernist]

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

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

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

 Specificator_002_example.pdf ( 170,85 килобайт ) Кол-во скачиваний: 87

[Postmodernist]

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

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

[vades]

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

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

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

[Postmodernist]

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

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

[juzzi]

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

[Postmodernist]

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

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

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

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

[Гарик]

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

[Владимир К.]

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

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

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

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

[Postmodernist]

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

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

[Владимир К.]

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

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

[Postmodernist]

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

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

[Димитрий 1]

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

[ceatv]

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

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

Добрый день.

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

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

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

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

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

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

Сообщение отредактировал ceatv - 18.3.2024, 10:58

[Postmodernist]

Добрый день.

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

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

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

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

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

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

[Димитрий 1]

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


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

[ceatv]

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



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

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

[ceatv]

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

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

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

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

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

Сообщение отредактировал ceatv - 19.3.2024, 11:43

[Postmodernist]

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



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

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

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

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

Сообщение отредактировал Postmodernist - 19.3.2024, 11:57

[ceatv]

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

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

[Postmodernist]

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

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

[ceatv]

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

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

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

Сообщение отредактировал ceatv - 19.3.2024, 16:01

[Postmodernist]

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

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

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

Вы не сможете распечатать корректно N листов с одной вкладки на произвольном принтере. Лист, он поэтому и называется листом, т.к. готов под печать.

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

Про какой перенос данных вопрос ?

[ceatv]

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

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

Вы не сможете распечатать корректно N листов с одной вкладки на произвольном принтере. Лист, он поэтому и называется листом, т.к. готов под печать.

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

[Postmodernist]

Используя данные ячейки каждый сам сможет подобрать ...

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

[ceatv]

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