2 input bokse

h = val(intputbox$(\"Højde:\")): g = val(intputbox$(\"Grundlinie:\"))
if h = 0 or g = 0 then exit sub \' hvis der ikke blev indtastet noget

hvor skal det sættes ind?

Public Sub areal()
Dim h, g, areal As Single

h = val(intputbox$(\"Højde:\")): g = val(intputbox$(\"Grundlinie:\"))

areal = 0.5 * h * g
Debug.Print areal
End Sub

Jeg tror at dette kan ordne dit problem... ellers må du lige skrive...


Public Sub areal()
Dim h, g, areal As Single
h = InputBox(\"Skriv vænligst højden på trekanten:\", \"Arial af trekant\") \'inputbox til højden.
g = InputBox(\"Skriv vænligst grundliniens længde på trekanten:\", \"Arial af trekant\") \'inputbox til grundlinien.
areal = 0.5 * h * g
Debug.Print areal
End Sub


MHV
/Specialty...

<< specialty >>

InputBox[$]() returnere en String værdi... Val() skal derfor bruges!

En korrekt idiot-sikret en:


Public Sub areal()
    Dim h, g, areal As Single
   
    h = InputBox(\"Skriv venligst højden på trekanten:\", \"Areal af trekant\") \'inputbox til højden.
    g = InputBox(\"Skriv venligst grundliniens længde på trekanten:\", \"Araal af trekant\") \'inputbox til grundlinien.
   
    If IsNumeric(h) Or IsNumeric(g) Then
        areal = 0.5 * Val(h) * Val(g)
        Debug.Print areal
    End If
End Sub

Ups .. AND ikke OR ..

Public Sub areal()
    Dim h, g, areal As Single
   
    h = InputBox(\"Skriv venligst højden på trekanten:\", \"Areal af trekant\") \'inputbox til højden.
    g = InputBox(\"Skriv venligst grundliniens længde på trekanten:\", \"Araal af trekant\") \'inputbox til grundlinien.
   
    If IsNumeric(h) And IsNumeric(g) Then
        areal = 0.5 * Val(h) * Val(g)
        Debug.Print areal
    End If
End Sub

Det har du faktisk ret i. Det var mig der var lidt træt... Men af en eller anden grund virkede det da jeg testede det...

Hi hi ;-)