いくつかの構造体で変数を定義しています。
構造体が３つあるのですが(A,B,Cとする）
Aの構造体に定義されている変数に代入されているデータを
まるごとCの構造体の一部に代入することは可能でしょうか？
入れ子で定義をしてみたんですが、だめでした。
ご教授お願いします。
Ａテーブル変数定義
Public Type "Ａ"Table
Ａ項目１ As String
Ａ項目２ As String
Ａ項目３ As String
End Type
Ｂテーブル変数定義
Public Type "Ｂ"Table
Ｂ項目１ As String
Ｂ項目２ As String
Ｂ項目３ As String
End Type
Ｃテーブル変数定義
Public Type "Ｃ"Table
Ｃ項目１ As String
Ｃ項目２ As String
Ｃ項目３ As String
Ｃ(Ａ項目１) As String
Ｃ(Ａ項目２) As String
Ｃ(Ａ項目３) As String
End Type
Ｃテーブル変数の(Ａ項目)部分にＡテーブル変数に代入されているデータをごそっと
代入したいんです。(数個でしたら１個ずつ書きますが、100個単位なので、１行ずつ書けないんです)
私なら構造体Ｃの中に構造体Ａを用意しておきますが。
編集 削除nanashi様
ご教授ありがとうございます。
構造体Ｃの中にＡを用意するとわざわざ代入をする必要がないのですが、
構造体ＡはＡ単体で使用することがあるので、(各構造体配列を持っているので、配列番号が異なるため)別々の宣言が必要になりました。
処理を加えて今回の質問処理の作業が必要になったので、
策がありましたらご教授お願い致します。
ん？？
私が言ってるのはこういう↓ことですよ？
Public Type "Ｃ"Table
Ｃ項目１ As String
Ｃ項目２ As String
Ｃ項目３ As String
Ａ項目 As "Ａ"Table
End Type
必要な時に必要な構造体Ａを代入できますし、別に用意してある構造体Ａも単体で使用できると思うのですが。
nanashi様
重ね重ねありがとうございます。
↓こういうことでしょうか？
入れ子を全くしたことがないので、nanashi様のお考えが
わかりませんでした。
このようにして入れ込むということは、
Public Type "Ｃ"Table
Ｃ項目１ As String
Ｃ項目２ As String
Ｃ項目３ As String
Ａ項目１ As "Ａ"Table
Ａ項目２ As "Ａ"Table
・
・
・
End Type
とＡＴａｂｌｅの定義項目数分ＣＴａｂｌｅの項目定義に
型を"ＡTable"に設定して入れ込むのでしょうか？
それとも、
Public Type "Ｃ"Table
Ｃ項目１ As String
Ｃ項目２ As String
Ｃ項目３ As String
Ａ As "Ａ"Table
End Type
型をテーブルにして１行でＡＴａｂｌｅがすべて
入るということなのでしょうか？
ヘルプでもいろいろ調べましたがわかりませんでした。
よろしくお願致します。
やりたい事がよくわからないのですが、入れ子と言うのは、
Private Type UDT01
A As String
B As String
End Type
Private Type UDT02
C As String
D As String
E As UDT01
End Type
として、
Dim X As UDT01
Dim Y As UDT02
X.A = "X-AAA"
X.B = "X-BBB"
Y.C = "Y-CCC"
Y.D = "Y-DDD"
Y.E = X
Debug.Print Y.E.A
のような動作の事でしょうか?
魔界の仮面弁士様ありがとうございます。
初心者なもので、意味を理解するのがとても難しいです。
私のやりたい事です。
Ａテーブル変数定義 Ｂテーブル変数定義
Public Type "Ａ"Table Public Type "Ｂ"Table
Ａ項目１ As String Ｂ項目１ As String
Ａ項目２ As String Ｂ項目２ As String
End Type End Type
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Ｃテーブル変数定義
Public Type "Ｃ"Table
Ｃ項目１ As String
Ｃ項目２ As String
Ｄ項目 As "Ａ"Table
Ｅ項目 As "Ｂ"Table
End Type
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command1_Click()
Ａ.Ａ項目１＝"Ａの１"
Ａ.Ａ項目２＝"Ａの２"
Ｂ.Ｂ項目１＝"Ｂの１"
Ｂ.Ｂ項目２＝"Ｂの２"
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command2_Click()
Ｃ.Ｃ項目１＝"Ｃの１"
Ｃ.Ｃ項目２＝"Ｃの２"
Ｄ項目 ＝ "Ａ"Table
Ｅ項目 ＝ "Ｂ"Table
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Command3_Click()
Msgbox "Ｃ"Table.Ｄ項目.Ａ項目１
Msgbox "Ｃ"Table.Ｅ項目.Ｂ項目１
End Sub
Command1、Command2をクリックした後にCommand3をクリックすると
Msgbox表示で"Ａの１" と出るような処理がしたいです。
初心者なので高度な処理なのですが、魔界の仮面弁士様の書いてくれた処理と
同じことなのでしょうか？
とりあえず、魔界の仮面弁士さんの書いたソースを実行してみてはいかがでしょうか。
実際に動かしてみればわかると思います。
あと、サンプルだからだとは思いますが、あげられたやりたいことですが、
ソースコードとしてはおかしいですよ？
やりたいことはわかりましたけれども。