VBA Creating Nested Type

Question

I am studying at excel with vba macro. I am trying to create a type as MessageID. This type has four variable as string such as Message_ID, Message_Name, Message_Byte and Message_Bit. A Message has just one Message_ID, however; a Message_ID has more than one Message_Name and every name has and just one byte and bit. In the other word, I need a Type has some variables. Because of this, I am trying to make the code above work. But these variables need to keep some variables. But, of course, it does not work.

How can I solve this? Thank you.

Public Type Message

  Message_ID As String

  Public Type Message_CH

    Message_Name As String
    Message_Byte As String
    Message_Bit As String

  End Type

End Type

Comintern · Accepted Answer · 2018-10-07 17:31:49Z

1

You need to un-nest them, and then use the sub-type as a member of the super-type:

Public Type SubMessage
    Message_Name As String
    Message_Byte As String
    Message_Bit As String
End Type

Public Type Message
    Message_ID As String
    Message_CH As SubMessage
End Type

You would then access the sub-type from the super-type like this:

Sub Foo()
    Dim x As Message
    Debug.Print x.Message_CH.Message_Name
End Sub

I suspect, though, that you would be better served by writing a class and using that instead.

answered Oct 7, 2018 at 17:31

Comintern

22.3k6 gold badges36 silver badges83 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

MMT Over a year ago

Thank you. I am just improving myself in vba and i have just learnt subtype thanks to you. Thanks again.

Célio Ávila · Accepted Answer · 2022-08-09 15:12:53Z

1

Just wanted to add on Comintern's answer. Order matters. Subtype needs to be defined before the type. If you put the Type text first, and SubType after, you'll get an error message.

answered Aug 9, 2022 at 15:12

Célio Ávila

211 silver badge3 bronze badges

1 Comment

klausnrooster Over a year ago

"Invalid Forward Reference" if I recall correctly.

Collectives™ on Stack Overflow

VBA Creating Nested Type

2 Answers 2

1 Comment

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related