| |
▼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 "データなし"
私にとっては、本当に上記の表記で取得できる形式で
データが配置されているのかということに興味をもちました。
|
|
ichinose
- 06/4/29(土) 8:18 -
