Top> 工程生産管理(概要・画面)（有料）
工程生産管理作成プログラム
（１）工程管理・生産管理の目的
生産機械はどんどん進歩し、合理化に多いに役立っています。
生産機械には投資をするがIT化には投資をしない企業が多いように思えます。
それはIT化は目に見えない合理化だからと思います。
また販売・経理・給与とは違って各社特有の仕事の流れがあるのでパッケージでは使い勝手が悪いのも理由の１つだと思います。
エクセルが普及してきたのでエクセルで工程・生産管理をしている企業も多く見られます。
ここからSQL等のデータベースを使ってシステム化するまでの前にVBAで自動化することをおすすめいたします。
エクセルで工程・生産管理を作っている担当者は仕事の内容がわかっていますので
「納期」を守る「生産期間」を短縮する「仕掛在庫」を少なくする等をいつも考えながら
生産計画を作っています。
そのノウハウをだれでもつかえるようにするのがIT化の目的です。
また日々の積み重ねによってしか目標は達成できません。
以下のVBA実践塾の生産・工程プログラムが日本経済とくに大阪の中小製造業が元気になることを願っております。
（２）受注伝票
入力
受注表登録（部材展開）ボタンをクリック
部材展開シート
受注データの製品名に必要な半製品・部材の明細と数量と製作予定日数を拾い出す。
半製品も展開した部材のみ展開シートも作成する。
拾い出しに必要な資料
完成品の半製品・部材表
半成品の部材表
完成品の作業日数
半成品の作業日数
受注明細に累積
（３）システムの流れ
部材展開
受注表シートから製造するのに必要な半製品と部材を検索して半製品名と部材名と個数をひろいだす。
受注表シート
製品名を完成製品シートから探す
あり
製品名と数量を部材展開シートにコピー
完成製品シートの半製品1に半製品があるか判断
あり
半製品名を部材展開シートにコピー
部材展開シートの数量×製品数量を部材展開シートにコピー
完成製品シートの半製品1から３まで判断する
完成製品シートの部材1に部材があるか判断
あり
部材名を部材展開シートにコピー
部材展開シートの数量×製品数量を部材展開シートにコピー
完成製品シートの部材1から５まで判断する
部材のみ展開（半製品の部材展開）
部材展開シート部材展開シートの製品名に製品名があるか判断
あり
製品名と数量を作業シートにコピー
部材展開シートの半製品に半製品名があるか判断
あり
半製品名を半製品シートから探す
あり
半製品シートの使用部材１に部材があるか判断
あり
部材名を部材展開シートにコピー
部材展開シートの数量×製品数量を部材展開シートにコピー
半製品シートの部材1から５まで判断する
部材展開シートの部材に部材名があるか判断
あり
部材名と数量を作業シートにコピー
作業シートの部材数を合計して部材のみ展開シートにコピー
製品納期を製品納期シートから検索して部材展開シート追加個数によって納期が異なるため個数を判断してその列を探し出す。
半製品納期を半製品納期シートから検索して部材展開シート追加
個数によって納期が異なるため個数を判断してその列を探し出す。
製品数量シートの受注数量に加算
受注表から製品数量シートに受注数量を加算しておく
製品ごとの月間受注数量を見るため。
受注明細
部材展開が終われば受注表を受注明細に追加して次の受注入力のためにクリアにしておく。
（４）製造指図書
入力
部材展開シートを判断しながら入力する。
部材シートの在庫を判断しながら入力する。
半製品シートの在庫を判断しながら入力する。
部材展開シート
半製品も展開した部材のみ展開シート
部材シート
半製品シート
製造指図書入力データ
製造指図書入力後登録（製品作成予定）のボタンをクリックすると製品製作予定シートが出来、受注明細シートの製作依頼中数量に加算、製品シートの製作依頼中数量に加算される。
製品製作予定シート
システムの流れ
製品製作予定
製造指図書シートの作業開始日・製品名・個数・予定日数を元に日付カレンダーのついた
製品製作予定シートに完成日に数量・作業日に*をつける。
製品製作予定シートは月次更新で毎月作成されるシートです。
2014/11月分の場合は2014/11/1から2014/12/31までのカレンダーになり営業日土日は自動で１がつくが祭日は考慮していないため1をつけてください。
年間カレンダーがあればそこから自動で区分をつけることができます。
線付けボタンをクリックすると工程の期間に線をつけることができます。
受注明細シートの製作依頼中数量に加算
製造指図書シートから受注明細シートの製作依頼中数量を加算しておく
受注データの進捗を見るため。
製品数量シートの製作依頼中数量に加算
製造指図書シートから製品数量シートの製作依頼中数量を加算しておく
製品ごとの受注・生産状況を見るため。
製造指図書累計
部材展開が終われば製造指図書を製造指図書累計に追加して次の製造指図書入力のためにクリアにしておく。
（５）半製品製造指図書
入力
半製品部材表ボタンをクリックすると半製品部材展開シートが作成されます。
半製品部材展開シート
半製品製造指図書登録ボタンをクリックすると 半製品作成予定シートができます。
半製品依頼数量に更新
半製品数量シートの当月依頼数量に加算
半製品製造指図書シートから半製品数量シートの当月製作依頼数量を加算しておく
半製品ごとの残高を見るため。
半製品製造指図書累計
半製品予定表シート作成が終われば半製品製造指図書を半製品製造指図書累計に追加して次の製造指図書入力のためにクリアにしておく。
（６）作業日報
入力
製品数量
製品数量シートの完成数量に加算
半製品数量
半製品数量シートの当月製造数と当月使用数に加算
部材シート
部材シートの当月使用数に加算
検索フォームオブジェクト名一覧
部材検索
マウスを部材を入力するセルの上にある（セルがアクティブ）な時に部材検索ボタンをクリックします。
リストボックスで選んだデータはlst buzai.Textに代入されていますので
ActiveCell = lst buzai.Textでアクティブに代入します。
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdJikkou_Click()
activecell = lstbuzai.text
Unload Me
End Sub
Private Sub lstbuzai_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
activecell = lstbuzai.text
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
Dim lastrow As Long
lastrow = Worksheets("部材").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
With lstbuzai
.AddItem
.List(i - 2, 0) = Worksheets("部材").Cells(i, 1)
End With
Next
End Sub
受注明細一覧
半製品検索
工程検索
製品検索
社員検索
プログラム一覧
| 項目 | 内容・ボタン名 | プログラム名 |
|---|---|---|
| メニュー | 伝票入力 | 受注表入力 |
| 製造指図書入力 | ||
| 半製品製造指図書入力 | ||
| 作業日報入力 | ||
| 各種資料 | 部材展開表 | |
| 部材のみ展開表 | ||
| 製品作成予定表 | ||
| 半製品部材展開表 | ||
| 半製品作成予定表 | ||
| 製品数量 | ||
| 半製品数量 | ||
| 部材数量 | ||
| 受注明細 | ||
| 製造指図書累積表示 | ||
| 半製品製造指図書累積表示 | ||
| 作業日報累積表示 | ||
| マスター | 製品部材表表示 | |
| 製品納期表示 | ||
| 半製品部材表表示 | ||
| 半製品納期表示 | ||
| 社員表示 | ||
| 工程表示 | ||
| 受注表入力 | 受注表登録（部材展開） | 部材展開 |
| 半製品展開 | ||
| 部材数を合計 | ||
| 製品名を1つだけ表示 | ||
| 製品納期 | ||
| 半製品納期 | ||
| 部材展開の書式変更 | ||
| 製品数量の受注数更新 | ||
| 受注明細に累積 | ||
| 製品検索 | 製品検索 | |
| 製造指図書 | 登録（製品作成予定） | 製品作成予定 |
| 製作依頼中に更新 | ||
| 製品数量の製作依頼中に更新 | ||
| 製造指図書累積 | ||
| 製品作成予定 | 休日つけ | |
| 線付け | ||
| 線削除 | ||
| データ取り込み | データ取り込み | |
| 担当検索 | 社員検索 | |
| 工程検索 | 工程検索 | |
| 予定日数 | 予定日数 | |
| 半製品製造指図書 | 半製品製造指図書登録 | 半製品製造指図書登録 |
| 半製品製造数量に更新 | ||
| 半製品製造指図書累積 | ||
| 半製品部材表 | 半製品部材表 | |
| 半製品検索 | 半製品検索 | |
| 作業日報 | 作業日報登録録 | 作業日報登録 |
| 半製品数量加算 | ||
| 使用部材数量加算 | ||
| 使用半製品数量加算 | ||
| 作業日報累積 | ||
| 部材検索 | 部材検索 |
有料メルマガ購読者にはプログラムを差し上げます
