【エクセルマクロ】ダブルクリックした行の値を配列に格納する

エクセルマクロで、ダブルクリックした行の値を配列に格納するVBAコードをご紹介します。

特定の1行だけ配列に格納することができます。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。

ダブルクリックした行の値を配列格納

以下のマクロを実行すると、ダブルクリックした行の値を配列に格納します。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim i As Long
Dim Last_Clm As Long
Dim Tmp() As Variant
Dim msg As String

    '最終列を取得
    Last_Clm = Range("A1").End(xlToRight).Column - 1

    '配列の要素数を指定
    ReDim Preserve Tmp(Last_Clm)

    With Target

        'A列をダブルクリックしたら
        If .Column = 1 Then
            For i = 0 To Last_Clm
                Tmp(i) = Cells(ActiveCell.Row, 1).Offset(0, i).Value
            Next i
        End If
    End With
    
    '配列の中身を変数へ格納
    For i = 0 To UBound(Tmp)
        msg = msg & Tmp(i) & vbCrLf
    Next
    
    'メッセージボックス表示
    MsgBox msg

End Sub