Αυτή η σελίδα σας διδάσκει πώς να δημιουργήσετε ένα απλό υπολογιστής δανείου σε Excel VBA. Το φύλλο εργασίας περιέχει τα ακόλουθα στοιχεία ελέγχου ActiveX: δύο γραμμές κύλισης και δύο κουμπιά επιλογών.
Σημείωση: οι παρακάτω οδηγίες δεν σας διδάσκουν πώς να μορφοποιήσετε το φύλλο εργασίας. Υποθέτουμε ότι γνωρίζετε πώς να αλλάζετε τύπους γραμματοσειρών, να εισάγετε γραμμές και στήλες, να προσθέτετε περιθώρια, να αλλάζετε χρώματα φόντου κ.λπ.
Εκτελέστε τα ακόλουθα βήματα για να δημιουργήσετε την αριθμομηχανή δανείου:
1. Προσθέστε τα δύο στοιχεία ελέγχου της γραμμής κύλισης. Κάντε κλικ στην επιλογή Εισαγωγή από την καρτέλα Προγραμματιστής και, στη συνέχεια, κάντε κλικ στη γραμμή κύλισης στην ενότητα Στοιχεία ελέγχου ActiveX.
2. Προσθέστε τα δύο κουμπιά επιλογών. Κάντε κλικ στην επιλογή Εισαγωγή από την καρτέλα Προγραμματιστής και, στη συνέχεια, κάντε κλικ στο κουμπί Επιλογή στην ενότητα Στοιχεία ελέγχου ActiveX.
Αλλάξτε τις ακόλουθες ιδιότητες των στοιχείων ελέγχου της γραμμής κύλισης (βεβαιωθείτε ότι είναι επιλεγμένη η λειτουργία σχεδίασης).
3. Κάντε δεξί κλικ στο πρώτο στοιχείο ελέγχου γραμμής κύλισης και, στη συνέχεια, κάντε κλικ στο κουμπί Ιδιότητες. Ορίστε το ελάχιστο στο 0, το μέγιστο στο 20, το SmallChange στο 0 και το LargeChange σε 2.
4. Κάντε δεξί κλικ στο δεύτερο στοιχείο ελέγχου γραμμής κύλισης και, στη συνέχεια, κάντε κλικ στο κουμπί Ιδιότητες. Ορίστε Min σε 5, Max σε 30, SmallChange σε 1, LargeChange σε 5 και LinkedCell σε F8.
Επεξήγηση: όταν κάνετε κλικ στο βέλος, η τιμή της γραμμής κύλισης ανεβαίνει ή κατεβαίνει κατά SmallChange. Όταν κάνετε κλικ μεταξύ του ρυθμιστικού και του βέλους, η τιμή της γραμμής κύλισης ανεβαίνει ή κατεβαίνει κατά LargeChange.
Δημιουργία συμβάντος αλλαγής φύλλου εργασίας. Ο κώδικας που προστέθηκε στο συμβάν αλλαγής φύλλου εργασίας θα εκτελεστεί από το Excel VBA όταν αλλάξετε ένα κελί σε ένα φύλλο εργασίας.
5. Ανοίξτε το Visual Basic Editor.
6. Κάντε διπλό κλικ στο Sheet1 (Sheet1) στο Project Explorer.
7. Επιλέξτε φύλλο εργασίας από την αριστερή αναπτυσσόμενη λίστα και επιλέξτε Αλλαγή από τη δεξιά αναπτυσσόμενη λίστα.
8. Το συμβάν αλλαγής φύλλου εργασίας ακούει όλες τις αλλαγές στο Φύλλο1. Θέλουμε μόνο το Excel VBA να εκτελέσει τον υπολογισμό υποτίμησης εάν αλλάξει κάτι στο κελί D4. Για να το επιτύχετε αυτό, προσθέστε την ακόλουθη γραμμή κώδικα στο συμβάν αλλαγής φύλλου εργασίας (περισσότερα για τον υπολογισμό υποτίμημα αργότερα).
If Target.Address = "$ D $ 4" Στη συνέχεια Application.Run "Υπολογισμός"
9. Λάβετε το σωστό ποσοστό στο κελί F6 (αλλάξτε τη μορφή του κελιού F6 σε ποσοστό). Κάντε δεξί κλικ στο πρώτο στοιχείο ελέγχου γραμμής κύλισης και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Private Sub ScrollBar1_Change ()
Εύρος ("F6"). Τιμή = ScrollBar1.Value / 100
Εφαρμογή. Εκτέλεση "Υπολογισμός"
Τέλος υπο
10. Κάντε δεξί κλικ στο στοιχείο ελέγχου της δεύτερης γραμμής κύλισης και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα. Προσθέστε την ακόλουθη γραμμή κώδικα:
Private Sub ScrollBar2_Change ()
Εφαρμογή. Εκτέλεση "Υπολογισμός"
Τέλος υπο
11. Κάντε δεξί κλικ στο κουμπί ελέγχου της πρώτης επιλογής και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα. Προσθέστε την ακόλουθη γραμμή κώδικα:
Private Sub OptionButton1_Click ()
Εάν OptionButton1.Value = True then Range ("C12"). Value = "Monthly Payment"
Εφαρμογή. Εκτέλεση "Υπολογισμός"
Τέλος υπο
12. Κάντε δεξί κλικ στο στοιχείο ελέγχου κουμπιού δεύτερης επιλογής και, στη συνέχεια, κάντε κλικ στην επιλογή Προβολή κώδικα. Προσθέστε την ακόλουθη γραμμή κώδικα:
Private Sub OptionButton2_Click ()
Εάν OptionButton2.Value = True then Range ("C12"). Value = "Ετήσια πληρωμή"
Εφαρμογή. Εκτέλεση "Υπολογισμός"
Τέλος υπο
13. Timeρα για τη δημιουργία του υπο. Μπορείτε να περάσετε από το κεφάλαιο Λειτουργία και Υπο για να μάθετε περισσότερα σχετικά με τους συνδρομητές. Εάν βιάζεστε, απλώς τοποθετήστε το υποκατάστημα Υπολογισμός σε μια ενότητα (Στον επεξεργαστή Visual Basic, κάντε κλικ στην επιλογή Εισαγωγή, ενότητα).
Υπο Υπολογισμός ()
Ελαφρύ δάνειο ως μακρό, επιτόκιο ως διπλό, nper ως ακέραιο
δάνειο = Εύρος ("D4"). Αξία
ποσοστό = Εύρος ("F6"). Τιμή
nper = Εύρος ("F8"). Τιμή
Εάν Sheet1.OptionButton1.Value = True Τότε
ποσοστό = ποσοστό / 12
nper = nper * 12
Τέλος εαν
Εύρος ("D12"). Value = -1 * WorksheetFunction.Pmt (επιτόκιο, nper, δάνειο)
Τέλος υπο
Επεξήγηση: το sub λαμβάνει τις σωστές παραμέτρους για τη συνάρτηση φύλλου εργασίας Pmt. Η συνάρτηση PMT στο Excel υπολογίζει τις πληρωμές για ένα δάνειο βάσει σταθερών πληρωμών και σταθερού επιτοκίου. Εάν πραγματοποιείτε μηνιαίες πληρωμές (Sheet1.OptionButton1.Value = True), το Excel VBA χρησιμοποιεί το rate / 12 για το επιτόκιο και nper *12 για το nper (συνολικός αριθμός πληρωμών). Το αποτέλεσμα είναι αρνητικός αριθμός, επειδή οι πληρωμές θεωρούνται χρεωστικές. Ο πολλαπλασιασμός του αποτελέσματος επί -1 δίνει ένα θετικό αποτέλεσμα.
