| |
Sub test()
Dim S1 As Worksheet
Dim A(1 To 3, 1 To 4) As String・・・・・１
Set S1 = Worksheets("sheet1")
A = S1.Cells(1, 1).Resize(3, 4).Value・・・・・・２
MsgBox "A(1, 1) = " & A(1, 1) & vbCr & _
"A(1, 2) = " & A(1, 2) & vbCr & _
"A(1, 3) = " & A(1, 3) & vbCr & _
"A(1, 4) = " & A(1, 4) & vbCr & _
"A(2, 1) = " & A(2, 1) & vbCr & _
"A(2, 2) = " & A(2, 2) & vbCr & _
"A(2, 3) = " & A(2, 3) & vbCr & _
"A(2, 4) = " & A(2, 4) & vbCr & _
"A(3, 1) = " & A(3, 1) & vbCr & _
"A(3, 2) = " & A(3, 2) & vbCr & _
"A(3, 3) = " & A(3, 3) & vbCr & _
"A(3, 4) = " & A(3, 4)
End Sub
Sub TEST1()
Dim S1 As Worksheet
Dim A As Variant・・・・・３
Set S1 = Worksheets("Sheet1")
' セル範囲を一気に配列に転記
A = S1.Cells(1, 1).Resize(3, 4).Value
' 処理結果をメッセージ表示
MsgBox "A(1, 1) = " & A(1, 1) & vbCr & _
"A(1, 2) = " & A(1, 2) & vbCr & _
"A(1, 3) = " & A(1, 3) & vbCr & _
"A(1, 4) = " & A(1, 4) & vbCr & _
"A(2, 1) = " & A(2, 1) & vbCr & _
"A(2, 2) = " & A(2, 2) & vbCr & _
"A(2, 3) = " & A(2, 3) & vbCr & _
"A(2, 4) = " & A(2, 4) & vbCr & _
"A(3, 1) = " & A(3, 1) & vbCr & _
"A(3, 2) = " & A(3, 2) & vbCr & _
"A(3, 3) = " & A(3, 3) & vbCr & _
"A(3, 4) = " & A(3, 4)
End Sub
いつもお世話になっております。
サンプルで配列変数について勉強しています。
１の所で配列を指定しているにもかかわらず、
２のAの所でコンパイルエラーと表示されるのはなぜかわかりません。
逆に配列を指定してない３で上手くいくのですか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
