|
Hallo Leute,
vormals ich bin ein ganz neuer im Bereich VBA und habe nicht sehr viel Erfahrung damit, bitte nicht fertigmachen :)
und wir haben ein paar Aufgaben bekommen, die wir in VBA lösen sollen.
Die Afugaben sollen wahrscheinlich mit einem Makro im ersten Arbeitsblatt ausgeführt werden --> "On the first worksheet set a button for every example to execute. You may name the buttons and the subs as you will."
2.11 Horner Method
Caclulate x for ax3+bx2+cx+d using the Horner scheme for arbitrary entries of a, b, c und x.
a * x3+b * x2+c * x+d =
= (a * x2+b * x+c) * x+d
= ((a * x+b) * x+c) * x+d
= ((a * x)+b) * x+c) * x+d
Hier habe ich bereits einen Code im Internet gefunden, weiß aber nicht ob es stimmt und wie ich es als Makro einfügen soll. Wenn ich ein Button einfüge und ein Makro hinzufügen will, findet er das nicht:
Public Function Horner(x, ParamArray coeff())
Dim result As Double
Dim ncoeff As Integer
result = 0
ncoeff = UBound(coeff())
For i = ncoeff To 0 Step -1
result = (result * x) + coeff(i)
Next i
Horner = result
End Function
3.8 More Rectangle
• Your macro will do some basic calculation for rectangles
• First the user enters length and width of the triangle
• Then the user enters what kind of calculation has to be done
1: circumfence
2: area
3: the length of the diagonal
• If the user chooses an invalid calculation a message has to be displayed
• Show the result of the calculation in a message box
Hier habe ich es gar nicht verstanden und habe auf eure Hilfe gehofft.
4.11 Least common multiple
Read in two numbers and calculate the least common multiple (LCM)
Examples
15, 25 The LCM of 15 and 25 is 75.
75 modulo 15 = 0 and 75 modulo 25 = 0.
8, 12 The LCM of 8 and 12 is 24.
24 modulo 8 = 0 and 24 modulo 12 = 0.
Hier habe ich es so gelöst. Es kommt das richtige Ergebnis raus mit entsprechendem Button, weiß aber nicht ob es stimmt, da ich im Internet viel längere Versionen mit dem größtem gemeinsamen Vielfachen gefunden habe:
Sub LCM()
Range("C2").Formula = "=LCM(A2:B2)"
End Sub
Ich danke euch jetzt schon für eure Mühen und hoffe ich ihr bekommt kein Kopfzerbrechen wie ich :D
LG
|