小規模老人保健施設の給食業務向けExcelVBA練習帳、レシピ作成から献立作成、自動食材集計発注、各種帳票印刷まで自動化できる献立システム

Excel VBA

総合献立管理システム

ダウンロードしたファイルを最初に起動したときの初期設定フォーム

施設給食利用時の喫食数設定画面

 

月間献立表のレシピ名が持っている食材情報を特定の曜日シートに自動転記された状態

 

献立システムの具体的内容

レシピを作成する

システムの中で中核になるレシピを作成する機能があります。作成したレシピの食材情報は所定のフォルダーに保存されます

月間の献立を立てる

保存したレシピを基にレシピ名を使って月間の献立表を作ります

月間献立表は週単位で曜日が(月~日)固定されていますから週単位で日付が変化するようになっています

所定の欄(セル)ごとにダブルクリックするとレシピの保存フォルダーが表示され保存したレシピの一覧が表示されるので適当なレシピ名を選択するとレシピ名とそのレシピの保存アドレスが転記されるようになっています。

月間献立の詳細情報を各種管理帳票に自動転記する

献立表にセットしたレシピ名とそのレシピの食材情報を取り出して各種帳票にデータを転送して印刷できます。その内容は以下のようなものです。

■週間献立表

■献立作業指示書

■献立栄養価計算記録

■業者別食材発注書

■パーストック食材発注書

■検食簿

■給食日誌

 

VBAプログラムで工夫したところ

■時間のかかるデータ転送処理でラベルコントロールを使ってプログレスバーに見立てたフォームを表示するようにしました(具体的なコードは以下のカードから参照お願いします)

小規模老人保健施設の給食業務向けExcelVBA練習帳、給食業務のエクセルでプログレスバーを活用。時間のかかる処理中の進捗状況を可視化する
プログレスバーもどき 時間のかかる処理 ①、ダウンロードファイルでは時間のかかる処理として献立作成の場面を想定しました。 ↓ ②、月間献立表の各曜日の食事カテゴリー欄のセルに、献立名にレシピ料理名を登録する ↓ ...

ダウンロード

だいぶ前に作ったものですが、何年かぶりに開けてみたら、あれもこれも思うままに詰め込んだので複雑すぎて何をどうやればいいのかわからなくなってしまいました。メンテナンスの面からみてもなかなかイケテナイシステムでした。

なんか、こんなこともできるという悪い見本かもしれませんので実用には全面的に直さなければいけないとおもいます。(部分的にはなかなかいいのもあります。)

ダウンロードファイルは圧縮していますから解凍してお使いください。

ファイルを最初に開くとき60日間使用期限のフォームが開きますが、その後もお使いになるときはAlt +F11 でVBAエディターを開いてkigennフォームを表示させてフォームモジュールを探るとライセンスキーを見つけることができます。(ctel+Fで検索フォームを表示したら「ライセンスキー」と入力してもOK)

本プログラムはエクセル2013で作成しています。他のバージョンでは動作可能かはわかりません。また、最近(2022年以降)のエクセルではマクロを含んだネット経由のダウンロードファイルは動作しないようになっているようです(確認していません。)

下のカードからダウンロードできます。

コメント

タイトルとURLをコピーしました