If = Null
Jeg har fået noget programmering som jeg skal lave i VBA, har aldrig brugt det før (Er vandt til c#) og kommer heller ikke til det hvis jeg selv kan bestemme...Jeg kan ikke helt finde ud af syntaksen, selvom jeg har kigget på diverse tutorials.
Her er det første problem
If U = "" Then R = InputBox("Indtast Modstand")
Eller hvis jeg prøver
If U = Null Then R = InputBox("Indtast Modstand")
Det gider den ikke, det virker fint hvis jeg siger U = "1".
Og så kan jeg heller ikke få Try og Catch til og virke
Her er hele kildekoden, det er ganske grundlæggende makro programmering i word. Ved det, ikke særligt spændende. Men den if sætning og så Try og catch kan jeg få til og virke. Har der er nogen der lige gider opg fortælle mig fejlen
Sub Ohm()
'
' Ohm Makro
' Makro oprettet 02-08-2005 af Alex Sleiborg
'
Dim A As Integer
A = InputBox("Velkommen til ohm Lommeregneren\nVælg hvad du vil have regnet ud\n1. Effekt\n2. Strøm\n3. Spænding\n4. Modstand")
Select Case A
Dim U As Integer 'U = Spænding som måles i volt
Dim I As Integer 'I = Strøm som måles i Amperer
Dim R As Integer 'R = Modstand som måles i ohm
Dim P As Integer 'P = Effekt som måles i watt
'Effekten "Watt" Formellen (U*I) (I²*R) (U²/R)
Case 1
Try
U = InputBox("Indtast Spændingen. Hvis du ikke har spændingen, tryk ikke noget")
If U = "" Then R = InputBox("Indtast Modstand")
I = InputBox("Indtast Strømmen")
Catch
MsgBox ("Du har indtastet et ikke gyldigt tal")
End Try
'Strøm "Amperer" Formellen (U/R) (P/U) (Kvadratroden af P/R)
Case 2
R = InputBox("Indtast Modstand")
U = InputBox("Indtast Spænding")
'Spænding "Volt" Formellen (Kvadratroden af P*R) (P/I) (R*I)
Case 3
I = InputBox("Indtast Strømmen")
R = InputBox("Indtast Modstanden")
'Modstand "Ohm" (P/I²) (U²/P) (U/I)
Case 4
U = InputBox("Indtast Spændingen")
I = InputBox("Indtast Strømmen")
End Select
End Sub
