AlexV
размещено: 14 Августа 2009
обновлено: 12 Марта 2014
Предлагаю протестировать программу для создания и изменения спецификаций, а так же создания ведомости расхода стали (в основном, может пригодиться тем, кто занимается КЖ). В архиве краткое описание в Word-файле, и экселевские (Excel2007) файлы «Спецификация» и «Пример» ( первый можно сохранить как шаблон, и затем использовать при создании новых спецификаций, во втором –образец спецификаций и ведомости расхода стали, полученной с ее помощью)
Excel файл содержит базу данных по металлопрокату (которую можно дополнять), и несколько макросов: для создания спецификации, пересчета спецификации и создания ведомости расхода стали по созданным спецификациям (описание в архиве)
'*___________________________________*
Произвел небольшой "апгрейд":
-исправлены несколько ошибок в подсчетах (для некоторых категорий в столбцах «Итого»)
-Теперь можно задавать количество для типов конструкций, а в итоговой ведомости расхода стали появилась строка «Всего» с соответствующими данными..
-Появилась функция экспорта таблиц в Autocad. Нажатием кнопки экспортируются все спецификации из окна «Наименование конструкций» (создается новый файл в Auocad, таблицы последовательно вставляются..). Ведомость расхода стали экспортируется соотв. кнопкой на листе, предварительно необходимо выделить
диапазон.. Вообще, можно экспортировать любой выделенный диапазон на любом листе, запустив Module7.main (из списка макросов alt + F8); в этом случае, правда, форматирование в Акадовской таблице получится «от балды»
P.S напоминаю, что в названии листов должны быть только цифры/буквы.. Использование других символов может привести к ошибкам..
P.P.S Оказалось, названия марок сборочных единиц не должны совпадать с адресами ячеек. То бишь не надо назвать закладную MN1, ошибка будет.. Так что в названиях марок кириллицу используйте..
1.33 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
а как пополнять базу новыми элементами, например трубами
-Открыть excel файл с макросами, отобразить скрытый лист "База", заполнить следующие за последним 2 столбца по образцу предыдущих. В 1-й строке 1-го столбца - название профиля, в последующих строках - типоразмеры. Во 2-м столбце, в 1-й строке - N ГОСТ или ТУ, в последующих - масса соответствующего типоразмера. Затем снова скрыть лист, сохранить файл..
Респект автору проги.
Добавлю, что если автор свяжеться со мной, я ему расскажу как усовершенствовать прогу, избегая тех потерь времени на поиск инфы для этой эволюции.
Сам разработал что-то похожее - Blank-RZ для Excel
он тут: http://dwg.ru/dnl/2573
а тут мои координаты: http://shpalich.ucoz.ru
А эта прога мне очень понравилась своей простотой, нормальным быстродействием и отличнной задумкой.
-Да, и правда, если в буфере есть скопированные ячейки, то при вставке с добавлением строки происходит сей глюк. Излечимо добавлением процедуры в модуль кода 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
Следующий раз перезаливать архив буду, исправлю..
куда написать "в графе "Поз." значение соответствовало тому, что будет в строке над спецификацией на данную сборочную единицу" в создание и редактирование спецификацией или прямо в excel.
Надеюсь был понят(трудно на русском выражаться).
Спасибо (еще учусь)...
У меня office 2010(полная)- может быть это проблема?