教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について説明していきます。

【ExcelVBA ツール】見積書を簡易的に作成できるツールを紹介します。(見積書作成支援ツール)

       f:id:m_kbou:20200421200633p:plain

見積書を簡易的に作成できる「見積書作成支援ツール」を紹介します。概要は、当ツールにて顧客要求に合う様に見積データを順次入力・保存(以下②)していきます。保存したデータはDB(以下①)に保管されます。見積内容が決定した時点で見積書作成(印刷)指示をする事で、見積書(以下③)が作成されると言う内容になります。下部のダウンロード箇所よりお試しダウンロードもできますので、自由に使用してみて下さい。

           f:id:m_kbou:20200725084146p:plain

【目次】

 

製作環境

・Excel2016(画面)
・Access2016(DB)

 

ツールの登録先

ダウンロードした圧縮ファイルの中には、以下2つのファイルが保存されています。ツールを使用するには、この2つのファイルを同じディレクトリに登録しないと動きません。使用前には必ず確認して下さい。(例:C:\mitumoriにファイルを登録して使用する場合、両ファイル共にこのディレクトリに登録されていないと動きません)
見積作成支援ツール.xlsm ・・・・・・本体ファイルです。
②data.accdb ・・・・・・・・・・・データベースファイルです。

 

画面イメージ

今回作成した画面は以下内容です。

f:id:m_kbou:20200725084240p:plain

 

使い方

このツールの具体的な使い方について説明します。

掛率の登録方法

(1)『見積計算』ボタンをクリックし、見積計算画面を表示します。

f:id:m_kbou:20200725154453p:plain

(2)『掛率』ボタンをクリックし、掛率マスタ画面を表示します。

f:id:m_kbou:20200725113432p:plain

(3)掛率マスタ画面が開き、購入品率・検査割・一般割・利益に1.00%が、賃率に1.00円の掛率が表示されます。

f:id:m_kbou:20200725113523p:plain

(4)各掛率を入力します。今回は以下の様に入力しました。
購入品割:1.00%
検査割:1.10%
一般割:1.20%
利益:1.30%
賃率:10.00円

f:id:m_kbou:20200725113710p:plain

(5)『保存』ボタンをクリックし、入力した各掛率を保存します。

f:id:m_kbou:20200725114221p:plain

(6)”保存しました。”のメッセージが表示されれば、各掛率が保存された事になります。

f:id:m_kbou:20200725114408p:plain

以上で掛率の登録方法は終了です。
ここまでの処理で各掛率がDBに登録された事になります。

 

見積データの新規登録方法

(1)見積計算画面が開くので、青枠内に見積データを順次入力していきます。
※入力する項目は以下内容です。
[基本情報]  [作業時間] [内訳詳細]
 注番    工程1   SEQ
 品番    工程2   構成品番
 品名    工程3   構成品名
 来歴    工程4   単位
 取引先名  工程5   個数
 数量    工程6   単価
       工程7   種別
       工程8   備考
       工程9
       工程10
-------------------------------------------------------------------------------------------------------------------------------------
※今回は例として以下の内容を入力してみます。
[基本情報]
 注番 :000001、品番:A-0001、品名:軽自動車①、来歴:A、取引先名:〇〇オート、数量 :1
[作業時間]
 工程1:15、工程2:60、工程3:20
[内訳詳細]
 SEQ:1、構成品番:A-0001-01、構成品名:カーナビ、単位:個、個数:1、単価:100、種別:購入品
 SEQ:2、構成品番:A-0001-02、構成品名:ハンドル、単位:個、個数:1、単価:50、種別:購入品
 SEQ:3、構成品番:A-0001-03、構成品名:タイヤ、単位:個、個数:4、単価:150、種別:購入品
 SEQ:4、構成品番:A-0001-04、構成品名:線材、単位:M、個数:10、単価:30、種別:材料
-------------------------------------------------------------------------------------------------------------------------------------

f:id:m_kbou:20200725114918p:plain

(2)データの入力が完了した後に『チェック』ボタンをクリックします。

f:id:m_kbou:20200725114938p:plain

(3)”エラー無し”が表示されます。(※エラーがある場合にはエラーメッセージが表示され、エラーが無い場合には『保存』ボタンが表示されます)

f:id:m_kbou:20200725114957p:plain

(4)『保存』ボタンをクリックして見積データを保存します。

f:id:m_kbou:20200725115029p:plain

(5)”保存しました。”のメッセージが表示されます。

f:id:m_kbou:20200725115047p:plain

以上で見積データの新規登録方法は終了です。
ここまでの処理で見積情報がDBに登録された事になります。

 

見積データの検索方法

(1)注番欄に注番を入力します。(※今回は例として注番:000001を入力します)

f:id:m_kbou:20200725115749p:plain

(2)『検索』ボタンをクリックします。

f:id:m_kbou:20200725115806p:plain

(3)検索結果が画面に表示されます。

f:id:m_kbou:20200725115822p:plain

以上で見積データの検索方法は終了です。

 

見積データの更新方法 

(1)上記の見積データの検索方法で見積データを検索して表示します。

f:id:m_kbou:20200725154837p:plain

(2)今回は例として品名を「軽自動車①」→「トラック①」に変更します。

f:id:m_kbou:20200725154903p:plain

(3)データの入力が完了した後に『チェック』ボタンをクリックします。

f:id:m_kbou:20200725154921p:plain

(4)”エラー無し”が表示されます。(※エラーがある場合にはエラーメッセージが表示され、エラーが無い場合には『保存』ボタンが表示されます)

f:id:m_kbou:20200725155003p:plain

(5)『保存』ボタンをクリックして見積データを保存します。

f:id:m_kbou:20200725155029p:plain

(6)”保存しました。”のメッセージが表示されます。

f:id:m_kbou:20200725155100p:plain

以上で見積データの更新方法は終了です。

 

見積データの印刷方法

(1)上記の見積データの検索方法で見積データを検索して表示します。

f:id:m_kbou:20200725120452p:plain

(2)『印刷』ボタンをクリックします。

f:id:m_kbou:20200725120535p:plain

(3)見積データが印刷されます。

f:id:m_kbou:20200725120556p:plain

以上で見積データの印刷方法は終了です。

 

見積データのクリア方法

(1)『クリア』ボタンをクリックします。

f:id:m_kbou:20200725125809p:plain

(2)画面に表示されている見積データがクリアされます。(※画面上のデータがクリされるだけで、DBに登録されているデータは削除させません)

f:id:m_kbou:20200725125825p:plain

以上で見積データのクリア方法は終了です。

 

見積書の作成方法

(1)次にメイン画面に戻り、『見積書作成』ボタンをクリックします。

f:id:m_kbou:20200725084342p:plain

(2)見積書作成画面が開くので、『取り込み』ボタンをクリックします。

f:id:m_kbou:20191031160842p:plain

(3)今まで登録した見積データが一覧で表示されます。

f:id:m_kbou:20191031160929p:plain

(4)見積書を作成したいデータに対するA列セルをダブルクリックします。
※対象セルをダブルクリックすると”●”がセルにセットされます。

f:id:m_kbou:20191031161009p:plain

(5)『見積書』ボタンをクリックします。

f:id:m_kbou:20191031161055p:plain

(6)選択した見積データに対する見積書が表示されます。

f:id:m_kbou:20191031161138p:plain

(7)『印刷』ボタンをクリックします。

f:id:m_kbou:20191031161223p:plain

(8)見積書が印刷されます。

f:id:m_kbou:20191031161311p:plain

以上で見積書の作成方法は終了です。

 

ダウンロード

1drv.ms

 

おわりに

上記内容についての質問があれば、問い合わせフォームより気軽に問い合わせ下さい。