Inheritance in VBA

[tiredofit]

We know there is limited inheritance in VBA and in order to use it, you would need to use the word with implements.

However, in my example below, is this an example of inheritance?

Class1:

    Private pabc As Integer


Public Property Let abc(ByVal vNewValue As Integer)


    Dim c As Class2
    Set c = New Class2
    
    c.cde = 20
    
End Property

Class2:

Private pcde As Integer


Public Property Let cde(ByVal vNewValue As Integer)
    
    pcde = vNewValue
    
End Property

Standard Module:

Sub Start()


    Dim x As Class1
    Set x = New Class1
    
    x.abc = 10


End Sub

 

[RoryA]

No, it isn't.

 

[rksanthosh]

I have roles in column A and their corresponding entitlement in column B

I need a macro to pick the child role corresponding parent role

Role Entitlement
Role 1 Entitlement 7
Role 1 Entitlement 8
Role 1 Entitlement 9
Role 2 Entitlement 7
Role 2 Entitlement 8
Role 3 Entitlement 6
Role 3 Entitlement 7
Role 3 Entitlement 8
Role 3 Entitlement 9
Role 4 Entitlement 6
Role 5 Entitlement 9

Role 1 inherits Role 2 and Role 5
Role 3 inherits Role 4 and Role 1

Can I have a macro to identify the child roles

 

[Macropod]

rksanthosh: Your post is a duplicate of: https://www.mrexcel.com/forum/excel-questions/1087130-inheritance.html
Kindly read Mr Excel's policy in Rule 12 against asking questions about the same topic in multiple threads: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html

Kindly also don't resurrect & hijack threads unrelated to the issue you're trying to solve.

Thread closed. You may continue the discussion in your other thread.