SharmaAntriksh
New Member
- Joined
- Nov 8, 2017
- Messages
- 31
I have tried to create class module that accepts range i want to know if there is a way to expand this and create custom properties for that range object?
Code in the Class Module "cRange":
Code in the Regular Module:
I want to know if i can create my own properties for the MyRange variable like Interior color, i know all of these already exists and it is better to use what MS offers but i am just curios so can you please suggest how to achieve this?
Code in the Class Module "cRange":
Code:
Option Explicit
Private pRange As Range
Public Property Set MyRange(r As Range)
Set pRange = r
End Property
Public Property Get MyRange() As Range
Set MyRange = pRange
End Property
Code in the Regular Module:
Code:
Sub UtilizingClassModuleForCustomRanges()
Dim c As New cRange
Set c.MyRange = Range("A1:A10")
c.MyRange.Interior.Color = rgbGreen
End Sub
I want to know if i can create my own properties for the MyRange variable like Interior color, i know all of these already exists and it is better to use what MS offers but i am just curios so can you please suggest how to achieve this?