エクセルマクロで選択肢に応じた記録を残す方法

エクセルで選択肢に応じて記録を自動で管理したいというニーズはよくあります。特に、選択した項目に基づいてデータを更新・保存したり、アプリケーションを閉じてもデータが保存されるようにする方法について解説します。

1. エクセルで選択肢に応じた記録を残すマクロ設定
2. VBAマクロコードの設定方法
3. 保存の方法とデータ保持
4. トラブルシューティングと注意点
まとめ

1. エクセルで選択肢に応じた記録を残すマクロ設定

選択肢をA1セルに設定し、選択された項目に応じてA2以下に記録を残す方法について説明します。ここでは、選択肢として「AA」「BB」「CC」を設定し、選択した内容に応じて記録が変わるようにします。

まず、A1セルに選択肢（リスト）を設定します。次に、A2以降に記録を残すためのマクロを設定します。

2. VBAマクロコードの設定方法

以下のVBAコードを使うことで、A1セルで選択した項目に応じて記録が変わり、保存されます。特に重要なのは「Workbook_Open」イベントを使用して、エクセルを開いた時にも選択された内容を保持できるようにすることです。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target.Value = "AA" Then
            Range("A2:A3").Value = "1月 〇〇 2月 〇〇"
        ElseIf Target.Value = "BB" Then
            Range("A2:A3").Value = "1月 ×× 2月 △△"
        ElseIf Target.Value = "CC" Then
            Range("A2:A3").Value = "1月 ◆◆ 2月 ★★"
        End If
    End If
End Sub

3. 保存の方法とデータ保持

設定した内容をエクセルを閉じても保持するためには、エクセルの「保存」機能を使うだけでなく、シートやブックのオープン時に自動的に内容を読み込むようなマクロを追加する必要があります。以下のコードを使って、エクセルを閉じた後に開くときに記録内容を復元できます。

Private Sub Workbook_Open()
    If Sheets("Sheet1").Range("A1").Value = "AA" Then
        Sheets("Sheet1").Range("A2:A3").Value = "1月 〇〇 2月 〇〇"
    ElseIf Sheets("Sheet1").Range("A1").Value = "BB" Then
        Sheets("Sheet1").Range("A2:A3").Value = "1月 ×× 2月 △△"
    End If
End Sub