|
Hallo,
Rechteck
du benötigst eine IF - ElseIf - Else - Konstruktion.
Ok, ich nehme mal an, die Daten werden in das ein Tabellenblatt eingetragen A1 - Länge, A2 - Berite, A3 - Berechnungsoption (1 2 oder 3)
Sub Rectangle()
If Range("A3").Value = 1 Then
'hier dein Code für die Umfangsberechnung
Umfang = ...
MsgBox "Der Umfang beträgt: " & Umfang
elseif ...
'hier dein Code für die Flächeninhaltsberechnung
elseif ...
'hier dein Code für die Länge der Diagonale
Else
'dieser Code wird ausgeführt, wenn die vorherigen
' Bedingungen alle nicht erfüllt sind
End If
End Sub
Horner Schema
ich verstehe die Aufgabe so: der User gibt a, b, c, d und x an. Jetzt fehlt mir die Information, wo / wie der User diese fünf Zahlen angeben sollen. Nehmen wir an, du wilslt, dass er sie in Zeillen eines Tabellenblattes schreibt.
Die Zahlen stehen also in den Zellen und jetzt klickt er auf einen Button. Das Makro wird jetzt ausgeführt. Als erstes nimmt es sich die Zahlen aus dem Tabellenblatt
a = Range("A10").value
b =
c =
d =
x =
Dann wid die Hornerformel zur Berechnung benutzt (einfach die Formel abtippen):
y = hier kommt die Horner-Formel hin
Jetzt steht also das Ergebnis in der Variable "y".
Das soll der Benutzer jetzt sehen. Das machst du am besten so, wie ihr die meisten Ausgaben in den Beispielen im Untericht gemacht habe (in eine Zelle im Tabellenblatt schreiben, oder als MsgBox ausgeben, oder ??). Nehmen wir an, du willst das Ergebnis in das Tabellenblatt schreiben:
Range("A15").value = y
Das war's schon. Wenn's trotzdem nicht klappt, code posten und nachfragen!
Ich kann dir bei zukünftigen Fragen nur weiterhelfen, wenn deine Posts mindestens folgende Inhalte haben:
-
Wie / Wo soll der User die Zahlen eingeben?
-
Wie soll der User das Ergebnis mitgeteilt bekommen?
-
Der Code, den du bisher erarbeitet hast (keine Angst vor Fehlern, die hat jeder mal gemacht). Ist wirlkich egal, wenn was / alles falsch ist!
Falls Fehlermeldungen auftauchen, diese bitte auch posten.
kommst du weiter?
|