Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.02.2009 13:08:51 |
Paddy |
|
|
|
26.02.2009 12:51:32 |
Holger |
|
|
|
26.02.2009 12:55:41 |
Paddy |
|
|
Aw:Aw:Aw:Wer kann dieses Programm? |
26.02.2009 13:55:36 |
Holger |
|
|
Von:
Holger |
Datum:
26.02.2009 13:55:36 |
Views:
642 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Wer kann dieses Programm? |
Hallo Paddy,
versuche
Sub Integral_mit_Formel_als_Zellentext()
'A1: untere Integralgrenze, A2: obere Integralgrenze, A3: Schrittweite
'in A5 steht die zu integrierende Funktion in einer Schreibweise, mit der sowohl
'Excel als auch VBA etwas anfangen können:
'z.B. "x^3", "sin(x)*ln(x) oder "abs(ln(x))^log(x)".
'Aber "Wurzel(x)" oder Sqr(x) gehen nicht, dafür z.B. "x^0.5"
'Fehler aus Polstellen oder Unstetigkeiten werden nicht aufgefangen!
'Der Funktionswert wird in der Intervall-Mitte genommen
Application.Volatile
Cells(1, 4).NumberFormat = "@"
s = 0
For i = Cells(1, 1) + Cells(1, 3) / 2 To Cells(1, 2) Step Cells(1, 3)
Cells(1, 4) = CStr(i) 'lfd x
d = Replace(Cells(1, 5), "x", Cells(1, 4))
s = s + Evaluate(Replace(d, ",", "."))
Next i
MsgBox (CStr(s * Cells(1, 3)))
End Sub
Gruß
Holger
Paddy schrieb am 26.02.2009 12:55:41:
Folgendes:
Sub numInt() 'Name der Prozedur
Dim A1, A2, A3 As Single 'Deklaration der Variablen im Wertebereich Single
Dim x As Single 'Deklaration der Variable x im Bereich Single
Dim A5 As String 'Deklaration der Zeichenkette als String
A1 = InputBox("Bitte die untere Grenze eingeben:") 'Abfragen an den Nutzer
A2 = InputBox("Bitte die obere Grenze eingeben:")
A3 = InputBox("Wählen Sie die Schrittweite:")
x = 0 'Anfangsbedingung für die Variable x
For i = A1 To A2 Step A3 'For Schleife
x = x + 1 'geht mit der x-Variable immer einen Schritt weiter
A5 = x ^ 3 + x ^ 2 + 1
Next
MsgBox ("Das Integral lautet: " & A5) 'Ausgabe mit Message Box
End Sub
Die Formel A5 habe ich einfach angenommen. Ich weiß aber nicht ob das so korrekt ist.... an der aufgabe da beiß ich mir echt die zähne aus, wobei ich da noch eine hab die echt krass ist für mich :) |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.02.2009 13:08:51 |
Paddy |
|
|
|
26.02.2009 12:51:32 |
Holger |
|
|
|
26.02.2009 12:55:41 |
Paddy |
|
|
Aw:Aw:Aw:Wer kann dieses Programm? |
26.02.2009 13:55:36 |
Holger |
|
|