VBA – Returning array from Property Get

by

You don’t have a let property. Also, the get property is returning the entire array, rather than just the element in question. Change the return type of Property Get from Double() to just plain Double. Add Property Let. Note that it takes two inputs, but only one is passed to it. The last variable (MyValue, in this case) is assumed to get it’s value from whatever is after the = sign. Put a break point somewhere early in Test1() and see how the values are affected in the Locals window. Compare the variables created by the original code versus my code:

'Class1 class module
Private v() As Double
Public Property Get Vec(index As Long) As Double
    Vec = v(index)
End Property
Public Property Let Vec(index As Long, MyValue As Double)
    v(index) = MyValue
End Property
Private Sub Class_Initialize()
    ReDim v(0 To 3)
End Sub
' end class module

'Begin module
Sub Test1()
    Dim c As Class1
    Set c = New Class1
    Debug.Print c.Vec(1) ' prints 0 as expected
    c.Vec(1) = 5.6
    Debug.Print c.Vec(1) ' prints 5.6
End Sub
'End module

More Related Contents:

  1. VBA array sort function?
  2. Excel-VBA – Insert new first column in datafield array without loops or API calls
  3. Creating an Array from a Range in VBA
  4. How to find if an array contains a string [duplicate]
  5. How do I slice an array in Excel VBA?
  6. Sorting a multidimensionnal array in VBA
  7. How do I set up a “jagged array” in VBA?
  8. Matching values in string array
  9. Declare and Initialize String Array in VBA
  10. Deleting Elements in an Array if Element is a Certain value VBA
  11. Is it possible to fill an array with row numbers which match a certain criteria without looping?
  12. How to automatically input an array formula as string with more than 255 characters in length into an excel cell using VBA?
  13. Return Index of an Element in an Array Excel VBA
  14. Writing an array to a range. Only getting first value of array
  15. Excel VBA: Range to String Array in 1 step
  16. Faster way of using Sumifs()
  17. How to initialize a multidimensional array variable in vba for excel
  18. VBA using ubound on a multidimensional array
  19. Turn Excel range into VBA string
  20. Get values from union of non-contiguous ranges into array with VBA with a simple command (no loops)
  21. Subscript out of range error with an array – no idea why?
  22. VBA Excel large data manipulation taking forever
  23. Performance difference between looping range vs looping array
  24. how to combine duplicate rows and sum the values 3 column in excel
  25. Populating VBA dynamic arrays
  26. How do I Merge two Arrays in VBA?
  27. Excel VBA Quickest way to sort an array of numbers in descending order?
  28. Simple VBA array join not working
  29. Excel VBA – How to Redim a 2D array?
  30. ReDim Preserve “Subscript Out of Range”

Leave a Comment