Технологическая документация в excel

6.1 Описание правил создания технологической документации в среде ms Excel.

Excel
–
программный продукт самая мощная и
производительная программа обработки
электронных таблиц из имеющихся сегодня
на рынке.

Основной программой
является вычислительный модуль, с
помощью которого выполняется обработка
текстовых и числовых данных. Для создания
презентационной графики используется
модуль диаграмм, который позволяет на
основе числовых значений, обработанных
с помощью вычислительного модуля,
строить диаграммы различных типов,
можно создавать макросы и предложения
с помощью Visual
Basic
for
Applications
(VBA).
Язык Visual Basic for Applications теперь доступен
во всех программах пакета, что позволяет
на его основе создавать более гибкие
приложения. Одно из главных достоинств
этого языка заключается в том, что
созданные средствами Excel VBA макросы
можно без особых проблем использовать
в других программах фирмы Microsoft.

Excel располагает
мощными средствами коллективной работы,
которые ориентированы в первую очередь
на совместную работу нескольких
приложений пакета в сетевой среде.
Высокая степень совместимости приложений,
включенных в пакет Microsoft Office, обусловлена
поддержкой технологии связывания и
внедрения OLE 2.0. Примером применения
этой технологии может служить внедрение
Excel таблиц или PowerPoint презентаций в
документ, созданный средствами Word. При
использовании этой технологии между
объектами устанавливается динамическая
связь. Двойной щелчок на объекте,
вставленном в документ, приводит к
запуску приложения, в котором он был
создан.

Правила
оформления технической документации
в соответствии с ЕСТД.

1.
Настоящий стандарт устанавливает
правила оформления технологических
документов (далее — документов),
разрабатываемых с применением различных
методов проектирования на единичные,
типовые, групповые технологические
процессы (операции) (далее — ЕТП, ТТП,
ГТП, ТО, ГО) испытаний, применяемых при
изготовлении или ремонте изделий и их
составных частей.

2.
В зависимости от применяемых методов
проектирования для описания технологических
процессов (операций) следует применять
формы маршрутных карт (МК) по ГОСТ
3.1118-82:

формы
2 и 1б; 4 и 3б — при неавтоматизированном
проектировании документов;

формы
6 и 5а — при автоматизированном проектировании
документов.

3.
При разработке ТТП, ГТП, ТО и ГО
дополнительно к формам МК следует
применять ведомости деталей (сборочных
единиц, изделий), предназначенные для
указания переменной информации,
относящейся к каждому обозначению
испытуемого изделия или его составных
частей.

4.
Ведомости деталей (сборочных единиц) к
типовым (групповым технологическим)
процессам (операциям), далее — ВТП (ВТО),
следует составлять по формам ВТП (ВТО)
ГОСТ 3.1121-84. Выбор формы предоставляется
на усмотрение разработчика.

5.
При комплектовании документов и их
оформлении следует руководствоваться
для комплектов документов:

на
ЕТП — ГОСТ 3.1119 — 83;

на
ТТП, ГТП, ТО, ГО — ГОСТ 3.1121 — 84.

6.
При описании технологических процессов
(операций) испытаний формы МК выполняют
функции других видов технологических
документов:

для
ЕТП — карт технологических процессов
(КТП) или операционных карт (ОК);

для
ТТП, ГТП, ТО, ГО — карт типовых (групповых)
операций (КТО).

7.
Независимо от использования форм МК в
качестве других видов документов запись
данных по технологическим режимам
испытаний следует выполнять: непосредственно
в тексте описания операции (перехода)
при указании 2 –
3 разновидностей режимов; с выделением
специальной строки, располагаемой после
текста описания операции (перехода) и
с соответствующей привязкой к служебному
символу «Р» при указании более трех
разновидностей одновременно применяемых
режимов.

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

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

10.
При наличии графических иллюстраций к
текстовым документам эти указания
следует выполнять на КЭ по ГОСТ 3.1105 —
84. В целях рационального сокращения
объема проектируемой документации и
при условии выполнения графических
иллюстраций без применения средств
механизации и автоматизации допускается
в нижней части форм МК не указывать
изображение строк (на уровне 6 –
8 — й строки) для использования этой зоны
для графических иллюстраций. При
отсутствии необходимости заполнять
указанные зоны графическими иллюстрациями
в них следует размещать текстовую
информацию в соответствии с установленными
правилами по их заполнению.

11.
При применении форм МК, выполняющих
функции ОК и КТО для испытаний, их
оформление следует производить с учетом
следующих дополнительных требований:
графы 3 и 5 по ГОСТ 3.1103 — 83 — не заполнять;

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

Пример
оформления документов на типовой
технологический процесс:

Соседние файлы в папке моя КР

• #

  18.03.201546.25 Кб59КЭ_020.cdw

• #

  18.03.201546.36 Кб23КЭ_025.bak

• #

  18.03.201546.27 Кб37КЭ_025.cdw

• #

  18.03.201582.48 Кб37Маршр-опер. унив (1).bak

• #

  18.03.201582.52 Кб76Маршр-опер. унив (1).cdw

• #

Businesses of all sizes and across all industries rely on multiple processes in order to function smoothly. Documenting business processes can help companies identify inefficiencies, implement changes, and provide uniform understanding of how a process works and who is involved. A process document compiles information about a specific process by detailing the necessary steps, and serves as a reference guide. Having this information in writing helps ensure that workflows are operating according to guidelines, provides structure for process management, and assists with knowledge transfer when employees change roles or when training new hires. From defining consistent standards to improving business performance, there are many reasons to document processes.

To save you time with process documentation, download one of the free Microsoft Word or Excel templates below and create a customized, reusable document for your business.

• Чтобы скачать этот файл зарегистрируйтесь и/или войдите на сайт используя форму сверху.
• Регистрация

• Узнайте сколько стоит уникальная работа конкретно по Вашей теме:
• Сколько стоит заказать работу?

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

Введение.

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

Итак, поговорим про строительство, конкретно про составление Исполнительной документации (далее ИД).

Большая часть работ закрывается по форме Акта освидетельствования скрытых работ (утвержденным приказом Федеральной службы по экологическому, технологическому и атомному надзору от 26 декабря 2006 года N 1128 (В редакции, введенной в действие с 6 марта 2016 года приказом Ростехнадзора от 26 октября 2015 года №42. Далее АОСР).

Исходные данные для автоматизации.

По-этому возьмем форму АОСР за основу. Итак, у нас есть шаблон документа, в который заносится следующая информация:

— постфикс номера акта;
— наименование объекта капитального строительства;
— юридические данные об участниках строительства (Застройщик или Заказчик; Лицо, осуществляющее строительство; Лицо, осуществляющее подготовку проектной документации;
Лицо, осуществляющее строительство, выполнившее работы, подлежащие освидетельствованию; иные лица.)
— перечень лиц с наименованием организаций, должностей и приказов подтверждающих их полномочия;
— наименование выполненных работ;
— сроки выполнения работ;
— перечень работ, входящих в выполненные работы;
— ссылки на НТД и разделы проекта/тех.документации;
— ссылки на исполнительные схемы, акты испытаний (если таковые требуются);
— перечень используемых материалов с сылками на документы подтверждающими их соответствие (паспорта, сертификаты и т.п.)

Мысли о принципиальных методах решения задачи

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

1. Слияние с файлом Word
2. Заполнение при помощи макросов шаблона на базе Excel.

Каждый из этих способов имеет свои плюсы и минусы, но т.к. слияние производит замену в реальном времени, то мною было принято решение выбрать второй пункт, который в реальном времени слияние не обеспечивает и каждый раз необходимо будет осуществлять вывод актов, в случае корректировки данных, заново. Это связано с тем, что мне зачастую необходима история моих действий.

Итак, теперь мы упираемся в 2 задачи:

1. Заполнение шаблона на основе табличных данных
2. Какие поля достаточно ввести один раз, какие будет меняться время от времени и какие поля будут отличаться в каждом акте.

Решая задачу №2 мы вынесем на отдельный лист те данные, которые будут едины в рамках объекта/раздела проекта строительства — это:

Спойлер

На текущем листе заполним лишь один раз, а для остальных актов просто проставим ссылки на эти значения:

Спойлер

И поля, которые будут меняться в каждом акте:

Спойлер

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

=ЕСЛИОШИБКА(ДВССЫЛ(СЦЕПИТЬ("'Данные для проекта'!";АДРЕС((ПОИСКПОЗ(E30;'Данные для проекта'!$G$15:$G$34;0))+14;6)));"-")

Т.е. на листе ‘Данные для проекта’ в диапазоне $G$15:$G$34, в 6м столбце ищем значение в ячейке Е30, и как только находим нехитрым методом преобразуем в адрес, который будет преобразован в ссылку формулами.

Новая проблема уже упирается в длину строки, если использовать шрифт Times New Roman №10, то длина текста, которая будет выводится на печать, не превышает 105 символов. Т.е. мы упираемся в необходимость создавать костыль для переносов. Итак код функции на VBA:

Function PatrOfString(StringOfTable As String, Nnumber As Byte) As String  Dim МассивБлоков(1 To 10) As String Dim i As Integer                      '  Dim j As Integer                      '  Dim k As Integer                      '  Dim p As Integer                      '   For i = 1 To 10     Let МассивБлоков(i) = " " Next i  Let k = 1 Let p = Len(StringOfTable) Let p1 = Len(StringOfTable)  For i = 1 To Round(Len(StringOfTable) / 105) + 1 Step 1            If p > 0 And p < 105 Then             If k <= p1 Then Let МассивБлоков(i) = Mid$(StringOfTable, k, p)         Else             If Mid(StringOfTable, k, 1) = " " Then                If k <= p1 Then Let МассивБлоков(i) = Mid$(StringOfTable, k, 105)                Let p = p - 105                k = k + 105             Else                j = 105 * i                                If j - k >= 105 Then                   j = k + 105                End If                                Do                   j = j - 1                Loop While Mid$(StringOfTable, j, 1) <> " "                 Let МассивБлоков(i) = Mid$(StringOfTable, k, j - k + 1)                Let p = p - (j - k + 1)                Let k = j + 1             End If          End If        Next i  If Nnumber - 1 > 0 Then    If МассивБлоков(Nnumber) = МассивБлоков(Nnumber - 1) Then МассивБлоков(Nnumber) = " " End If   PatrOfString = МассивБлоков(Nnumber)

Т.е. мы сперва забираем текст, потом вырезаем 105 символов, ищем с конца первый символ пробел, как его находим, то закидываем в первую строку массива текст длиной с первого символа, по номер найденного пробела. Затем продолжаем операцию до тех пор пока текст не закончится или не забьется выводной массив. На данном этапе он ограничен памятью в 10 строк. Затем мы выводим по ссылке содержание нужной строки из 1-10. Из минусов решения — забивается память, и для каждого нового запроса осуществляется пересчет заново. Но костыль работает.

Подводные камни использования Excel Power Query и MySQL для автоматизации отчетности

Теперь вывод в типовой шаблон АОСР. Есть опять 2 варианта, либо вручную прописывать сопоставлению столбцу(/строки в случае горизонтально расположенных данных под каждый акт), то это будет долго и ресурсоемко подгонять каждый новый шаблон или изменения под таблицы данных. Потому делаем оптимизацию. Данные на каждый один акт будут располагаться вертикально, а сопоставление управляющей комбинации символов (на латинице, т.к. сами акты сплошь на кириллице) будут строки с информацией в этих актах, таким образом в двойном вложенном цикле поиском в тексте управляющих символов мы сопоставим нужное значение из колонки.

Do             wb.Worksheets("Пример акта входного контроля").Copy after:=Worksheets(Worksheets.Count)             Set новыйЛист = wb.Worksheets(Worksheets.Count)              For x = 1 To 15 Step 1                                                      ' Перебираем столбцы в листе "Пример акта входного контроля"                 For y = 1 To 71 Step 1                                                  ' Перебираем строки в листе "Пример акта входного контроля"                     If Sheets(новыйЛист.Name).Cells(y, 20) = 1 Then                         Let k = CStr(Sheets(новыйЛист.Name).Cells(y, x))                ' Ищем только если в ячейке что-то есть                         If k <> "" Then                             For i = 1 To Кол_воЭл_овМассиваДанных Step 1                                Let k = Replace(k, arrСсылкиДанных(i), Worksheets("БД для входного контроля (2)").Cells(i, НомерСтолбца))                             Next i                         новыйЛист.Cells(y, x) = k                         End If                     End If                 Next y             Next x                                      ' Если Вы захотите добавить новые данные для автозаполнения, продолжайте этот список.             ' Ячейки имеют координаты формата Cells(3, 2), где 3 - пример номера строки, 2 - пример номера столбца             ' Чтобы легко узнавать номер столбца, можно включить стиль ссылок R1C1             ' (Файл -> Параметры -> Формулы -> галочка на поле "Стиль ссылок R1C1")             ' либо задавать координаты в формате Cells(1, "A"), где 1 - пример номера строки, "А" - пример буквенного обозначения столбца                          Rem -= Уточняем имя файла и текущий путь к папке откуда запущен макрос =-             Let ИмяФайла = ИмяФайла + CStr(Worksheets("БД для входного контроля (2)").Cells("1", НомерСтолбца)) + "-"             Let ИмяФайла = ИмяФайла + CStr(Worksheets("БД для входного контроля (2)").Cells("2", НомерСтолбца)) + ".xlsx"             НовыйПуть = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла)              Application.DisplayAlerts = False                                           ' выключаем вывод предупреждений             Sheets(новыйЛист.Name).Copy                                                 ' Копируем текущий лист в новую книгу             ActiveWorkbook.SaveAs Filename:=НовыйПуть, _                 FileFormat:=51             ActiveWindow.Close              Sheets(новыйЛист.Name).Delete                                               ' Удаляем созданный лист             Application.DisplayAlerts = True                                            ' Включаем вывод предупреждений обратно              Let НомерСтолбца = НомерСтолбца + 1                     Loop While НомерСтолбца <= КонечныйНомерСтолбца         End Sub

Ну и последний момент на данном этапе — мы упираемся в производительность системы и при большом кол-ве актов их вывод будет занимать часы. Дабы ускорить процесс я использую следующий вариант: Копирую содержимое листа с данными в новый лист макросом, он получает в своем имени циферку (2), затем запускается еще один макрос, ускоряющий Excel, но отключающий ряд функционала:

'Ускоряем Excel путём отключения всего "тормозящего"  Public Sub AccelerateExcel()     'Больше не обновляем страницы после каждого действия   Application.ScreenUpdating = False     'Расчёты переводим в ручной режим   Application.Calculation = xlCalculationManual     'Отключаем события   Application.EnableEvents = False     'Не отображаем границы ячеек   If Workbooks.Count Then       ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False   End If     'Отключаем статусную строку   Application.DisplayStatusBar = False     'Отключаем сообщения Excel   Application.DisplayAlerts = False    End Sub

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