【応用】ミニ在庫管理シートを作る

このレッスンでは、ここまで学んだ配列・Sub/Function・For文・Select Caseを組み合わせて、簡単な在庫管理マクロを作ってみます。VBA入門の総仕上げの内容です。

実際の業務マクロでは、「商品名」と「数量」のような複数のデータを配列で管理し、条件によって在庫状態を判定し、結果をまとめて表示する、という組み合わせがよく使われます。

サンプルコードでは、商品名と数量の配列を用意し、StatusOf関数で在庫状態を判定しながら、一覧をメッセージとして組み立てています。

ここまでのレッスンで学んだセル操作・配列・エラー処理などは、実際の業務マクロの開発でも土台となる考え方です。まずは小さなマクロから作り始め、日々の業務にある繰り返し作業を1つずつ自動化していくことが、実務でVBAを使いこなすための近道になります。

📖 お手本コード

Function StatusOf(quantity As Integer) As String
    If quantity = 0 Then
        StatusOf = "在庫切れ"
    ElseIf quantity < 5 Then
        StatusOf = "残りわずか"
    Else
        StatusOf = "在庫あり"
    End If
End Function

Sub InventoryReport()
    Dim names(2) As String
    Dim quantities(2) As Integer
    Dim i As Integer
    Dim result As String

    names(0) = "ノート": quantities(0) = 12
    names(1) = "消しゴム": quantities(1) = 3
    names(2) = "定規": quantities(2) = 0

    For i = 0 To 2
        result = result & names(i) & ": " & quantities(i) & "個(" & StatusOf(quantities(i)) & ")" & vbNewLine
    Next i
    MsgBox result
End Sub

✍️ あなたのコード

コードを書いたら「実行する」を押してください

🧪 このサイトではVBA(Excelマクロ)を直接コンパイル・実行できないため、お手本コードと同じ内容を入力できたかをその場で判定します(採点はブラウザ内だけで行われ、どこにも送信されません)。