Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8721 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【31579】構造体の中の構造体 *suzu* 05/11/25(金) 19:45 質問[未読]
【31582】Re:構造体の中の構造体 ichinose 05/11/25(金) 19:58 発言[未読]
【31583】Re:構造体の中の構造体 *suzu* 05/11/25(金) 20:07 お礼[未読]
【31579】構造体の中の構造体
質問  *suzu*  - 05/11/25(金) 19:45 -
引用なし
パスワード
   初めて質問させていただきます。
よろしくお願いします。

さて、題名の件について、ご教示ください。

下記のように構造体を定義しました。


' 格納用構造体定義
Private recItems()　　　　As RecItem

' 格納用構造体_2
Private Type RecChecks
　strItem　　　　　　　As String
　intChkCnt　　　　　　As Integer
　intStatus　　　　　　As Integer
End Type

' 格納用構造体_1
Private Type RecItem
　strItem　　　　　　　As String
　intPosition　　　　　As Integer
　strJPName　　　　　　As String
　strDBName　　　　　　As String
　intDigit　　　　　　 As Integer
　recCheck()　　　　　 As RecChecks
End Type

上記構造体の配列を再定義したいのですが
【格納用構造体_1】の中に【格納用構造体_2】の再定義を行なう、即ち

　　ReDim recItems.recCheck(6)
　　ReDim recItems(100)

なんて風にすることは可能ですか？
上記で試してみましたが
[修飾子が不正です]というエラーが発生してしまいました...

ご教授の程、よろしくお願い致します。
【31582】Re:構造体の中の構造体
発言  ichinose  - 05/11/25(金) 19:58 -
引用なし
パスワード
   ▼*suzu* さん：
こんばんは。

このようには出来ますけどねえ!!
'=================
Type a
　 a1 As Long
　 a2 As String
　 a3 As String
　 End Type
'==================
Type b
　 b1 As Long
　 b2 As String
　 b3() As a
　 End Type
'====================
Private samp() As b
'====================
　
Sub test()
　　ReDim samp(1 To 10)
　　For idx = 1 To 10
　　　ReDim samp(idx).b3(1 To 10)
　　　Next
End Sub
【31583】Re:構造体の中の構造体
お礼  *suzu*  - 05/11/25(金) 20:07 -
引用なし
パスワード
   ichonose さん。
早速にご教示ありがとうございます。

望みどおりの処理です！すごく助かりました☆
ありがとうございました、感謝感謝ですっm(_ _*)m

▼ichinose さん：
>こんばんは。
>
>このようには出来ますけどねえ!!
>'=================
>Type a
>　 a1 As Long
>　 a2 As String
>　 a3 As String
>　 End Type
>'==================
>Type b
>　 b1 As Long
>　 b2 As String
>　 b3() As a
>　 End Type
>'====================
>Private samp() As b
>'====================
>　
>Sub test()
>　　ReDim samp(1 To 10)
>　　For idx = 1 To 10
>　　　ReDim samp(idx).b3(1 To 10)
>　　　Next
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8721 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free