Auf dieser Seite erfahren Sie, wie Sie ein einfaches Lohnrechner In Excel VBA. Das Arbeitsblatt enthält die folgenden ActiveX-Steuerelemente: zwei Bildlaufleisten und zwei Optionsfelder.
Hinweis: Die folgenden Anweisungen zeigen Ihnen nicht, wie Sie das Arbeitsblatt formatieren. Wir gehen davon aus, dass Sie wissen, wie Sie Schriftarten ändern, Zeilen und Spalten einfügen, Rahmen hinzufügen, Hintergrundfarben ändern usw.
Führen Sie die folgenden Schritte aus, um den Kreditrechner zu erstellen:
1. Fügen Sie die beiden Bildlaufleisten-Steuerelemente hinzu. Klicken Sie auf der Registerkarte Entwickler auf Einfügen und dann auf Bildlaufleiste im Abschnitt ActiveX-Steuerelemente.
2. Fügen Sie die beiden Optionsfelder hinzu. Klicken Sie auf der Registerkarte "Entwickler" auf Einfügen und dann im Abschnitt "ActiveX-Steuerelemente" auf die Optionsschaltfläche.
Ändern Sie die folgenden Eigenschaften der Bildlaufleisten-Steuerelemente (stellen Sie sicher, dass der Designmodus ausgewählt ist).
3. Klicken Sie mit der rechten Maustaste auf das erste Bildlaufleisten-Steuerelement, und klicken Sie dann auf Eigenschaften. Setzen Sie Min auf 0, Max auf 20, SmallChange auf 0 und LargeChange auf 2.
4. Klicken Sie mit der rechten Maustaste auf das zweite Bildlaufleisten-Steuerelement, und klicken Sie dann auf Eigenschaften. Setzen Sie Min auf 5, Max auf 30, SmallChange auf 1, LargeChange auf 5 und LinkedCell auf F8.
Erklärung: Wenn Sie auf den Pfeil klicken, wird der Wert der Bildlaufleiste um SmallChange nach oben oder unten verschoben. Wenn Sie zwischen dem Schieberegler und dem Pfeil klicken, wird der Wert der Bildlaufleiste um LargeChange nach oben oder unten verschoben.
Erstellen Sie ein Arbeitsblattänderungsereignis. Code, der dem Arbeitsblattänderungsereignis hinzugefügt wird, wird von Excel VBA ausgeführt, wenn Sie eine Zelle in einem Arbeitsblatt ändern.
5. Öffnen Sie den Visual Basic-Editor.
6. Doppelklicken Sie im Projekt-Explorer auf Sheet1 (Sheet1).
7. Wählen Sie Arbeitsblatt aus der linken Dropdown-Liste und wählen Sie Ändern aus der rechten Dropdown-Liste.
8. Das Worksheet Change Event hört auf alle Änderungen auf Sheet1. Wir möchten nur, dass Excel VBA das Calculate-Sub ausführt, wenn sich in Zelle D4 etwas ändert. Um dies zu erreichen, fügen Sie dem Arbeitsblattänderungsereignis die folgende Codezeile hinzu (mehr zum Unterverzeichnis Berechnen später).
Wenn Target.Address = "$D$4" Then Application.Run "Calculate"
9. Holen Sie sich den richtigen Prozentsatz in Zelle F6 (ändern Sie das Format von Zelle F6 in Prozent). Klicken Sie mit der rechten Maustaste auf das erste Bildlaufleisten-Steuerelement, und klicken Sie dann auf Code anzeigen. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub ScrollBar1_Change()
Range("F6").Value = ScrollBar1.Value / 100
Anwendung.Run "Berechnen"
End Sub
10. Klicken Sie mit der rechten Maustaste auf das zweite Bildlaufleisten-Steuerelement, und klicken Sie dann auf Code anzeigen. Fügen Sie die folgende Codezeile hinzu:
Privates Sub ScrollBar2_Change()
Anwendung.Run "Berechnen"
End Sub
11. Klicken Sie mit der rechten Maustaste auf das erste Optionsfeld-Steuerelement, und klicken Sie dann auf Code anzeigen. Fügen Sie die folgende Codezeile hinzu:
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Range("C12").Value = "Monatliche Zahlung"
Anwendung.Run "Berechnen"
End Sub
12. Klicken Sie mit der rechten Maustaste auf das zweite Optionsfeld-Steuerelement, und klicken Sie dann auf Code anzeigen. Fügen Sie die folgende Codezeile hinzu:
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then Range("C12").Value = "Jährliche Zahlung"
Anwendung.Run "Berechnen"
End Sub
13. Zeit, das Sub zu erstellen. Sie können unser Kapitel „Funktion und Unter“ durchgehen, um mehr über Untergeordnete zu erfahren. Wenn Sie es eilig haben, platzieren Sie einfach den Unternamen Calculate in einem Modul (Klicken Sie im Visual Basic-Editor auf Einfügen, Modul).
Unterberechnen()
Dim Loan As Long, Rate As Double, nper As Integer
Darlehen = Range("D4").Value
Rate = Bereich("F6").Wert
nper = Range("F8").Value
Wenn Sheet1.OptionButton1.Value = True Then
Rate = Rate / 12
nper = nper * 12
Ende Wenn
Range("D12").Value = -1 * WorksheetFunction.Pmt(Rate, Anzahl, Darlehen)
End Sub
Erklärung: Der Sub bekommt die richtigen Parameter für die Arbeitsblattfunktion Pmt. Die PMT-Funktion in Excel berechnet die Zahlungen für einen Kredit auf Basis konstanter Zahlungen und eines konstanten Zinssatzes. Wenn Sie monatliche Zahlungen vornehmen (Sheet1.OptionButton1.Value = True), verwendet Excel VBA rate/12 für Rate und nper *12 für nper (Gesamtzahl der Zahlungen). Das Ergebnis ist eine negative Zahl, da Zahlungen als Lastschrift gelten. Das Multiplizieren des Ergebnisses mit -1 ergibt ein positives Ergebnis.
