Excelマクロ（VBA)で作る管理システム①

今回はExcelマクロを使った仕入管理システムについて、そのコードとプロシージャについて解説していきたいと思います。
仕入管理システムの作成ですが、顧客管理、売上管理、在庫管理への転用など汎用性の高いコードになっておりますので、ご自身が業務等に使えそうな部分だけでも是非参考にしていただけたらと思います。
（画面設定やブックの保護・解除などシステムとして動作制限をかけるコードについては省略しています。）
VBAコード全体は基本的なものが中心ですので、ご安心ください。それではまいります。

概要（完成形）
ユーザーフォームの解説「マスタ登録フォーム」
コードの解説「マスタ登録フォーム」
1. 各コントロールのプロパティ
イベントプロシージャ（商品マスタデータ削除）
まとめ

概要（完成形）

シートは３つあります。

「商品マスタ」シート：商品データ（バーコード、商品名、取引先、仕入単価）を登録しておくシートです。※今回はここの部分の説明です。
「DB」シート：仕入が発生した時に入力しておくシートです。マスタシートからデータ参照して日付、バーコード、取引先名、数量、単価を入力します。バーコードからマスタデータを検索可能です。
「仕入帳」シート：月次仕入帳を作成します。DBシートで入力したデータから月次仕入帳を作成します。

ユーザーフォームの解説「マスタ登録フォーム」

ユーザーフォームを使用して「商品マスタ」シート上に商品マスタデータを作成していきます。

ユーザーフォーム

こういったシステムを作成する際に、ユーザーフォームは非常に効果的です。

理由としてはユーザーがワークシートに自由にデータ入力することを制限できるからです。つまり、エラーが起こる確率を減らせます。

「挿入」タブ→「ユーザーフォーム」から作成します。

ユーザーフォームのわかりやすい説明

これから説明するユーザーフォームの中のボタンやテキストボックス、コンボボックスなどのオブジェクト（コントロール）にVBAコードを仕込んで動かしていくイメージです。　　　　　　　　　（例）ボタンをクリックしたら、文字が転記される。　　　　　　　　　　　　　　　　　　　　　（例）テキストボックス内の数値を変更したら、自動的に計算される。

ユーザーフォームのオブジェクト名

ユーザーフォームを使用する際に、まず行ってほしいことはオブジェクト名の変更です。必要であればCaption（キャプション）の変更です。オブジェクト名を変更することで、このユーザーフォームがどんな役割をするのかわかりやすくなります。
今回は「マスタ登録フォーム」という名前にしています。キャプションは商品マスタ登録です。キャプションはユーザーフォームの左上の名前です。

フォームコントロール

ユーザーフォームを作成したら、ツールボックスを使って各コントロールを配置していきます。

コントロールとはわかりやすく言えば、ボタンとかテキストボックス（入力ボックス）などです。

①②④テキストボックス

①②④はテキストボックスです。四角の中にデータを入力できます。一般的な入力欄です。

コントロールを配置したら、各コントロールのオブジェクト名を変更します。その理由はユーザーフォームのそれと同じです。

③コンボボックス

③はコンボボックスです。図のような使い方ができます。

⑤⑥コマンドボタン

ボタンにVBAコードを入力しておいて、クリックすると実行します。
各コントロールにどんな動作を与えたら、プロシージャが実行するかは図のドロップダウンリストで選びます。
左がオブジェクト名（コントロール名）、右が動作（イベント）です。

Clickを選択しているので、ボタンをクリックすればプロシージャが動くという仕組みです。

コードの解説「マスタ登録フォーム」

'===登録ボタンをクリックした時作動===
Private Sub cb登録_Click()
    Dim max As Long
    If txtバーコード.Text <> "" And txt商品名.Text <> "" And cb取引先.Text <> "" And txt単価.Text <> "" And cb取引先.Text <> "" Then '入力欄に空欄がなければ
        If MsgBox("商品登録しますか？", vbYesNo + vbQuestion) <> vbYes Then Exit Sub '確認メッセージボックス
    Else
        If MsgBox("空欄があります。登録しますか？", vbYesNo + vbQuestion) <> vbYes Then Exit Sub '空欄ありの場合の確認メッセージボックス
    End If
    max = Sheets("商品マスタ").Cells(Sheets("商品マスタ").Rows.Count, 2).End(xlUp).Row + 1 '最終行
    With Sheets("商品マスタ")
        .Cells(max, 1).Value = txtバーコード.Text 'バーコード
        .Cells(max, 2).Value = txt商品名.Text '商品名
        .Cells(max, 3).Value = txt単価.Text '単価
        .Cells(max, 4).Value = cb取引先.Text '取引先名
    End With
End Sub
'===閉じるボタンをクリックした時作動===
Private Sub cb閉じる_Click()
    Unload マスタ登録フォーム
End Sub
'===ユーザーフォームの初期設定===
Private Sub UserForm_Initialize()
    cb取引先.RowSource = "商品マスタ!R2:R7"
End Sub

各コントロールのプロパティ

With Sheets("商品マスタ")
        .Cells(max, 1).Value = txtバーコード.Text 'バーコード入力
        .Cells(max, 2).Value = txt商品名.Text '商品名入力
        .Cells(max, 3).Value = txt単価.Text '単価入力
        .Cells(max, 4).Value = cb取引先.Text '取引先名入力
    End With

上記の部分がユーザーフォームのコントロールの中のデータをワークシートへ入力するコードです。

Textプロパティ

テキストボックスに入っている値を取得します。

つまり取得したテキストをワークシートへ転記しています。

RowSourceプロパティ

指定したセル範囲のデータをリスト表示します。

Private Sub UserForm_Initialize()
    cb取引先.RowSource = "商品マスタ!R2:R7"'商品マスタシートのR2:R7を参照
End Sub

Initializeイベント

イニシャライズとは、ユーザーフォームを立ち上げた時に実行されるプロシージャです。

つまり、今回の場合は、立ち上げた時点でコンボボックスにリストが設定されます。

イベントプロシージャ（商品マスタデータ削除）

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim max As Long
    max = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
    If Target.Column = 2 And Target.Row <= max And Target.Value <> "" Then'2列最終行までの範囲を右クリックすると
        If MsgBox("この商品データを削除します。", vbOKCancel) = vbOK Then
            Target.Offset(, -1).Resize(1, 4).Delete xlShiftUp
        End If
        Cancel = True
    End If
End Sub

こちらはユーザーフォームではなくイベントプロシージャです。

イベントプロシージャとは、選択されたワークシートやセルで特定の操作が行われた時に実行されます。

今回は、「商品マスタ」シートの特定の範囲を右クリックするとデータ削除が実行されます。

BeforeRightClickイベント・・・ワークシートを右クリックした場合に実行

【参考書籍】

リンク