View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Patrick Molloy[_2_] Patrick Molloy[_2_] is offline
external usenet poster
 
Posts: 1,298
Default Simple custom function

function CrossP(A1 as double, A2 as double, A3 as double, B1 as double, B2 as
double, B3 as double) as double
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5
End Function


"Ryan" wrote:

I am trying to program a custom function to make some simple math simpler.
Unfortunately this is my first swing at a custom function or VBA for that
matter. I would like to be able to pass 6 variables to a function and have it
do the following math:

CrossP(A1, A2, A3, B1, B2, B3)
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5

Any thoughts?