【VBA】セルを選択したらCSVファイルを開くマクロ｜G列の選択でE列のファイル名と連動

2024年3月30日2026年1月14日

概要

Excelで作業していると、特定のセルを選択したときに、自動で関連ファイルを開きたくなる場面がありますよね。
今回は、「G2〜G100のセルにカーソルを合わせたときに、対応するCSVファイルを自動で開くVBAマクロ」をご紹介します。

CSVファイルは指定のフォルダに保存
E列にファイル名（拡張子なし）を記載
G列のセルに「開く」と記載された行がトリガー

このような仕様で、マウス操作だけでCSVファイルをすぐに開ける便利なマクロを実装できます。

実現する仕様

G2～G100のセルを選択したときに動作
同じ行のE列に記載されたファイル名をもとにCSVファイルを検索
メッセージボックスで確認後、CSVファイルを開く
ファイルが存在しない場合は警告を表示

前提準備

CSVファイルを保存しているフォルダを用意
Excelの**E列に「ファイル名（拡張子なし）」**を記入
G列の任意の行に「開く」と入力（これがトリガーになります）

VBAコード全文（ワークシートモジュール）

以下のコードをVBAエディタの対象ワークシート（例：Sheet1）モジュールに貼り付けてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' G列の特定のセルが選択されたかどうかをチェック
    If Not Intersect(Target, Me.Range("G2:G100")) Is Nothing Then
        If Target.Value = "開く" Then
            Dim code As String
            code = Me.Cells(Target.Row, "E").Value
            
            ' CSVファイルが格納されているフォルダパスを設定
            Dim csvFolderPath As String
            csvFolderPath = "C:\Users\YourName\Documents\CSVフォルダ\" ' ←適宜変更
            
            Dim csvFilePath As String
            csvFilePath = csvFolderPath & code & ".csv"
            
            If Len(Dir(csvFilePath)) > 0 Then
                Dim MsgResponse As VbMsgBoxResult
                MsgResponse = MsgBox(code & ".csv のファイルを開きますか？", vbQuestion + vbYesNo, "確認")
                
                If MsgResponse = vbYes Then
                    Workbooks.Open Filename:=csvFilePath
                End If
            Else
                MsgBox code & ".csv が見つかりません。", vbExclamation
            End If
        End If
    End If
End Sub