【VBA】セルの値を取得・範囲指定・ユーザ選択：変数・配列

Sub GetRangeValues()

Dim rng As Range
Dim cell As Range

' 範囲を設定
Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C3")

' 範囲内の各セルの値を取得
For Each cell In rng

Debug.Print cell.Value

Next cell

End Sub

Sub GetRangeValuesToArray()

Dim rng As Range
Dim values As Variant
Dim i As Integer, j As Integer

' 範囲を設定
Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C3")

' 範囲内の値を配列に格納
values = rng.Value

' 配列の内容をデバッグウィンドウに出力
For i = 1 To UBound(values, 1)

For j = 1 To UBound(values, 2)

Debug.Print values(i, j)

Next j

Next i

End Sub

Sub GetCellValueToVariable()

Dim cellValue As Variant

' セルの値を取得
cellValue = ThisWorkbook.Sheets("Sheet1").Range("A1").Value

' 変数の内容をデバッグウィンドウに出力
Debug.Print cellValue

End Sub

Sub GetUserSelectedRangeValues()

Dim rng As Range
Dim cell As Range

' ユーザーに範囲を選択させる
On Error Resume Next
Set rng = Application.InputBox("範囲を選択してください", Type:=8)
On Error GoTo 0

' 選択された範囲が有効か確認
If rng Is Nothing Then

MsgBox "範囲が選択されていません。"
Exit Sub

End If

' 範囲内の各セルの値を取得
For Each cell In rng

Debug.Print cell.Value

Next cell

End Sub