einfaches vba-programmieren
16.12.2004 12:14:21
mero
Aufgabe 8 (Erzeugung von Zufallszahlen)
Das nachfolgende kleine VBA-Programm erzeugt 100 Zufallszahlen zwischen 0 und 1 und trägt diese in der ersten Spalte der Tabelle1 nacheinander in die Zellen dieser Spalte ein. Anschließend wird der arithmetische Mittelwert dieser 100 Zufallszahlen berechnet und in die Zelle B1 eingetragen.
Führen Sie folgende Bearbeitungsschritte durch :
1) Öffnen Sie eine neue Mappe
2) Wählen Sie aus dem Menue Extras den Menuepunkt Makro und
Visual Basic - Editor.
4) Wahlen Sie aus dem Menue Einfügen den Menuepunkt Modul.
3) Geben Sie in das Blatt Modul den unten aufgeführten Programmtext ein
3) Erzeugen Sie in Tabelle1 eine eigene Schaltfäche und weisen Sie dieser
das Makro demo zu .
Sub demo() 'Beginn des Programms
simzahl = InputBox("Anzahl Zufallszahlen", , 100) 'Eingabe Anzahl Zufallszahlen
Worksheets("sheet1").Activate 'Tabellenblatt wird aktiviert
For i = 1 To simzahl ' Zeilenenindex i wird von 1 bis simzahl in Schritten von 1 erhöht
Cells(i, 1).Value = Rnd 'In Zelle i in Spalte 1 wird eine Zufallszahl eingetragen
Next i 'Solange i<simzahl wird i um 1 erhöht
Cells(1, 2).FormulaR1C1 = "=average(R1C1:R" & simzahl & "C1)" 'In Zelle 1 in Spalte 2 wird Mittelwertsformel eingetragen
End
Sub 'Ende des Programms
Der Text nach dem Anführungszeichen ist ein Kommentartext und erklärt die Wirkung der einzelnen Befehle.
Aufgabe 9 (Suchen des Minimums und Maximums, Sortieren von Zahlenwerten)
Schreiben Sie ein VBA - Programm, das für die oben erzeugten Zufallszahlen folgende Aktionen ausführt :
1.Ermitteln der kleinsten und der grössten Zufallszahl (ohne Verwendung
der Excel-Funktionen MIN() bzw. MAX()
2. Sortieren der Zufallszahlen in aufsteigender Reihenfolge (ohne
Verwendung der EXCEL - Sortierfunktion)