Benutzung auf eigene Gefahr ! |
Beschreibung |
Das Programm berechnet eine Zeile aus dem Pascalschen Dreieck und gibt diese als Zeilenvektor zurück. Die Funktion ist ein gutes Beispiel, wie man mit einer Tabellenfunktion in Excel mehrere Werte in mehrere Zellen zurückgeben kann. |
VBA-Quelltext |
' Berechnet eine Zeile des Pascalschen Dreiecks Public Function PascalDreieck(n As Long) Dim i As Integer, j As Integer ReDim p(0 To n) As Long p(0) = 1 For i = 1 To n For j = i To 1 Step -1 p(j) = p(j) + p(j - 1) Next j Next i ' Rückgabe als Zeilenvektor PascalDreieck = p End Function |
Argumente der Funktion/Prozedur |
|
Rückgabewert |
Der Rückgabewert ist ein eindimensionales Array, das Werte in den Feldern 0 bis n enthält. |
Anwendungsbeispiel(e)... |
PascalDreieck(4) liefert ein Array mit dem Inhalt array(1, 4, 6, 4, 1), PascalDreieck(6) liefert ein Array mit dem Inhalt array(1, 6, 15, 20, 15, 6, 1) |
Hinweis |
Damit die Funktion das gewünschte Ergebnis liefert, muss zunächst der Bereich im Tabellenblatt markiert werden, in den die Ergebnisse ausgegeben werden sollen. Im Falle von PascalDreieck(4) werden 5 Werte zurückgegeben, d.h.
Bei dieser Art von Funktionen ist der Typ des Rückgabewertes immer Variant, da nur im Variant ein Array (Feld) gespeichert werden kann. |