Excel VBA質問箱 IV

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

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


53281 / 76732 ←次へ | 前へ→

【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 質問
【28265】Re:構造体の動的配列をプロージャに引数と... ichinose 05/9/1(木) 16:53 発言
【28266】Re:構造体の動的配列をプロージャに引数と... こたつねこ 05/9/1(木) 17:12 回答
【28267】Re:構造体の動的配列をプロージャに引数と... こたつねこ 05/9/1(木) 17:27 発言
【28268】Re:構造体の動的配列をプロージャに引数... Kohaku 05/9/1(木) 17:56 お礼

53281 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free