wie kan mij de volgende formule vertalen in VBA

[Relleboer]

wie kan mij de volgende formule vertalen in VBA. waarvan de cel nummers nu textboxen zijn. Ik wil de berekening nl in het formulier laten verlopen zonder gebruik van de werkbladen van excell.

=WORTEL(KWADRATENSOM(ALS(ABS($B8)>ABS($C8);$B8;$C8))+KWADRATENSOM(ALS(ABS($B9)>ABS($C9);$B9;$C9))+KWADRATENSOM(ALS(ABS($B10)>ABS($B10);$B10;$C10)))

Het probleem is dat de formule altijd de grootste waarde (absoluut) van twee textboxen moet gebruiken voor het kwadraat.

Hopelijk begrijpen jullie de vraag

alvast bedankt

 

[Wigi]

Programmeer dit in VBA, veel beter dan de functie in VBA te doen.

Reken dus hetzelfde uit, maar dan in VBA met variabelen.

 

[Relleboer]

Das ook de bedoeling. Maar weet niet hoe in vba ik absoluut moet aangeven. het gaat steeds om een positieve en negatieve waarde. Ik moet elke keer de grootste gebruiken zonder dat ie na de + en - kijkt. De ene keer in de grooste waarde links en de andere keer rechts. voor de rest weet ik de berekening wel. maar kan het niet voor elkaar krijgen dat ie de grootse kiest uit de twee textboxen.(bijv -0.8 en + 0.6 , (-)0.8 is dus de grootste waarde.

 

[Relleboer]

Sub hoogste(getal1, getal2, hoog As Integer)

With frmspecs
Select Case hoog
    Case 1
        If IsNumeric(getal1) And IsNumeric(getal2) Then
            getal1 = CDbl(getal1)
            getal2 = CDbl(getal2)
           End If
        If Abs(getal1) > Abs(getal2) = True Then
        .TextBox34.Value = getal1
        Else: .TextBox34.Value = getal2
        End If
    Case 2
        If IsNumeric(getal1) And IsNumeric(getal2) Then
            getal1 = CDbl(getal1)
            getal2 = CDbl(getal2)
            End If
         If (Abs(getal1) > Abs(getal2)) = True Then
        .TextBox35.Value = getal1
        Else: .TextBox35.Value = getal2
        End If
    Case 3
        If IsNumeric(getal1) And IsNumeric(getal2) Then
            getal1 = CDbl(getal1)
            getal2 = CDbl(getal2)
            End If
         If (Abs(getal1) > Abs(getal2)) = True Then
        .TextBox36.Value = getal1
        Else: .TextBox36.Value = getal2
        End If
   
End Select
End With
End Sub

heb nu zoiets maar hij klopt niet

 

[Axel Hagg]

Formule uitwerken in VBA

Dag relleboer,

Open de bijlage em probeer het eens.

 

[Relleboer]

axel kun je bovenstaande werkende maken. fout zit hem in de regel van de verglijking. die regel moet goed en dan ebn ik uit de brand.

 

[Axel Hagg]

Formule in VBA

Dag Relleboer,Sorry, stom van mij. Worteltrekken is verheffen tot de macht 1/2.

Nu werkt het.