About Us

Gary''s Student

Thanks!
--
Gary''s Student - gsnu201001

"Ryan H" wrote:

Is your collection a collection of range values? That's what I assumed. Not
sure if this is the easiest way, but it worked for me.
Sub test()

Dim coll As Collection

Set coll = New Collection
With coll
.Add Range("A1").Value
.Add Range("A2").Value
.Add Range("A3").Value
.Add Range("A4").Value
End With

MsgBox AvgCollection(coll)

End Sub

Function AvgCollection(col As Variant) As Double

Dim c As Variant
Dim dblSum As Double
Dim counter As Long

For Each c In col
dblSum = dblSum + c
counter = counter + 1
Next c

AvgCollection = dblSum / counter

End Function

--
Cheers,
Ryan

"Gary''s Student" wrote:

I have some code that is passed a Collection of positive values. What is the
easiest way to average the values ?
--
Gary''s Student - gsnu201001

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
collection obj	notme	Excel Programming	0	January 31st 10 07:00 PM
Sum a collection	EXCELMACROS	Excel Programming	1	February 10th 09 01:16 AM
Collection Key	gabch[_8_]	Excel Programming	4	March 20th 06 04:40 PM
Collection	Todd Huttenstine	Excel Programming	4	December 17th 04 09:41 PM

Menu

About Us