Simple custom function

  • Thread starter Thread starter Ryan
  • Start date Start date
R

Ryan

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?
 
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
 
I am still getting a #name error, this is exactly what I have in the VBA
editor;

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
 
apologies ... I've been away. However, your code works fine for me.....



Option Explicit

Sub test()

Debug.Print CrossP(1, 2, 3, 4, 5, 6) ' 6.78232998312527

End Sub

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
 
Back
Top