Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53285 / 76736

←次へ　｜　前へ→


	【28268】Re:構造体の動的配列をプロージャに引数...

Kohaku - 05/9/1(木) 17:56 -


	引用なし

	パスワード

ichinoseさん、こたつねこさん、返信ありがとうございます。
自己解決になってしまいましたが、main実行時に、ohter()を引っ張る際
call other(a)ではなく、other(a)としていたことが原因でした。

ポカミス申し訳ないです。

>動的配列を使用する場合、サイズを決定する前に
>要素にアクセスするとエラーになるのでその前に
>サイズを指定するようにしましょう。
sub ohter()内部でReDimしているため、大丈夫でした。
Sub other(data() As sample)

　　Dim i As Integer
　　With Worksheets("Sheet3")
　　　　i = 1
　　　　Do While .Cells(i, 1) <> ""
　　　　　　ReDim Preserve data(i)
　　　　　　data(i).aaa = .Cells(i, 1)
　　　　　　data(i).bbb = .Cells(i, 2)
　　　　　　data(i).ccc = .Cells(i, 3)
　　　　　　i = i + 1
　　　　Loop
　　End With
End Sub

ありがとうございました。

0 hits

▼

【28251】構造体の動的配列をプロージャに引数とし... Kohaku 05/9/1(木) 13:09