|
こんにちは。
なかなか回答がつかないようですが、質問の意味が良く解りません。
Typeって、使うと便利らしいみたいですが、便利性が良く解らないので使った事無いです。
Typeを使わないとダメなのでしょうか?
(配列の中に配列をいれると言った、興味本位でテストした時に1度だけ使った事があるだけです。)
一応、全然参考にならないコード。
こういう事なのでしょうか?
Public Type DB1
工事番号 As String * 5
工番2 As String * 2
発注者 As String * 36
削除FLG As String * 2
End Type
Sub KH250()
Dim DB1 As DB1
DB1.工事番号 = "AAAA"
DB1.工番2 = "BB"
DB1.発注者 = "あああああ"
DB1.削除FLG = "OK"
With Worksheets("Sheet1").OLEObjects("ComboBox1").Object
.AddItem DB1.工事番号
.AddItem DB1.工番2
.AddItem DB1.発注者
.AddItem DB1.削除FLG
End With
End Sub
|
|