Array multiplication addition

  • Thread starter Thread starter John
  • Start date Start date
J

John

Hi all can any one help me with the following

Sub....

A1=Array(10)
A2=Array(10)
..................
Dim X3 Date
Dim X4 Date
Dim X5 Long

A1(9) = Range("B8:L8")
A2(9) = Range ("B9:L9")

X5=(X3-X4)*1440
............
I need to be able to take the difference of arrays (A1-A2) divide with X5
and put into a range of cells.. I do not know how to multiply Arrays

for example Range("N9:W9")=(A1-A2)/X5 does not work.....

does anyone have a sample of how to multiply an array with a constant?

Thank you

John
 
John,

I think the easiest thing will be to use formulas in the target range:

Dim X3 Date
Dim X4 Date
Dim X5 Long

X3 = whatever....
X4 = whatever....
X5=(X3-X4)*1440

Range("N9:W9").Formula = "=(B8-B9)/" & X5

HTH,
Bernie
MS Excel MVP
 
There no magic way to multiply an array. Just do it an element at a time:

Sub a()
Dim Arr(1 To 2)
Dim Counter As Integer
Arr(1) = 1
Arr(2) = 2
For Counter = LBound(Arr) To UBound(Arr)
Arr(Counter) = Arr(Counter) * 2
Next
MsgBox Arr(1) & " " & Arr(2)
End Sub
 
If the functions in the freely downloadable file at
http://home.pacbell.net/beban are available to your workbook:

=ScalarMult(myArray, k) to multiply each element of the array by the
scalar k. To divide, enter False as the 3rd argument.

Alan Beban
 
Back
Top