|
■No99906 (白音 さん) に返信
> 変数名 dat で
> Variant/Variant(1to2,1to3) の以下の配列が
> あるとします。
セルの中身は、"A1" などの文字列ですか?
Dim dat(1 To 2, 1 To 3) As Variant
dat(1, 1) = "A1": dat(1, 2) = "B1": dat(1, 3) = "C1"
dat(2, 1) = "A2": dat(2, 2) = "B2": dat(2, 3) = "C2"
それとも、[A1] などのセルそのものですか?
Set dat(1, 1) = Sheet1.Range("A1")
Set dat(2, 1) = Sheet1.Range("A2")
あるいは、セルの値が入っている状態ですか?
dat(1, 1) = Sheet1.Range("A1").Value
dat(1, 2) = Sheet1.Range("B1").Value
> 以下のような使い方ができないのですが
> どうすればよいのでしょうか？
「二次元配列」の代わりに「配列の配列」を使うことはできます。
Option Base 1
Sub Test()
Dim dat(1 To 2) As Variant
dat(1) = Array("A1", "B1", "C1")
dat(2) = Array("A2", "B2", "C2")
Dim i As Long
For i = 1 To 2
Example dat(i)
Next
End Sub
Public Sub Example(vdat As Variant)
MsgBox vdat(1)
MsgBox vdat(2)
MsgBox vdat(3)
End Sub
|