Vraag & Antwoord

Anders (software)

Function in Excel VBA

Anoniem
None
2 antwoorden
  • Ik probeer een functie te maken in Excel VBA
    De syntax is: HD (240, 15, 100, 100)
    Waarbij wd = wind direction / ws = wind speed / tas=true air speed / crs = course
    Onderstaande oplossing geeft een foutmelding bij het invoeren in het werkblad.

    Function Hd(wd As Double, ws As Double, tas As Double, crs As Double) As Double
    Dim swc As Double
    swc = (ws / tas) * Sin(wd - crs)
    If Abs(swc) > 1 Then Beep
    Else
    Hd = crs + Asin(swc)
    If (Hd < 0) Then Hd = Hd + 2 * Pi
    If (Hd > 2 * Pi) Then Hd = Hd - 2 * Pi
    gs = tas * sqrt(1 - swc ^ 2) - ws * Cos(wd - crs)
    If gs < 0 Then Beep
    End If
    End Function

    Kan iemand mij vertellen wat ik over het hoofd zie?

    Jeroen
  • Hallo Webarcher,

    In plaats van , als scheidingstekens moet je ; gebruiken bij de functie.
    [code:1:70e98e79ad]=HD(240;15;100;100)[/code:1:70e98e79ad]
    Asin kent Excel niet… Dit moet zijn:
    [code:1:70e98e79ad]Atn(X / Sqr(-X * X + 1))[/code:1:70e98e79ad]
    Sqrt kent Excel ook niet… Dit moet zijn:
    [code:1:70e98e79ad]Sqr[/code:1:70e98e79ad]
    Succes, Wouter

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.

Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord