ExcelVBAで初期値のセット

質問

ExcelVBAで初期値のセット

Typeで定義したデータタイプの変数にConstで初期値をセットしたいのですがどのようにしたら良いのでしょうか。
例えば
Public Const Sdata As String = "AAAAA"
Public Const Idata As Long = 1
これはできますが、
Type typeA
Sdata As String
Idata As Long
End Type
Public Const Adata As typeA = "AAAAA",1
これはできません。
Typeで定義したデータ型にいるれ方法をお教えください。

ExcelVBA Type Const で検索してみましたが見つけきれませんでした。

回答No.1

tohru999 · ベストアンサー

こういった方法はダメですか？

Type typeA
Sdata As String
Idata As Long
End Type

Public Property Get Adata() As typeA
Adata.Sdata = "AAAAA"
Adata.Idata = 1
End Property

お礼

ありがとうございました。