Visual Basic-Projekte

March 19

Microsoft Visual Basic ist eine Programmiersprache, die zum Erweitern der Funktionalität von Microsoft Word und Excel verwendet. Programmierung-Visual Basic-Projekte, die wichtige Aufgaben in Excel ausführen lernen Sie, wie Sie Visual Basic verwenden, um Ihre Excel-Produktivität zu erhöhen.

Erstellen der Daten

Dieses Projekt addiert die Zahlen in einem Bereich oberhalb der aktiven Zelle die Summe in der aktiven Zelle eingeben. Um dieses Projekt zu beginnen, erstellen Sie die Daten dafür--die Zahlen zu summierenden. Geben Sie in einem Excel-Arbeitsblatt alle fünf Zahlen in einer Spalte. Wählen Sie die erste leere Zelle unterhalb der Spalte Zahlen.

Erstellen Sie nun das Visual Basic-Programm, das diese Zahlen addiert werden.

Geben Sie den Code in der Entwicklungsumgebung

Geben Sie die integrierte Entwicklungsumgebung (IDE) von Visual Basic durch Drücken von Alt-F11 ein. Geben Sie in das Codefenster dieser Funktion:

Sub Macro1()

Dim s As StringDim o RangeDim p als Range

Set-o = ActiveCell.Offset(-1)Legen Sie p = o.End(xlUp)-Set Q = Range (o, p)

s = "= Mittelwert (" & q.Address & ")"

ActiveCell.Formula = s

EndSub

Dieser Programmcode ist gleichbedeutend mit manueller Eingabe des folgenden Textes in der Zelle, die zuvor ausgewählten: "= Summe (< Adresse >)," wo < Adresse > bezieht sich auf die Spalte mit Zahlen Sie eingegeben.

Führen Sie das Makro, indem wieder in das Excel-Arbeitsblatt auswählen Entwickler > Makros Macro1 auswählen und durch Drücken der Schaltfläche "ausführen". Das Makro summiert die Spalte mit Zahlen, das Ergebnis in die derzeit aktivierte Zelle eingeben. (Wenn die Registerkarte Entwickler nicht angezeigt wird, setzen Sie sie durch Aktivieren der Office-Schaltfläche in Excel die obere linke Ecke, Auswahl, Excel-Optionen und "Entwicklerregisterkarte in der Multifunktionsleiste anzeigen".)

Projekt 2: Ein Formular verwenden

Das zweite Projekt baut auf der ersten, indem der Benutzer des Programms eine Auswahl an Funktionen.

Geben Sie die Visual Basic-IDE und wählen Sie Einfügen > Userform. Die folgenden Steuerelemente aus der Toolbox auf das Formular ziehen: ein ListBox-Steuerelement und ein Button. Drücken Sie F7, um zurück zur Codeansicht, und wählen im Dropdown-Links im oberen Teil des Codefensters Userform aus dem rechten Dropdownliste-Feld zu initialisieren. Die IDE erstellt die Funktion Sub-UserForm_Initialize(). Geben Sie in dieser Funktion diesen Code, der Listbox die Namen der Funktionen hinzufügt, die der Benutzer auswählen wird:

ListBox1.AddItem "Summe"ListBox1.AddItem "Durchschnitt"

Verwenden Sie das Code-Fenster links und rechts Dropdown-Boxen wieder einmal "CommandButton1" aus dem linken Drop-Down auswählen, und klicken Sie auf aus dem rechten Dropdownliste-Feld. Die IDE erstellt die leere Funktion Commandbutton1_click()". Geben Sie den folgenden Code in der Funktion an, die die ursprüngliche macro1, die Sie mit der Funktion geschrieben nennen wird, dass der Benutzer aus der Listbox auswählt:

Macro1 (ListBox1.Value)

Ändern Sie Macro1 um ein Argument zu akzeptieren: den Text "Macro1" Rechtsklick und wählen Sie Definition der Macro1 Definition navigieren. Ändern Sie die Zeile "Sub Macro1()", "Sub Macro1(func As String)" zu lesen

Nun, da Sie das Argument hinzugefügt haben, ändern Sie Macro1 verwenden: Ändern Sie die Anweisung s = "= Mittelwert (" & q.Address & ")" wie folgt:

s = "=" & Func & "(" & q.Address & "")""

Schreiben Sie die Funktion, die das Formular geladen

Geben Sie diese neue Funktion unten macro1:

Sub macro2()UserForm1.ShowEndSub

Zurück zu Excel (Alt-F11), und positionieren Sie den Cursor unterhalb der Spalte Zahlen. Die Userform auswählen Entwickler anzeigen > Makros und Auswahl Macro2 und ausführen. Wenn das Formular angezeigt wird, wählen Sie entweder die Summe oder Mittelwert-Funktion und drücken Sie die Taste. Ihr Programm wird die Formel in das Arbeitsblatt eingeben. Die Formel werden die Daten aus der Spalte oberhalb der aktiven Zelle zusammengefasst.