VetCAD

Программа подсчета спецификаций КЖ и создания ведомости расхода стали. VBA Excel 2007.

    3 оценки

AlexV

размещено: 14 Августа 2009
обновлено: 12 Марта 2014
Предлагаю протестировать программу для создания и изменения спецификаций, а так же создания ведомости расхода стали (в основном, может пригодиться тем, кто занимается КЖ). В архиве краткое описание в Word-файле, и экселевские (Excel2007) файлы «Спецификация» и «Пример» ( первый можно сохранить как шаблон, и затем использовать при создании новых спецификаций, во втором –образец спецификаций и ведомости расхода стали, полученной с ее помощью)
Excel файл содержит базу данных по металлопрокату (которую можно дополнять), и несколько макросов: для создания спецификации, пересчета спецификации и создания ведомости расхода стали по созданным спецификациям (описание в архиве)
'*___________________________________*
Произвел небольшой "апгрейд":
-исправлены несколько ошибок в подсчетах (для некоторых категорий в столбцах «Итого»)
-Теперь можно задавать количество для типов конструкций, а в итоговой ведомости расхода стали появилась строка «Всего» с соответствующими данными..
-Появилась функция экспорта таблиц в Autocad. Нажатием кнопки экспортируются все спецификации из окна «Наименование конструкций» (создается новый файл в Auocad, таблицы последовательно вставляются..). Ведомость расхода стали экспортируется соотв. кнопкой на листе, предварительно необходимо выделить
диапазон.. Вообще, можно экспортировать любой выделенный диапазон на любом листе, запустив Module7.main (из списка макросов alt + F8); в этом случае, правда, форматирование в Акадовской таблице получится «от балды»

P.S напоминаю, что в названии листов должны быть только цифры/буквы.. Использование других символов может привести к ошибкам..
P.P.S Оказалось, названия марок сборочных единиц не должны совпадать с адресами ячеек. То бишь не надо назвать закладную MN1, ошибка будет.. Так что в названиях марок кириллицу используйте..
Программа подсчета спецификаций КЖ и создания ведомости расхода стали. VBA Excel 2007.1
Программа подсчета спецификаций КЖ и создания ведомости расхода стали. VBA Excel 2007.2
Программа подсчета спецификаций КЖ и создания ведомости расхода стали. VBA Excel 2007.3

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 21-30 из 73
serz.kom , 19 марта 2010 в 09:34
#21
Извеняюсь. Заработало на другом компе.
AlexV , 19 марта 2010 в 11:04
#22
"Ругается на макросы.." Дело может быть в параметрах безопасности excel. В "Параметры обеспечения безопасности" > "Параметры макросов" надо "включить все макросы"..
atmk , 24 марта 2010 в 08:11
#23
Отличная штукенция. Очень помогает при выборке.
а как пополнять базу новыми элементами, например трубами
AlexV , 24 марта 2010 в 13:28
#24
"а как пополнять базу новыми элементами?"
-Открыть excel файл с макросами, отобразить скрытый лист "База", заполнить следующие за последним 2 столбца по образцу предыдущих. В 1-й строке 1-го столбца - название профиля, в последующих строках - типоразмеры. Во 2-м столбце, в 1-й строке - N ГОСТ или ТУ, в последующих - масса соответствующего типоразмера. Затем снова скрыть лист, сохранить файл..
Shpalich , 25 сентября 2010 в 08:51
#25
Блин, приятно услышать, что на белом свете есть такие же "повернутые" на автоматизации.
Респект автору проги.
Добавлю, что если автор свяжеться со мной, я ему расскажу как усовершенствовать прогу, избегая тех потерь времени на поиск инфы для этой эволюции.
Сам разработал что-то похожее - Blank-RZ для Excel
он тут: http://dwg.ru/dnl/2573
а тут мои координаты: http://shpalich.ucoz.ru

А эта прога мне очень понравилась своей простотой, нормальным быстродействием и отличнной задумкой.
AlexV , 27 сентября 2010 в 00:59
#26
Shpalich, спасибо на добром слове! Насчет усовершенствований, пиши к примеру на koralv & rambler.ru, или в личку на форуме dwg, там у меня такой же ник.. интересны твои идеи.. Хотя, моя прога в отличие от твоих Blank-RZ - на более любительском уровне, написана "на коленке" без комментов и т.д., так что код модернизации поддается плохо.. Сейчас сам в своем коде уже заплутаю.. ))
wetr , 22 декабря 2010 в 02:46
#27
программа вставляет строки в спецификацию, вместе с другим содержимым буфера обмена. Я скопировал ВРС в буфер для вставки в АКАД, а затем попробовал заполнить спецификацию в Экселе...
AlexV , 22 декабря 2010 в 10:05
#28
"программа вставляет строки в спецификацию, вместе с другим содержимым буфера обмена. Я скопировал ВРС в буфер для вставки в АКАД, а затем попробовал заполнить спецификацию в Экселе..."
-Да, и правда, если в буфере есть скопированные ячейки, то при вставке с добавлением строки происходит сей глюк. Излечимо добавлением процедуры в модуль кода UserForm1:
Public Sub ClearClipboard()
Dim MyDataObj As New DataObject
MyDataObj.SetText "": MyDataObj.PutInClipboard
End Sub

..и вызова ее из процедуры CommandButton1_Click():
Private Sub CommandButton1_Click()
On Error GoTo err_ch
ClearClipboard
NewExcel
Call ADD_ITEM_to_CBOX(UserForm1.Controls.Item("ComboBox8"), ComboBox8.Value)
Call ADD_ITEM_to_CBOX(UserForm1.Controls.Item("ComboBox9"), ComboBox9.Value)
Exit Sub
err_ch:
MsgBox "Îøèáêà N " & Err.Number & vbCrLf & Err.Description
End Sub
Следующий раз перезаливать архив буду, исправлю..
bradimava , 20 января 2011 в 00:51
#29
не получается(получается все кроме гиперссылке и диапазона - короче ничего) у меня как написано в описание, но вроде делаю как надо, можно еще раз "step by step".
куда написать "в графе "Поз." значение соответствовало тому, что будет в строке над спецификацией на данную сборочную единицу" в создание и редактирование спецификацией или прямо в excel.
Надеюсь был понят(трудно на русском выражаться).
Спасибо (еще учусь)...
bradimava , 20 января 2011 в 10:04
#30
P.S.
У меня office 2010(полная)- может быть это проблема?
zip

1.33 МБ

СКАЧАТЬ