Excel och om inget värde i inputbox..

2 svar · 773 visningar · startad av Kalle M 21 juni 2006

Kalle MMedlem sedan mars 20041 936 inlägg

Frågan21 juni 2006 22:29#1

Har skrivit denna lilla enkla kodsnutt i excel:
Om man ej skriver något i en inputbox så kommer man in i VBA-editorn..
Hur får man till det där på ett vettigt sätt? :-)
IF tomt så avbryt eller något..

Sub ber()
intäkt = InputBox("Ange intäkt")
kostnad = InputBox("Ange kostnad")
Resultat = intäkt - kostnad
MsgBox (Resultat)

End Sub

MindreVetandeMedlem sedan okt. 2005371 inlägg

22 juni 2006 11:42#2

Några allmänna varianter

Sub ber()
Dim intäkt, kostnad, Resultat

intäkt = InputBox("Ange intäkt")
    If intäkt = "" Then Exit Sub
' inputboxen returnerar "" om någon trycker avbryt, 
' men det fångar även tomma input

kostnad = InputBox("Ange kostnad")
    If kostnad = "" Then Exit Sub

' Kolla om det är tal som matats in...
If (IsNumeric(intäkt) And IsNumeric(kostnad)) Then
' ... Gör i sånna fall det du vill.
    Resultat = intäkt - kostnad
    MsgBox (Resultat)
' Om det inte är tal, visa vad du matat in...
Else: MsgBox ("Du har matat in data som inte är tal:" & Chr(13) _
    & "Intäkt= " & intäkt & Chr(13) _
    & "kostnad= " & kostnad)
' ... och hoppa tillbaks till början
    ber
End If
End Sub

Kalle MMedlem sedan mars 20041 936 inlägg

29 juni 2006 22:35#3

Kanon!
Tack för hjälpen! :-)

Mvh