|
▼mai×2 さん:
おはようございます。
>データは、下記のような配列になっています。
>data(0)(0)=20060428
>data(1)(0)=""
>data(2)(0)=""
>data(3)(0)="001"
>data(3)(1)="002"
>data(3)(2)="003"
>data(4)(0)="株式会社AAA不動産"
>data(4)(1)="○×商店"
>data(4)(2)="CS製作所"
本当に上記のような表記でデータを取得(上記は設定ですが)
しているのですか?上記のような表記をするには、
'============================================================
Sub sample()
Dim data(4) As Variant
Dim x0 As Long, x1 As Long
data(0) = Array(20060428)
data(1) = Array("")
data(2) = Array("")
data(3) = Array("001", "002", "003")
data(4) = Array("株式会社AAA不動産", "○×商店", "CS製作所")
For x0 = LBound(data()) To UBound(data())
For x1 = LBound(data(x0)) To UBound(data(x0))
MsgBox data(x0)(x1)
Next x1
Next x0
End Sub
一例ですが、dataという配列要素に配列を設定すれば
data(x0)(x1)
という表記をするのですが、間違いないですか?
>ところが、検索結果が「なし」の場合、
>data(3)は「インデックスが有効範囲にありません」のでエラーになってしまいます。
>このような場合「データなしエラー」にしたいのですが、どのような判断式を入れたらよいでしょうか?
上記のエラーが発生するのならば
エラートラップを拾う方法が考えられますけどねえ!!
wk = data(3)
If Err.Number <> 0 Then MsgBox "データなし"
私にとっては、本当に上記の表記で取得できる形式で
データが配置されているのかということに興味をもちました。
|
|