Comments on: Average Values, Exclude Extremes

By: JP

JP — Mon, 29 Mar 2010 21:34:05 +0000

Your request reads like a homework question.

To return the average of all positive values in a range, one way is to first read the range into an array.

Dim tempArray As Variant
Dim rng As Excel.Range
' set rng = whatever your range is
tempArray = rng.Value

Then loop through the range and check for values greater than zero.

' assumes single dimension array
Dim i As Long
Dim total As Long
Dim avg As Long
For i = LBound(tempArray) To UBound(tempArray)
total = total + tempArray(i)
Next i

Then get the average of all positive values:

avg = total / UBound(tempArray)

By: Leo

Leo — Sat, 27 Mar 2010 05:53:26 +0000

I wrote the following subroutine .can anyone tell me what 's wrong with this. I dont find anything going wrong bt its just nt working. This function is writen to clik any random cell to change the colour.

Sub ColourCell()

Rand = ActiveCell.Interior.colour

ActiveCell.Interior.Color = WhatColour(RandInteger())
End Sub

By: Leo

Leo — Sat, 27 Mar 2010 05:50:32 +0000

Hi,
How can I write a function PositiveAverage(R) which return the average of all the positive values in the range R ( any negative values will be excluded in calculating the average). Sue a double 'For .. next loop structure in the function. Work with the range object R(and not array variable) in writing this function.

By: JP

JP — Tue, 09 Feb 2010 22:50:07 +0000

Thanks, I fixed it!

By: Will Smith

Will Smith — Tue, 09 Feb 2010 19:56:31 +0000

There is a mistake at the text lines:
I could also use
{=AVERAGE(IF(MyRange

Looks like the hypertext got in there to have the remainder of text

The array formula should be:
I could also use
{=AVERAGE(IF(MyRange

Thought you would want to make the correction as your information is very helpful.
Will