Excel VBA質問箱 IV

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

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


53288 / 76736 ←次へ | 前へ→

【28265】Re:構造体の動的配列をプロージャに引数とし...
発言  ichinose  - 05/9/1(木) 16:53 -

引用なし
パスワード
   ▼Kohaku さん:
こんにちは。

>はじめまして。いつも参考にさせていただいてます。
>質問ですが、構造体(ユーザ定義型)の動的配列を、他のプロージャに引数として渡し
たいのですが、うまくいきません。
       ↑このうまくいかない内容を詳細に記述して下さい。
例えば、

以下のコードを実行すると

xxxの行で xxxx「xxxxxxx」というエラーメッセージが

表示され、プログラムが中断します。
私の仕様はxxxxxとなる予定なんですが・・・

というように・・・。


標準モジュールに

'================
Type sample
aaa As Integer
bbb As Integer
ccc As String
End Type
'=====================================================
Sub main()
  Dim a(1 To 3) As sample
  Call other(a())
  For g0 = LBound(a()) To UBound(a())
   With a(g0)
    MsgBox .aaa & vbCrLf & .bbb & vbCrLf & .ccc
    End With
   Next g0
End Sub
'==========================================
Sub other(data() As sample)
 For g0 = LBound(data()) To UBound(data())
   With data(g0)
    .aaa = g0
    .bbb = g0 + 1
    .ccc = g0 + 2
    End With
   Next g0
End Sub

mainを実行してみて下さい。
ユーザー定義型の配列を引数にして実行できています。

という事でしょうか?

だとしたら、宣言の仕方がエラーの原因ですが・・・。

Dim a(1 To 3) As sample


確認して下さい。
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 お礼

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