Το ακόλουθο παράδειγμα βόλτες μέσα από τα βήματα για τη δημιουργία ενός ΔΜΣ ( Δείκτης Μάζας Σώματος ), αριθμομηχανή χρησιμοποιώντας VBA . Κάθε αίτηση στην VBA απαιτεί μια παρόμοια διαδικασία ανάπτυξης . Οι μεταβλητές που ορίζονται , ρουτίνες συλλέγει πληροφορίες από τον χρήστη , καθώς και το πρόγραμμα εκτελεί κάποια ενέργεια και εμφανίζει το αποτέλεσμα . Εδώ , ο κώδικας VBA κάνει τον υπολογισμό και την παρουσιάζει σε ένα παράθυρο ? Ενώ ένας υπολογισμός Excel εμφανίζει το ίδιο αποτέλεσμα με μια επιταγή για τον κώδικα
εικόνων Ρύθμιση του φύλλου εργασίας του Excel
Η <. p> Ξεκινήστε ανοίγοντας ένα νέο κενό βιβλίο εργασίας στο Microsoft Excel . Αποθηκεύστε το με το όνομα "Δείγμα Excel VBA " σε ένα φάκελο , μπορείτε να το βρείτε εύκολα. Στο κελί A1 , πληκτρολογήστε το κείμενο αυτό : " Ύψος " . Στο κελί A2 , πληκτρολογήστε " βάρος " και στο κελί A3 , πληκτρολογήστε " BMI " . Δημιουργήστε το αποτέλεσμα του Excel για ΔΜΣ στο κελί B3 , εισάγοντας το εξής: " = B2 /( B1 * B1 ) * 703 " . Αλλαγή της μορφής των αποτελεσμάτων, κάνοντας δεξί κλικ στο Β3 και επιλέγοντας " Μορφοποίηση κελιών " και στη συνέχεια "Number ". Αλλάξτε τα δεκαδικά σημεία στο "1 " και κάντε κλικ στο "OK".
Η Δημιουργία Εφαρμογών VBA
Η
Μετακινήστε τον κέρσορα σε μια κενή περιοχή του φύλλου εργασίας . Κάντε κλικ στο " Developer " στο μενού του Excel . Επιλέξτε " Visual Basic" στην αριστερή πλευρά της νέας γραμμής επιλογών. Στο μικρό παράθυρο που ανοίγει , κάντε κλικ στο κουμπί "Προβολή" και στη συνέχεια επιλέξτε " Κώδικα". Τώρα κάντε κλικ στο " Εισαγωγή" και επιλέξτε " Διαδικασία ". Επιλέξτε το " Sub" , όπως το είδος της διαδικασίας , ονομάστε τον ΔΜΣ και ενεργοποιήστε το κουμπί " Ιδιωτικό" . Αυτό είναι όπου μπορείτε να γράψετε κώδικα της Visual Basic για να κάνει το έργο της εφαρμογής σας . Πληκτρολογήστε τον ακόλουθο κώδικα μεταξύ " Private Sub ΔΜΣ ( ) " και " End Sub ". Η εξήγηση του κώδικα ακολουθεί.
Private Sub ΔΜΣ ( ) Dim ύψος, βάρος , όπως IntegerDim ΔΜΣ SingleHeight = InputBox ( " Πόσο ψηλό θα είναι σε ίντσες ; " ) Βάρος = InputBox ( " Πόσο κάνετε ? . ζυγίζουν λίρες » ) ΔΜΣ = ( Βάρος /( Ύψος * Ύψος ) ) * 703BMI = Format ( ΔΜΣ , " # # # " ) MsgBox ( " ΔΜΣ σας είναι " & ΔΜΣ ) MsgBox ( " ΔΜΣ 20 - 25 είναι ιδανική , πάνω από 25 θεωρείται υπέρβαρος " ) End Sub
στο παραπάνω υπο ρουτίνα , η δεύτερη και η τρίτη γραμμή δηλώνουν τρεις μεταβλητές , το ύψος και το βάρος , όπως ακέραιους αριθμούς και το ΔΜΣ ως ένα είδος δεκαδικό αριθμό . Οι επόμενες δύο γραμμές φέρει μέχρι μικρά παράθυρα για να ζητήσουν είσοδο από το χρήστη . Η πρώτη γραμμή ΔΜΣ εκτελεί τον υπολογισμό . Τα επόμενα σχήματα το αποτέλεσμα με ένα δεκαδικό ψηφίο . Οι επόμενες εκθέσεις του ΔΜΣ υπολογίζεται . Όταν ο χρήστης κάνει κλικ στο " OK" για το θέμα αυτό , η τελευταία οθόνη παρέχει ένα κομμάτι της λεπτομέρεια .
Εικόνων Εκτελέστε την εφαρμογή
Η
Κάντε κλικ στο "Run " ή πατήστε το πλήκτρο " F5 " να ελέγξει την εφαρμογή . Θα πρέπει να εντείνει μέσα σας ζητά για το ύψος και το βάρος τα στοιχεία . Κάνοντας κλικ στο " OK" μετά από κάθε μία θα φέρει το αποτέλεσμα ΔΜΣ . Ένα ακόμα κλικ στο "OK" εμφανίζει την εξήγηση . Μπορείτε να κάνετε κλικ πίσω στο υπολογιστικό φύλλο Excel και ελέγξτε τον υπολογισμό κώδικα .
Περισσότερα συμμετέχουν κώδικα VBA χρησιμοποιεί αυτή τη βασική μέθοδο των αιτήσεων γραφής . Αυτό βοηθάει να έχουν κάποια γνώση της Visual Basic . Ωστόσο , κάνοντας κλικ στο σύνδεσμο " Βοήθεια " στην Developer Visual Basic παράθυρο μπορεί να παρέχει επαρκείς πληροφορίες ώστε να δημιουργήσει κάποια προγράμματα μικρής διάρκειας για τη δική σας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα