Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > please simplify, if possible
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 112
Default please simplify, if possible
All,

I'm sort of a neat freak. In the following code, I am simply trying to take
the average of three arrays arrTop, arrMiddle, and arrBottom. They have
differing lengths, but always 11 columns. Is there a simpler way to do this?
Something that looks a little cleaner?

THANKS SO MUCH!
Matt


'Take average of data
ReDim arrAvTop(1 To 11)
ReDim arrAvMiddle(1 To 11)
ReDim arrAvBottom(1 To 11)

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0


For j = 1 To 11

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrMiddle)
Sum1 = Sum1 + arrMiddle(j, k)
Sum2 = Sum2 + arrMiddle(j, k)
Sum3 = Sum3 + arrMiddle(j, k)
Sum4 = Sum4 + arrMiddle(j, k)
Sum5 = Sum5 + arrMiddle(j, k)
Sum6 = Sum6 + arrMiddle(j, k)
Sum7 = Sum7 + arrMiddle(j, k)
Sum8 = Sum8 + arrMiddle(j, k)
Sum9 = Sum9 + arrMiddle(j, k)
Sum10 = Sum10 + arrMiddle(j, k)
Sum11 = Sum11 + arrMiddle(j, k)

arrAvMiddle(1) = Sum1 / k
arrAvMiddle(2) = Sum2 / k
arrAvMiddle(3) = Sum3 / k
arrAvMiddle(4) = Sum4 / k
arrAvMiddle(5) = Sum5 / k
arrAvMiddle(6) = Sum6 / k
arrAvMiddle(7) = Sum7 / k
arrAvMiddle(8) = Sum8 / k
arrAvMiddle(9) = Sum9 / k
arrAvMiddle(10) = Sum10 / k
arrAvMiddle(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Next j


Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 112
Default please simplify, if possible
arrgh... please ignore... I just realized the error of my ways.

Thanks though!

"Matt S" wrote:

All,

I'm sort of a neat freak. In the following code, I am simply trying to take
the average of three arrays arrTop, arrMiddle, and arrBottom. They have
differing lengths, but always 11 columns. Is there a simpler way to do this?
Something that looks a little cleaner?

THANKS SO MUCH!
Matt


'Take average of data
ReDim arrAvTop(1 To 11)
ReDim arrAvMiddle(1 To 11)
ReDim arrAvBottom(1 To 11)

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0


For j = 1 To 11

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrMiddle)
Sum1 = Sum1 + arrMiddle(j, k)
Sum2 = Sum2 + arrMiddle(j, k)
Sum3 = Sum3 + arrMiddle(j, k)
Sum4 = Sum4 + arrMiddle(j, k)
Sum5 = Sum5 + arrMiddle(j, k)
Sum6 = Sum6 + arrMiddle(j, k)
Sum7 = Sum7 + arrMiddle(j, k)
Sum8 = Sum8 + arrMiddle(j, k)
Sum9 = Sum9 + arrMiddle(j, k)
Sum10 = Sum10 + arrMiddle(j, k)
Sum11 = Sum11 + arrMiddle(j, k)

arrAvMiddle(1) = Sum1 / k
arrAvMiddle(2) = Sum2 / k
arrAvMiddle(3) = Sum3 / k
arrAvMiddle(4) = Sum4 / k
arrAvMiddle(5) = Sum5 / k
arrAvMiddle(6) = Sum6 / k
arrAvMiddle(7) = Sum7 / k
arrAvMiddle(8) = Sum8 / k
arrAvMiddle(9) = Sum9 / k
arrAvMiddle(10) = Sum10 / k
arrAvMiddle(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Next j


Reply With QuoteReply With Quote
  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 112
Default please simplify, if possible
Follow-up question for you...

Since I have arrTop as a two-dimensional array... how do I find the upper
bound of the second dimension? For example, arrTop(j,k)... how do I find
what the max k is? UBound(arrTop) is giving me the max j value.

Thanks,
Matt

"Matt S" wrote:

All,

I'm sort of a neat freak. In the following code, I am simply trying to take
the average of three arrays arrTop, arrMiddle, and arrBottom. They have
differing lengths, but always 11 columns. Is there a simpler way to do this?
Something that looks a little cleaner?

THANKS SO MUCH!
Matt


'Take average of data
ReDim arrAvTop(1 To 11)
ReDim arrAvMiddle(1 To 11)
ReDim arrAvBottom(1 To 11)

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0


For j = 1 To 11

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrMiddle)
Sum1 = Sum1 + arrMiddle(j, k)
Sum2 = Sum2 + arrMiddle(j, k)
Sum3 = Sum3 + arrMiddle(j, k)
Sum4 = Sum4 + arrMiddle(j, k)
Sum5 = Sum5 + arrMiddle(j, k)
Sum6 = Sum6 + arrMiddle(j, k)
Sum7 = Sum7 + arrMiddle(j, k)
Sum8 = Sum8 + arrMiddle(j, k)
Sum9 = Sum9 + arrMiddle(j, k)
Sum10 = Sum10 + arrMiddle(j, k)
Sum11 = Sum11 + arrMiddle(j, k)

arrAvMiddle(1) = Sum1 / k
arrAvMiddle(2) = Sum2 / k
arrAvMiddle(3) = Sum3 / k
arrAvMiddle(4) = Sum4 / k
arrAvMiddle(5) = Sum5 / k
arrAvMiddle(6) = Sum6 / k
arrAvMiddle(7) = Sum7 / k
arrAvMiddle(8) = Sum8 / k
arrAvMiddle(9) = Sum9 / k
arrAvMiddle(10) = Sum10 / k
arrAvMiddle(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Next j


Reply With QuoteReply With Quote
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 112
Default please simplify, if possible
ok, I'm gonna stop posting... just found it using the search...

UBound(arrTop, 2)

THANKS EVERYONE! Sorry for wasting your time.

"Matt S" wrote:

Follow-up question for you...

Since I have arrTop as a two-dimensional array... how do I find the upper
bound of the second dimension? For example, arrTop(j,k)... how do I find
what the max k is? UBound(arrTop) is giving me the max j value.

Thanks,
Matt

"Matt S" wrote:

All,

I'm sort of a neat freak. In the following code, I am simply trying to take
the average of three arrays arrTop, arrMiddle, and arrBottom. They have
differing lengths, but always 11 columns. Is there a simpler way to do this?
Something that looks a little cleaner?

THANKS SO MUCH!
Matt


'Take average of data
ReDim arrAvTop(1 To 11)
ReDim arrAvMiddle(1 To 11)
ReDim arrAvBottom(1 To 11)

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0


For j = 1 To 11

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrMiddle)
Sum1 = Sum1 + arrMiddle(j, k)
Sum2 = Sum2 + arrMiddle(j, k)
Sum3 = Sum3 + arrMiddle(j, k)
Sum4 = Sum4 + arrMiddle(j, k)
Sum5 = Sum5 + arrMiddle(j, k)
Sum6 = Sum6 + arrMiddle(j, k)
Sum7 = Sum7 + arrMiddle(j, k)
Sum8 = Sum8 + arrMiddle(j, k)
Sum9 = Sum9 + arrMiddle(j, k)
Sum10 = Sum10 + arrMiddle(j, k)
Sum11 = Sum11 + arrMiddle(j, k)

arrAvMiddle(1) = Sum1 / k
arrAvMiddle(2) = Sum2 / k
arrAvMiddle(3) = Sum3 / k
arrAvMiddle(4) = Sum4 / k
arrAvMiddle(5) = Sum5 / k
arrAvMiddle(6) = Sum6 / k
arrAvMiddle(7) = Sum7 / k
arrAvMiddle(8) = Sum8 / k
arrAvMiddle(9) = Sum9 / k
arrAvMiddle(10) = Sum10 / k
arrAvMiddle(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Next j


Reply With QuoteReply With Quote
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 1,565
Default please simplify, if possible
There is a lot of stuff in those help files. I keep finding new things all
the time and I have been using them for several years.



"Matt S" wrote in message
...
ok, I'm gonna stop posting... just found it using the search...

UBound(arrTop, 2)

THANKS EVERYONE! Sorry for wasting your time.

"Matt S" wrote:

Follow-up question for you...

Since I have arrTop as a two-dimensional array... how do I find the upper
bound of the second dimension? For example, arrTop(j,k)... how do I find
what the max k is? UBound(arrTop) is giving me the max j value.

Thanks,
Matt

"Matt S" wrote:

All,

I'm sort of a neat freak. In the following code, I am simply trying to
take
the average of three arrays arrTop, arrMiddle, and arrBottom. They
have
differing lengths, but always 11 columns. Is there a simpler way to do
this?
Something that looks a little cleaner?

THANKS SO MUCH!
Matt


'Take average of data
ReDim arrAvTop(1 To 11)
ReDim arrAvMiddle(1 To 11)
ReDim arrAvBottom(1 To 11)

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0


For j = 1 To 11

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrMiddle)
Sum1 = Sum1 + arrMiddle(j, k)
Sum2 = Sum2 + arrMiddle(j, k)
Sum3 = Sum3 + arrMiddle(j, k)
Sum4 = Sum4 + arrMiddle(j, k)
Sum5 = Sum5 + arrMiddle(j, k)
Sum6 = Sum6 + arrMiddle(j, k)
Sum7 = Sum7 + arrMiddle(j, k)
Sum8 = Sum8 + arrMiddle(j, k)
Sum9 = Sum9 + arrMiddle(j, k)
Sum10 = Sum10 + arrMiddle(j, k)
Sum11 = Sum11 + arrMiddle(j, k)

arrAvMiddle(1) = Sum1 / k
arrAvMiddle(2) = Sum2 / k
arrAvMiddle(3) = Sum3 / k
arrAvMiddle(4) = Sum4 / k
arrAvMiddle(5) = Sum5 / k
arrAvMiddle(6) = Sum6 / k
arrAvMiddle(7) = Sum7 / k
arrAvMiddle(8) = Sum8 / k
arrAvMiddle(9) = Sum9 / k
arrAvMiddle(10) = Sum10 / k
arrAvMiddle(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Next j




Reply With QuoteReply With Quote
  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 947
Default please simplify, if possible
They have differing lengths, but always 11 columns.

For j = 1 To 11
For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)

Hi. Just a side note. By convention, it looks like you have 11 Rows,
and an unknown number of Columns.

Not sure if this helps, so I'll just throw it out.
This takes the Average of the first column, and the first row.
Maybe there's some ideas here you can use.

Sub Demo()
Dim m, x
m = [A1:D5]
With WorksheetFunction
'Average of first Column
x = .Average(.Index(m, 0, 1))
'Average of first Row
x = .Average(.Index(m, 1, 0))
End With
End Sub

= = =
HTH
Dana DeLouis



Matt S wrote:
ok, I'm gonna stop posting... just found it using the search...

UBound(arrTop, 2)

THANKS EVERYONE! Sorry for wasting your time.

"Matt S" wrote:

Follow-up question for you...

Since I have arrTop as a two-dimensional array... how do I find the upper
bound of the second dimension? For example, arrTop(j,k)... how do I find
what the max k is? UBound(arrTop) is giving me the max j value.

Thanks,
Matt

"Matt S" wrote:

All,

I'm sort of a neat freak. In the following code, I am simply trying to take
the average of three arrays arrTop, arrMiddle, and arrBottom. They have
differing lengths, but always 11 columns. Is there a simpler way to do this?
Something that looks a little cleaner?

THANKS SO MUCH!
Matt


'Take average of data
ReDim arrAvTop(1 To 11)
ReDim arrAvMiddle(1 To 11)
ReDim arrAvBottom(1 To 11)

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0


For j = 1 To 11

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrMiddle)
Sum1 = Sum1 + arrMiddle(j, k)
Sum2 = Sum2 + arrMiddle(j, k)
Sum3 = Sum3 + arrMiddle(j, k)
Sum4 = Sum4 + arrMiddle(j, k)
Sum5 = Sum5 + arrMiddle(j, k)
Sum6 = Sum6 + arrMiddle(j, k)
Sum7 = Sum7 + arrMiddle(j, k)
Sum8 = Sum8 + arrMiddle(j, k)
Sum9 = Sum9 + arrMiddle(j, k)
Sum10 = Sum10 + arrMiddle(j, k)
Sum11 = Sum11 + arrMiddle(j, k)

arrAvMiddle(1) = Sum1 / k
arrAvMiddle(2) = Sum2 / k
arrAvMiddle(3) = Sum3 / k
arrAvMiddle(4) = Sum4 / k
arrAvMiddle(5) = Sum5 / k
arrAvMiddle(6) = Sum6 / k
arrAvMiddle(7) = Sum7 / k
arrAvMiddle(8) = Sum8 / k
arrAvMiddle(9) = Sum9 / k
arrAvMiddle(10) = Sum10 / k
arrAvMiddle(11) = Sum11 / k
Next k

Sum1 = 0
Sum2 = 0
Sum3 = 0
Sum4 = 0
Sum5 = 0
Sum6 = 0
Sum7 = 0
Sum8 = 0
Sum9 = 0
Sum10 = 0
Sum11 = 0

For k = 1 To UBound(arrTop)
Sum1 = Sum1 + arrTop(j, k)
Sum2 = Sum2 + arrTop(j, k)
Sum3 = Sum3 + arrTop(j, k)
Sum4 = Sum4 + arrTop(j, k)
Sum5 = Sum5 + arrTop(j, k)
Sum6 = Sum6 + arrTop(j, k)
Sum7 = Sum7 + arrTop(j, k)
Sum8 = Sum8 + arrTop(j, k)
Sum9 = Sum9 + arrTop(j, k)
Sum10 = Sum10 + arrTop(j, k)
Sum11 = Sum11 + arrTop(j, k)

arrAvTop(1) = Sum1 / k
arrAvTop(2) = Sum2 / k
arrAvTop(3) = Sum3 / k
arrAvTop(4) = Sum4 / k
arrAvTop(5) = Sum5 / k
arrAvTop(6) = Sum6 / k
arrAvTop(7) = Sum7 / k
arrAvTop(8) = Sum8 / k
arrAvTop(9) = Sum9 / k
arrAvTop(10) = Sum10 / k
arrAvTop(11) = Sum11 / k
Next k

Next j


Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Simplify ccl28[_10_] Excel Programming 1 August 15th 06 10:43 AM
please help simplify acarril[_12_] Excel Programming 0 September 27th 04 07:45 PM
please help simplify acarril[_11_] Excel Programming 1 September 27th 04 04:45 PM
please help simplify acarril[_10_] Excel Programming 1 September 21st 04 07:39 PM
please help simplify acarril[_9_] Excel Programming 1 September 21st 04 05:36 PM


All times are GMT +1. The time now is 09:56 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement