Einführung in das Programmieren mit VBA - zurück

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Erster KontaktMit einem Programm ist es möglich, dass der Computer direkt auf Aktivitäten des Benutzersreagieren kann. Es gibt unterschiedliche Arten von Programmen, die unterschiedlich Komplexsind. So ist das Betriebssystem Windows selbst nur ein, zugegeben sehr komplexes,Programm. Die Anwendung Excel besteht aus vielen kleinen Programmzeilen. Zusätzlich zuden vorhanden Programmen erlaubt es eine Programmiersprache wie zum Beispiel VBA(Visual Basic) Benutzerdefinierte Programme zu erstellen, welche helfen kannRoutinearbeiten zu automatisieren.Aufgabe:Erstelle, unter Anleitung des Professors, folgendes Programm. Notiere dir gegebenenfallsArbeitsschritte, damit du in der Lage bis das Programm alleine nachzubauen.Fertiges Programm:Der Code hinter dem Programm:Private Sub hallo_Click()hallo = MsgBox("Hallo!")End SubWas passiert, wenn man auf den Button „Hallo Computer“ klickt?Einführung in das Programmieren mit VBA Seite 2 / 33

Marina GlatzUnterrichtsmaterialienMerkblatt:Wie kann man in Excel Programme erstellen?Dazu benötigt man die Symbolleiste von VisualBasic und die Toolbox.Klickt man auf das Symbol , und anschließend auf einen Button (der natürlichvorher erzeugt werden muss) so kommt man automatisch in die Entwurfsansicht. Hierkönnen Algorithmen eingegeben werden.Der AlgorithmusEin Algorithmus ist eine exakte Anleitung zur Lösung eines ProblemsAllgemeine Kennzeichen eines Algorithmus:• Aufbau aus einzelnen Schritten,jeder Schritt bezeichnet eine Tätigkeit• Verständlichjeder Schritt muss dem der ihn ausführt (also dem Computer) verständlich sein• EindeutigWelche Tätigkeit soll wie ausgeführt werden? Welcher Schritt folgt?• AusführbarDer Computer muss diesen Schritt tatsächlich durchführen können!• EndlichSowohl endlicher Beschreibungstext, als auch endlich viele Schritte. DerAlgorithmus soll in endlicher Zeit ausführbar sein.• Null oder mehr Eingangsgrößen, 1 oder mehr Ausgangsgrößensonst ist der Algorithmus sinnlos.Einführung in das Programmieren mit VBA Seite 3 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Nachbau einer Funktion aus Excel in VBAExcel bietet Funktionen an, die alle bereits von Softwareentwicklern programmiert wurden.Mit Visual Basic ist es möglich diese Funktionen nachzubauen, oder auch weitere Funktionenzu konstruieren.Aufgabe:Baue die Funktion für das arithmetische Mitteln MITTELWERT(A4:E4) nach.Das fertige Programm kann so aussehen:Notwendiges Wissen:Eine Zelle des Excel Arbeitsplattes spricht man mit dem Befehlcells(zeilennummer,spaltennummer) an. So kann man den Inhalt auslesenoder die Zelle beschreiben.Achte darauf, dass der Variable summe, die Summe der Zahlen aus den angesprochenenZellen mit dem = - Zeichen zugewiesen wird.Es gilt allgemein:Werte werden mit dem Zeichen: = Variablen oder Zellen zugewiesen.Einführung in das Programmieren mit VBA Seite 4 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Nachbau einer Funktion ausExcel in VBAExcel bietet Funktionen an, die alle bereits von Softwareentwicklern programmiert wurden.Mit Visual Basic ist es möglich diese Funktionen nachzubauen, oder auch weitere Funktionenzu konstruieren.Aufgabe:Baue die Funktion für das arithmetische Mitteln MITTELWERT(A4:E4) nach.Das fertige Programm kann so aussehen:Notwendiges Wissen:Eine Zelle des Excel Arbeitsplattes spricht man mit dem Befehlcells(zeilennummer,spaltennummer) an. So kann man den Inhalt auslesenoder die Zelle beschreiben.Achte darauf, dass der Variable summe, die Summe der Zahlen aus den angesprochenenZellen mit dem = - Zeichen zugewiesen wird.Es gilt allgemein:Werte werden mit dem Zeichen: = Variablen oder Zellen zugewiesen.Program hinter dem Button:Private Sub CommandButton1_Click()summe = Cells(4, 1) + Cells(4, 2) + Cells(4, 3) +Cells(4, 4) + Cells(4, 5)Cells(8, 2) = summe / 5End SubEs ist darauf zu achten, dass den Schülern deutlich wird, dass Methoden immer denselbenAufbau, Private Sub Bezeichnung_Ereignis(Übergabeparameter) undEnd Sub, haben. Ich empfehle, dass dieses Programm in einem Blockdiagramm verdeutlichtbeziehungsweise von den Schülern niedergeschrieben wird.Einführung in das Programmieren mit VBA Seite 5 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: ASCII – CodeDefinition: (nach DIN 44300)Ein Code ist eine Vorschrift für die eindeutige Zuordnung eines Zeichenvorrates zudenjenigen eines anderen Zeichenvorrates. Die Umwandlung von einem in den anderenZeichenvorrat wird als Codierung bezeichnet.Aufgabe:Da der Computer alle Zeichen nur Binär, also in einem Zahlensystem darstellen kann, werdenBuchstaben intern als achtstellige binäre Zahlen gespeichert. Diesen Zusammenhang kannman mit einem Programm zeigen:Das fertige Programm kann so aussehen:ListBox1Notwendige Funktionen:ListBox1.Clear‚Leert die ListBox, sofern bereits Zeichen in dieser Box sind’ListBox1.AddItem (z) & " -> " & Chr(z)‘Fügt ein Item am Ende der ListBox ein’Einführung in das Programmieren mit VBA Seite 6 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: ASCII – CodeDefinition: (nach DIN 44300)Ein Code ist eine Vorschrift für die eindeutige Zuordnung eines Zeichenvorrates zudenjenigen eines anderen Zeichenvorrates. Die Umwandlung von einem in den anderenZeichenvorrat wird als Codierung bezeichnet.Aufgabe:Da der Computer alle Zeichen nur Binär, also in einem Zahlensystem darstellen kann, werdenBuchstaben intern als achtstellige binäre Zahlen gespeichert. Diesen Zusammenhang kannman mit einem Programm zeigen:Das fertige Programm kann so aussehen:ListBox1Notwendige Funktionen:ListBox1.Clear‚Leert die ListBox, sofern bereits Zeichen in dieser Box sind’ListBox1.AddItem (z) & " -> " & Chr(z)‘Fügt ein Item am Ende der ListBox ein’Einführung in das Programmieren mit VBA Seite 7 / 33

Marina GlatzUnterrichtsmaterialienDas Programm hinter dem Button:Private Sub ASCII_Click()ListBox1.ClearFor z = 32 To 255ListBox1.AddItem (z) & " -> " & Chr(z)NextEnd SubBesondere Aufmerksamkeit ist auf die For – Schleife zu richten. Den SchülerInnen solldeutlich gemacht werden, dass For – Schleifen in jeder Programmiersprache vorkommen undüberall einen ähnlichen Aufbau haben.Weiterführende Beispiele:Binärsystem und Zahlendarstellungen, Informationstheorien, Methoden derFehlererkennung, u.v.mEinführung in das Programmieren mit VBA Seite 8 / 33

Marina GlatzUnterrichtsmaterialienMerkblatt: SchleifenUm Wiederholungen eines Arbeitsschrittes zu Programmieren stehen uns in VBA folgendedrei sogenannte Schleifen zur Verfügung.Aufbau der FOR – Schleife:FOR zählvariable = anfangswert TO endwertHier stehen AnweißungenNEXTDie Zählvariable, die beliebig benannt werden kann (meistens verwendet man die Buchstabeni, j und k), wird automatisch nach jedem durchlauf der Schleife um eins erhöht. DieAnweißungen in der Schleife werden so lange wiederholt, bis die Zählvariable denangegebenen Entwert erreicht, und mit diesem Entwert das letzte mal durchgeführt. Dadurchist garantiert, dass die Schleife irgendwann den Entwert erreicht. Das Programm wird dannam Ende der Schleife, nach dem NEXT, fortgesetzt. Weiß man, wie oft eine Schleifedurchlaufen werden muss, so empfiehlt es sich mit diesem Schleifentyp zu arbeiten. Er istweniger Fehleranfällig als die folgenden Schleifentypen.Aufbau der DO … LOOP UNTILDOHier stehen AnweißungenLOOP UNTIL AbbruchbedingungOder:DO UNTIL AbbruchbedingungHier stehen AnweißungenLOOPDie Schleife wird solange ausgeführt, bis die Abbruchbedingung am Ende der Schleife wahrist. Der Programmierer ist hier und in allen anderen DO LOOP – Schleifen dafürverantwortlich dass die Schleife irgendwann terminiert (d.h. abgearbeitet ist und dasProgramm die Schleife verlassen kann).Im zweiten Fall wird die Schleife nicht mehr ausgeführt, wenn die Abbruchbedingung wahrwird. Das Programm springt sofort zum Ende der Schleife und arbeitet die Anweißungen nachdem Schlüsselwort LOOP ab.Aufbau der DO … LOOP WHILEDOHier stehen AnweißungenLOOP WHILE AbbruchbedingungOder:DO WHILE AbbruchbedingungHier stehen AnweißungenLOOPAuch hier ist der Programmierer für die Terminierung der Schleife selbst verantwortlich. Imoberen Fall wird die Schleife so lange ausgeführt, bis die Abbruchbedingung falsch wird. Imzweiten Fall wird die Schleife nicht ausgeführt, wenn die Abbruchbedingung falsch wird, dasProgramm wird die Anweißungen nach dem Schlüsselwort LOOP ausführen.Einführung in das Programmieren mit VBA Seite 9 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Verbesserter Algorithmus für dasarithmetische MittelDas Übungsbeispiel: Nachbauen einer Funktion, funktioniert nur dann, wenn genau in denfünf angegebenen Zellen ein Wert steht.Aufgabe:Lies unter Verwendung von Schleifen so lange Zahlen ein und summiere sie, bis du auf einleeres Feld stößt. Berechne dann das arithmetische Mittel aller eingegebenen undeingelesenen Zahlen.Das fertige Programm kann so aussehen:Notwendige Funktionen:Es sind keine neuen Funktionen notwendig.Einführung in das Programmieren mit VBA Seite 10 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Verbesserter Algorithmus fürdas arithmetische MittelDas Übungsbeispiel: Nachbauen einer Funktion, funktioniert nur dann, wenn genau in denfünf angegebenen Zellen ein Wert steht.Aufgabe:Lies unter Verwendung von Schleifen so lange Zahlen ein und summiere sie, bis du auf einleeres Feld stößt. Berechne dann das arithmetische Mittel aller eingegebenen undeingelesenen Zahlen.Das fertige Programm kann so aussehen:Notwendige Funktionen:Es sind keine neuen Funktionen notwendig.Das Programm hinter dem Button:Private Sub CommandButton1_Click()summe = 0anzahl = 1End SubDo Until Cells(4, anzahl) = ""summe = Cells(4, anzahl) + summeanzahl = anzahl + 1Loopanzahl = anzahl - 1Cells(8, 2) = summe / anzahlEinführung in das Programmieren mit VBA Seite 11 / 33

Marina GlatzUnterrichtsmaterialienAn dieser Stelle wird erwartet, dass die Lehrperson die Lernenden auf die Problematik0/0 aufmerksam macht und das Programm auf zum Beispiel folgende Art verbessert:Private Sub CommandButton1_Click()summe = 0anzahl = 1Do Until Cells(4, anzahl) = ""LoopEnd Subsumme = Cells(4, anzahl) + summeanzahl = anzahl + 1anzahl = anzahl - 1If anzahl = 0 ThenCells(8, 2) = "undef"Else: Cells(8, 2) = summe / anzahlEnd IfEinführung in das Programmieren mit VBA Seite 12 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Der Passwort – GeneratorAufgabe zum Festigen des bisher gelernten, ASCII – Code, Zellen beschreiben, Schleifen.Aufgabe:Erstelle ein Programm, das acht zufällige Zeichen (Großbuchstaben, Kleinbuchstaben undSonderzeichen) ausgibt, die ein Passwort ergeben.Das fertige Programm kann so aussehen:Notwendige Funktionen:RndErzeugt Zufallszahlen von 0 bis 1 aus der Menge der reellen ZahlenRnd * 90Erzeugt Zufallszahlen zwischen 0 und 90, durch die Funktion Integer(Rnd *90) kann man die Menge der reellen Zahlen auf die Menge der natürlichen Zahleneinschränken.Einführung in das Programmieren mit VBA Seite 13 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Der Passwort – GeneratorAufgabe zum Festigen des bisher gelernten, ASCII – Code, Zellen beschreiben, Schleifen.Aufgabe:Erstelle ein Programm, das acht zufällige Zeichen (Großbuchstaben, Kleinbuchstaben undSonderzeichen) ausgibt, die ein Passwort ergeben.Das fertige Programm kann so aussehen:Notwendige Funktionen:RndErzeugt Zufallszahlen von 0 bis 1 aus der Menge der reellen ZahlenRnd * 90Erzeugt Zufallszahlen zwischen 0 und 90, durch die Funktion Integer(Rnd *90) kann man die Menge der reellen Zahlen auf die Menge der natürlichen Zahleneinschränken.Das Programm hinter dem Button:Private Sub generieren_Click()End SubFor zeichen = 2 To 9Cells(4, zeichen) = Chr(33 + Rnd * 90)NextEinführung in das Programmieren mit VBA Seite 14 / 33

Marina GlatzUnterrichtsmaterialienMerkblatt: If – Then – ElseDie Programme sind so ausgerichtet, dass die Anweisungen schrittweise ausgeführt werden.Manchmal will man aber die auszuführenden Schritte abhängig von einer, oder mehrererBedingungen machen. Ein Eingriff in die sequenzielle Abarbeitung haben wir mit denSchleifen bereits kenne gelernt. Die IF- THEN – ELSE Abfragen sind die zweite vom Prinzipher in jeder Programmiersprache existierende Möglichkeit die Anweisungsreihenfolgen zubeeinflussen.Grundlegender Aufbau:IF Bedingung = bestimmter Wert THENENDIFAnweisungen …Ist die Bedingung gleich dem angegebenen Wert, so werden die Anweisungen zwischenTHEN und ENDIF ausgeführt.In diesem Beispiel wird auf Gleichheit, im Zeichen =, abgeprüft. Es gibt aber in VBA auchandere Möglichkeiten zwei Ausdrücke zu vergleichen.Vergleichsoperatoren:< Kleiner als> Größer als= Gleich= Größer gleich UngleichWichtig ist, die Anweisungen werden genau dann ausgeführt, wenn die angegebenenBedingung hält. Sprich die Aussage (Variable Vergleichsoperator Wert) ist wahr. Ist dieAussage falsch, so setzt das Programm im obigen Fall nach dem Schlüsselwort ENDIF mitden Anweisungen fort.Manchmal möchte man entweder eine oder eine andere Anweisung ausführen, in diesem Fallempfiehlt sich die IF – THEN – ELSE, Abfrage:IF Variabe Vergleichsoperator Wert THENAnweisungen, wenn Aussage wahrELSEAnweisungen, wenn Aussage falschENDIFWeiters gibt es die Möglichkeit die IF – Anweisungen zu Schachteln, oder im ELSE – Zweigmit der Anweisung ELSEIF eine weitere IF – Anweisung einzuleiten. Muss man auf mehrereBedingungen gleichzeitig Abfragen und will man die Abfragen nicht Schachteln, so kann manzwei oder mehr Bedingungen mit AND oder OR verknüpfen.Einführung in das Programmieren mit VBA Seite 15 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Ein SchalterJeder von uns weiß, wie ein Schalter funktioniert. Ein mal klicken, und es fließt Strom in dieLeitung, das angeschlossene Gerät (zum Beispiel das Licht) läuft (bzw. leuchtet). In dieserAufgabe soll nun ein virtueller Schalter nachgebaut werden.Aufgabe:Erstelle ein Programm, mit einem Button. Zu beginn soll der Button auf AUS gestellt sein.Klickt man auf den Button, so wird der Schalter eingeschalten, und auf dem Button soll EINstehen. Bei nochmaligem Klicken ist der Schalter wieder ausgeschalten (am Button soll dannwieder AUS stehen).Das fertige Programm kann so aussehen:Notwendige Funktionen:SchalterName.CaptionDamit kann man den Button direkt ansprechen, beschriften bzw. die Beschriftungändern.Einführung in das Programmieren mit VBA Seite 16 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Ein SchalterJeder von uns weiß, wie ein Schalter funktioniert. Ein mal klicken, und es fließt Strom in dieLeitung, das angeschlossene Gerät (zum Beispiel das Licht) läuft (bzw. leuchtet). In dieserAufgabe soll nun ein virtueller Schalter nachgebaut werden.Aufgabe:Erstelle ein Programm, mit einem Button. Zu beginn soll der Button auf AUS gestellt sein.Klickt man auf den Button, so wird der Schalter eingeschalten, und auf dem Button soll EINstehen. Bei nochmaligem Klicken ist der Schalter wieder ausgeschalten (am Button soll dannwieder AUS stehen).Das fertige Programm kann so aussehen:Notwendige Funktionen:SchalterName.CaptionDamit kann man den Button direkt ansprechen, beschriften bzw. die Beschriftungändern.Das Programm hinter dem Button:Private Sub Schalter_Click()End SubIf Schalter.Caption = "EIN" ThenSchalter.Caption = "AUS"ElseSchalter.Caption = "EIN"End IfEinführung in das Programmieren mit VBA Seite 17 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Schachbrett:Dieses Blatt dient zum Wiederholen der gelernten Bausteine. Es kann dazu dienen,Algorithmen mit Blockdiagrammen oder Flussdiagrammen zu strukturieren, um dieVerschachtelung der Befehle sichtbar zu machen.Aufgabe:Ein Schachbrett besteht aus 32 Feldern (8*8), ist quadratisch und die Quadrate am Brett habenabwechselnd die Farbe weiß und schwarz. Erstelle ein Programm, welches in Excel ein Feldder Größe 8*8 schwarz – weiß einfärbt.Das fertige Programm kann so aussehen:Notwendige Funktionen:Cells(zeile, spalte).Interior.ColorIndex = 1Dieser Befehl färbt die Zelle an der Stelle (zeile, spalte) schwarz. (1 entsprichtschwarz, 0 entspricht weiß).Weiters kann der Befehl mod hilfreich sein. Mit:spalte Mod 2berechnet sich VBA den Rest bei der Division der Spaltenanzahl durch 2. In diesemFall kann der Rest = 0 oder =1 sein.Einführung in das Programmieren mit VBA Seite 18 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Schachbrett:Dieses Blatt dient zum Wiederholen der gelernten Bausteine. Es kann dazu dienen,Algorithmen mit Blockdiagrammen oder Flussdiagrammen zu strukturieren, um dieVerschachtelung der Befehle sichtbar zu machen.Aufgabe:Ein Schachbrett besteht aus 32 Feldern (8*8), ist quadratisch und die Quadrate am Brett habenabwechselnd die Farbe weiß und schwarz. Erstelle ein Programm, welches in Excel ein Feldder Größe 8*8 schwarz – weiß einfärbt.Das fertige Programm kann so aussehen:Notwendige Funktionen:Cells(zeile, spalte).Interior.ColorIndex = 1Dieser Befehl färbt die Zelle an der Stelle (zeile, spalte) schwarz. (1 entsprichtschwarz, 0 entspricht weiß).Weiters kann der Befehl mod hilfreich sein. Mit:spalte Mod 2berechnet sich VBA den Rest bei der Division der Spaltenanzahl durch 2. In diesemFall kann der Rest = 0 oder =1 sein.Das Programm hinter dem Button Ausfüllen:Private Sub faerben_Click()‚Variablen, ab hier soll ein 8*8 Felder großer Bereicheingefärbt werden’zeile = 3Einführung in das Programmieren mit VBA Seite 19 / 33

Marina GlatzUnterrichtsmaterialienspalte = 1Do While spalte < 9Do While zeile < 11‘Einfärben: Schwarz’Cells(zeile, spalte).Interior.ColorIndex = 1‚Gehe zwei Felder weiter’zeile = zeile + 2Loop‘Gehe in die nächste Spalte’spalte = spalte + 1‘Bin ich in einer “geraden” Spalte, so färbe ich dieFelder 2,4,6,81, 3, 5, 7; ansonsten färbe die Felder 1, 3,5, 7’If spalte Mod 2 = 0 Thenzeile = 4Elsezeile = 3End IfLoopEnd SubDas Programm hinter dem Button Leeren:Private Sub CommandButton1_Click()For spalte = 1 To 8For zeile = 3 To 10Cells(zeile, spalte).Interior.ColorIndex = 0NextNextEnd SubEinführung in das Programmieren mit VBA Seite 20 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Message - BoxManchmal will man einen User vor den folgen seiner Tätigkeit warnen, oder einfach nur dasGefühl vermitteln, dass der Computer mit dem User kommuniziert. Will man zum Beispieleine Datei löschen, die gerade in Verwendung ist, so reagiert Windows mit einem Pop-Up,oder einer Message – Box. Diese kann man auch in VBA programmieren.Aufgabe:Programmiere eine Message – Box, die beim betätigen des Buttons „Hallo“ aufgeht und denBenutzer grüßt. Außerdem soll der Computer Fragen: „Geht es dir gut?“ und dieAntwortmöglichkeiten JA und NEIN zur Verfügung stellen. Selbstverständlich soll dieMessage-Box auf die Antworten des Users angemessen reagieren.Notwendige Funktionen:Variable = MsgBox(„Text“, Option)Das Ergebnis des Aufrufes MsgBox() muss nicht in einer Variable abgefangenwerden, aber so ist es mir möglich auf die Reaktion des Users erneut zu reagieren.Um die Alternativen JA und NEIN anzeigen zu können benötigen wir die Option 4.Default-mäßig wird nur der OKAY – Button angeboten (Option = 0).Der Rückgabewert der Funktion ist für JA = 6 für Nein = 7.Einführung in das Programmieren mit VBA Seite 21 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Message - BoxManchmal will man einen User vor den folgen seiner Tätigkeit warnen, oder einfach nur dasGefühl vermitteln, dass der Computer mit dem User kommuniziert. Will man zum Beispieleine Datei löschen, die gerade in Verwendung ist, so reagiert Windows mit einem Pop-Up,oder einer Message – Box. Diese kann man auch in VBA programmieren.Aufgabe:Programmiere eine Message – Box, die beim betätigen des Buttons „Hallo“ aufgeht und denBenutzer grüßt. Außerdem soll der Computer Fragen: „Geht es dir gut?“ und dieAntwortmöglichkeiten JA und NEIN zur Verfügung stellen. Selbstverständlich soll dieMessage-Box auf die Antworten des Users angemessen reagieren.Notwendige Funktionen:Variable = MsgBox(„Text“, Option)Das Ergebnis des Aufrufes MsgBox() muss nicht in einer Variable abgefangenwerden, aber so ist es mir möglich auf die Reaktion des Users erneut zu reagieren.Um die Alternativen JA und NEIN anzeigen zu können benötigen wir die Option 4.Default-mäßig wird nur der OKAY – Button angeboten (Option = 0).Der Rückgabewert der Funktion ist für JA = 6 für Nein = 7.Das Programm hinter dem Button:Private Sub hallo_Click()Entscheidung = MsgBox("Hallo! Geht es dir gut?", 4)If Entscheidung = 6 ThenMsgBox "Das it ja wunderbar!"ElseMsgBox "Na dann gute Besserung!"End IfEnd SubEinführung in das Programmieren mit VBA Seite 22 / 33

Marina GlatzUnterrichtsmaterialienSammlung: Message BoxUm eine Message Box (zu Deutsch: Dialogfelder) zu erstellen verwendet man in VBA denBefehl MsgBox(„Text“, Code ), wobei in der Klammer der Text steht, welcher von derBox ausgegeben wird. In diesem Fall hat der Benutzer nur mehr die Möglichkeit seinEinverständnis bekannt zu geben, da ausschließlich der Button: OK erscheint.Um den Benutzer mehr Auswahlmöglichkeiten zu geben bietet VBA folgende Codierungenan:CodeButton0 Es wird nur „OK“ angezeigt1 „OK“ und „Abbrechen“ wird angezeigt2 „Abbrechen“, „Wiederholen“ und „Ignorieren“3 „Ja“, „Nein“ und „Abbrechen“4 „Ja“ und „Nein“5 „Wiederholen“ und „Abbrechen“Klickt der Benutzer auf einen Button, so wird ein Signal an das Programm zurückgesendet.Diese kann man mit einer beliebigen Variabel (Integer) abfangen. Zum Beispiel durch denBefehl: Entscheidung = MsgBox("Hallo! Geht es dir gut?", 4)(Siehe oben)Dabei verbergen sich hinter den Buttons folgende Integer – Zahlen:Wert Button1 OK2, 3 Abbrechen4 Wiederholen5 Ignorieren6 Ja7 NeinErst dadurch ist es möglich auf die Aktion des Benutzers zu reagieren. Ob der Computer dasgewünschte macht, liegt in der Hand des Programmierers.Einführung in das Programmieren mit VBA Seite 23 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: LottoDie Wahrscheinlichkeit bei Lotto einen 6er zu tippen ist mit ca. 1: 8 Mio. sehr gering. Wennman jedoch einmal einen 6er oder auch nur einen 5er tippt, so möchte man den Gewinn mitmöglichst wenig anderen Spielteilnehmern teilen. Da die Menschen jedoch dazu neigen aufTippscheinen Muster zu tippen, sind Tipphilfen immer sehr gefragt.Aufgabe:Programmiere in VBA einen Lottoschein nach. Durch betätigen eines Buttons sollen sechszufällig ausgewählte Zahlen am Schein angezeichnet werden.Das fertige Programm soll in etwa so aussehen:Notwendige Funktionen:Interior.ColorIndex = 0Befehl zum Einfärben von Zellen, (0=weiß)Rnd * 45Dieser Befehl erzeugt Zufallszahlen zwischen 0 und 45 (reelle Zahlen)Zahl1 Mod Zahl2Der Modulooperator gibt mir den Rest zurück, der entsteht, wenn die Zahl1 durch dieZahl2 dividiert wird.Einführung in das Programmieren mit VBA Seite 24 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: LottoDie Wahrscheinlichkeit bei Lotto einen 6er zu tippen ist mit ca. 1: 8 Mio. sehr gering. Wennman jedoch einmal einen 6er oder auch nur einen 5er tippt, so möchte man den Gewinn mitmöglichst wenig anderen Spielteilnehmern teilen. Da die Menschen jedoch dazu neigen aufTippscheinen Muster zu tippen, sind Tipphilfen immer sehr gefragt.Aufgabe:Programmiere in VBA einen Lottoschein nach. Durch betätigen eines Buttons sollen sechszufällig ausgewählte Zahlen am Schein angezeichnet werden.Das fertige Programm soll in etwa so aussehen:Notwendige Funktionen:Interior.ColorIndex = 0Befehl zum Einfärben von Zellen, (0=weiß)Rnd * 45Dieser Befehl erzeugt Zufallszahlen zwischen 0 und 45 (reelle Zahlen)Zahl1 Mod Zahl2Der Modulooperator gibt mir den Rest zurück, der entsteht, wenn die Zahl1 durch dieZahl2 dividiert wird.So könnte ein vorläufiges Programm hinter dem Button aussehen:Private Sub Tipp_Click()‘ InitialisierungsroutinenFor i = 3 To 10For j = 1 To 8Cells(i, j).Interior.ColorIndex = 0NextNext‘Hier beginnt die eigentliche ArbeitFor i = 1 To 6Zahl = Int(1 + Rnd * 45)Einführung in das Programmieren mit VBA Seite 25 / 33

Marina GlatzUnterrichtsmaterialienspalte = Int((Zahl - 1) Mod 7)zeile = Int((Zahl - 1) / 7)Cells(zeile + 3, spalte + 1).Interior.ColorIndex =6NextEnd SubEinführung in das Programmieren mit VBA Seite 26 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Verbesserter LottoalgorithmusEin Programmieranfänger hat einen Lottotipp mit folgendem Algorithmus simuliert:Private Sub Tipp_Click()For i = 3 To 10For j = 1 To 8Cells(i, j).Interior.ColorIndex = 0NextNextFor i = 1 To 6Zahl = Int(1 + Rnd * 45)spalte = Int((Zahl - 1) Mod 7)zeile = Int((Zahl - 1) / 7)Cells(zeile + 3, spalte + 1).Interior.ColorIndex=6NextEnd SubAufgabe 1:Kommentiere den Code aus und beschreibe in eigenen Worte, wie der Algorithmus arbeitet.Als der Programmierer seinen ersten Lottotipp mit seinem neuen Programm ausprobierenwill, schlägt ihm der Computer folgende Zahlen vor:Aufgabe 2:Wo liegt deiner Meinung nach der Fehler. Wie könnte man den Algorithmus verbessern?Versuche in eigenen Worten einen Verbesserungsvorschlag zu beschreiben, und in einemBlockdiagramm zu strukturieren.Einführung in das Programmieren mit VBA Seite 27 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Verbesserter LottoalgorithmusEin Programmieranfänger hat einen Lottotipp mit folgendem Algorithmus simuliert:Private Sub Tipp_Click()Beginn der Routine. Wird der Button mit dem Namen Tipp betätigt (daher Click), sowerden die folgenden Codezeilen ausgeführt:For i = 3 To 10For j = 1 To 8Cells(i, j).Interior.ColorIndex = 0NextNextDie 1. For – Schleife dient dazu das eventuell bereits gefärbte Felder wieder weißwerden. Dabei geht die äußere Schleife von 3 bis 10 über die Zeilen, und die innereSchleife von 1 bis 8 über die Spalten. Siehe Cells(i,j).For i = 1 To 6Zahl = Int(1 + Rnd * 45)Hier werden die Zufallszahlen erzeugt (von 0 bis 45). Da diese Zahlen imAllgemeinen reelle Zahlen sind, muss ich sie noch zu Integer – Zahlen machen.spalte = Int((Zahl - 1) Mod 7)Hier wurde die Spalte berechnet, in der die Zahl ist, die ich Einfärben möchte. (DerRest bei Division durch 7, denn ich habe 7 Spalten)zeile = Int((Zahl - 1) / 7)Die Zeilen erhalte ich als den Integer – Anteil bei der Division durch 7, denn ich habe6 Zeilen.Cells(zeile + 3, spalte + 1).Interior.ColorIndex=6Nachdem ich die Zeilen und Spalten noch zurecht gerückt habe (denn ich fange mitdem Tippschein erst bei Zelle (3,1) an), kann die betreffende Zeile eingefärbt werden.NextEnde der For - SchleifeEnd SubEnde der RoutineAufgabe 1:Kommentiere den Code aus und beschreibe in eigenen Worte, wie der Algorithmus arbeitet.Als der Programmierer seinen ersten Lottotipp mit seinem neuen Programm ausprobierenwill, schlägt ihm der Computer folgende Zahlen vor:Einführung in das Programmieren mit VBA Seite 28 / 33

Marina GlatzUnterrichtsmaterialienAufgabe 2:Wo liegt deiner Meinung nach der Fehler. Wie könnte man den Algorithmus verbessern?Versuche in eigenen Worten einen Verbesserungsvorschlag zu beschreiben, und in einemBlockdiagramm zu strukturieren.Ergänzt man den Code wie folgt, so stellt man fest, dass einfach gewisse Zahlen doppeltgezogen wurden:Private Sub Tipp_Click()For i = 3 To 10For j = 1 To 8Cells(i, j).Interior.ColorIndex = 0NextNextFor i = 1 To 6Zahl = Int(1 + Rnd * 45)Cells(11, i) = Zahlspalte = Int((Zahl - 1) Mod 7)zeile = Int((Zahl - 1) / 7)Cells(zeile + 3, spalte + 1).Interior.ColorIndex =6NextEnd SubBeim nächsten Tipp erhält der Programmierer folgende Rückmeldung:Einführung in das Programmieren mit VBA Seite 29 / 33

Marina GlatzUnterrichtsmaterialienDer Algorithmus lässt also zu, dass gewisse Zahlen zweimal (oder öfters) gezogen werden.Dieses Manko wäre zu beheben, wenn nach Ziehen einer neuen Zahl überprüft wird, ob dieseZahl bereits gezogen wurde. Nachdem die Schüler ihre Verbesserungsvorschläge sprachlichbeschreiben haben, kann ein Vorschlag aufgegriffen werden, der nun mittels Blockdiagrammin eine strukturierte Form gebracht wird. Das endgültige, verfeinerte Blockbild kann wie folgtaussehen:zahl = Int(1 + Rnd * 45)For h = 1 To (i - 1)If zahl = Cells(11, h) Thenzahl = Int(1 + Rnd * 45)End IfNextCells(11, i) = zahlEinführung in das Programmieren mit VBA Seite 30 / 33

Marina GlatzUnterrichtsmaterialienÜbungsblatt: Cäsar CodierungSeit es Schriftzeichen gibt, verwenden Menschen Codierungsmethoden, damit geheime,Nachrichten verschlüsselt übermittelt werden können. Eine der ältesten und einfachstenMethoden ist hierbei die Cäsar – Codierung. Hier werden einfach die Buchstaben dergeheimen Nachricht durch andere Buchstaben des Alphabets ersetzt.Aufgabe:Erstelle ein Blockdiagramm, in dem du den Algorithmus zuerst in eigenen Worten und spätermit Codezeilen beschreibst. Erstelle ein Programm, welches einen beliebigen Text nach derCäsar Methode verschlüsselt. Der Schlüssel sei dabei L1 (Verschieben des Alphabets um eineStelle nach Links, d. h. A wird zu B, B zu C und so weiter)Das Programm kann so aussehen:Notwendige Funktionen:text = TextBox1.TextBefehl, um einen Text aus einer Textbox in eine String Variable text einzulesen.neuertext = ""Damit erhält man eine String Variable, die zu begin leer ist.Len(text)Gibt die Länge des eingelesenen Textes zurückMid(text, i, 1)Damit kann man genau ein Zeichen an der Stelle i aus dem String text auslesen.Asc(zeichen)Wandelt ein Zeichen aus dem Alphabet in eine Zahl, in den zugehörigen ASCII –Code, umChr(ascii)Wandelt eine Zahl in ein Zeichen um.TextBox1.Text = neuertextBefehl um einen Text in die Text Box zu schreibenEinführung in das Programmieren mit VBA Seite 31 / 33

Marina GlatzUnterrichtsmaterialienLösung zum Übungsblatt: Cäsar CodierungSeit es Schriftzeichen gibt, verwenden Menschen Codierungsmethoden, damit geheime,Nachrichten verschlüsselt übermittelt werden können. Eine der ältesten und einfachstenMethoden ist hierbei die Cäsar – Codierung. Hier werden einfach die Buchstaben dergeheimen Nachricht durch andere Buchstaben des Alphabets ersetzt.Aufgabe:Erstelle ein Blockdiagramm, in dem du den Algorithmus zuerst in eigenen Worten und spätermit Codezeilen beschreibst. Erstelle ein Programm, welches einen beliebigen Text nach derCäsar Methode verschlüsselt. Der Schlüssel sei dabei L1 (Verschieben des Alphabets um eineStelle nach Links, d. h. A wird zu B, B zu C und so weiter)Das Programm kann so aussehen:Lösung:Private Sub codieren_Click()t = TextBox1.Textneuertext = ""For i = 1 To Len(t)zeichen = Mid(t, i, 1)a = Asc(zeichen)asciineu = (a + 1) Mod 255neuertext = neuertext + Chr(asciineu)NextTextBox1.Text = neuertextEnd SubPrivate Sub decodieren_Click()t = TextBox1.Textneuertext = ""For i = 1 To Len(t)zeichen = Mid(t, i, 1)Einführung in das Programmieren mit VBA Seite 32 / 33

Marina GlatzUnterrichtsmaterialiena = Asc(zeichen)asciineu = (a - 1) Mod 255neuertext = neuertext + Chr(asciineu)NextTextBox1.Text = neuertextEnd SubDer Einfachheit halber wurde in diesem Algorithmus nicht kontrolliert, ob Sonderzeichenenthalten sind, ob die Verschiebung innerhalb des Alphabets bleibt, oder nicht. Außerdemsind diese Algorithmen sehr kostspielig. Durch geeignete Funktionen könnte Softwarereusedemonstriert werden. In diese Richtungen könnte man zum Beispiel den Algorithmusverfeinern.Einführung in das Programmieren mit VBA Seite 33 / 33