Πώς να Program Χρησιμοποιώντας το MS Excel

Microsoft Excel είναι μια ισχυρή εφαρμογή λογιστικών φύλλων . Πολλοί άνθρωποι χάσετε την πραγματική δύναμη του προγράμματος με το να μην την αξιοποίηση ό, τι μπορεί να κάνει . Visual Basic for Applications ( VBA ) είναι μια πλατφόρμα προγραμματισμού αγροτικής ανάπτυξης που είναι εγκατεστημένο με κάθε εφαρμογή του Microsoft Office . Visual Basic είναι μια λήψη από την παλιά γλώσσα προγραμματισμού Basic . Με VBA , ένα απλό υπολογιστικό φύλλο του Microsoft Excel μπορεί να γίνει σε μια δυναμική εφαρμογή που μεταφέρει αυτόματα τις λειτουργίες και διαδικασίες . Σε αυτό το άρθρο , θα προσθέσουμε απλό κώδικα σε ένα υπολογιστικό φύλλο του Excel 2007, ώστε να μιλήσουν . Αυτό είναι το τέλειο σχέδιο για να εξοικειωθείτε με το περιβάλλον της VBA . Θα πρέπει να γνωρίζετε κάτι σχετικά με τον προγραμματισμό , πριν κάνει αυτό το έργο . Οδηγίες
Η

1 Ανοίξτε ένα φύλλο . Μπορείτε να χρησιμοποιήσετε ένα υπολογιστικό φύλλο που έχετε αυτή τη στιγμή στον υπολογιστή σας ή μπορείτε να δημιουργήσετε το φύλλο που φαίνεται εδώ . Εάν χρησιμοποιείτε ένα προ -made ένα, βεβαιωθείτε ότι υπάρχει μια στήλη σύνολα . 2

Κάντε την καρτέλα Προγραμματιστής εμφανίζονται στην Κορδέλα . Το πιο πιθανό , δεν θα δείτε την καρτέλα Προγραμματιστής , όταν ανοίγετε το Excel . Θα χρειαστεί να κάνετε κλικ στο κουμπί "Microsoft Office " στο πάνω μέρος της οθόνης , και στη συνέχεια κάντε κλικ στο κουμπί " Επιλογές του Excel " . Από το Λαϊκό οθόνη, επιλέξτε " Εμφάνιση Developer Tab στην κορδέλα " και κάντε κλικ στο " OK " για να κλείσετε αυτό το έντυπο . Κάντε κλικ στην καρτέλα "Προγραμματιστής " τη στιγμή που θα είναι ορατό από την οθόνη του Excel .
Εικόνων 3

Κάντε κλικ στο " Visual Basic ". Η Visual Basic Editor θα εμφανιστεί . Στη δεξιά πλευρά , κάντε διπλό κλικ στο Φύλλο 1 , δεδομένου ότι αυτό είναι το φύλλο θα πρέπει να εργάζονται με . Ένα νέο κενό φύλλο προστίθεται στη δεξιά πλευρά της οθόνης .
Η 4

Πληκτρολογήστε " Option Explicit " στο πάνω μέρος της οθόνης . Θα πρέπει να το κάνετε αυτό με όλο το πρόγραμμα μπορείτε να δημιουργήσετε στην VBA . Αυτό εξασφαλίζει ότι θα ονομάσετε τις μεταβλητές σας πριν από την ανάθεση των δεδομένων σε αυτά. Σκεφτείτε μεταβλητές όπως μικρά δοχεία που θα κρατήσει τις πληροφορίες . Θα έρθει σε πρακτικό όταν οι πληροφορίες που χρησιμοποιείτε αλλάζει συνεχώς . Για παράδειγμα , θα πρέπει να συνεργαστεί με τα σύνολα Ιανουάριο. Από το ποσό αυτό θα αλλάξει από καιρό σε καιρό , μπορείτε να εκχωρήσετε σε μια μεταβλητή . Μπορείτε πάντα να καλέσετε σε αυτή τη μεταβλητή , ακόμη και αν δεν ξέρετε το ακριβές ποσό των δεδομένων που κατέχει
5

Πληκτρολογήστε την ακόλουθη συνάρτηση : . TalkIt Λειτουργία ( txtTotal ) Application.Speech.Speak ( txtTotal ) TalkIt = txtTotalEnd FunctionThis είναι η λειτουργία που θα ελέγχει την ομιλία φύλλο . Αυτό που κάναμε ήταν να χρησιμοποιήσετε το ενσωματωμένο text-to -speech γεννήτρια που έρχεται με το Excel . Η πρώτη γραμμή της συνάρτησης δηλώνει τη λειτουργία ( "Λειτουργία" ) , του δίνει ένα όνομα ( " TalkIt » ) , και στη συνέχεια αναφέρει ποια δεδομένα θα περάσουμε σε αυτό ( " txtTotal " ) . Τώρα που η συνάρτηση ορίζεται , θα πρέπει να αναφέρονται και να στείλετε τα στοιχεία για να λειτουργήσει .
Η 6

Επιστροφή στο υπολογιστικό φύλλο και να προσθέσετε ένα κουμπί . Από την καρτέλα Προγραμματιστής , κάντε κλικ στο κουμπί "Εισαγωγή " και στη συνέχεια πατήστε το κουμπί ( το πρώτο εικονίδιο στην κορυφή Σχεδιάστε το κουμπί στο φύλλο οπουδήποτε θέλετε να εμφανιστεί ένα νέο παράθυρο ? . . Όνομα το κουμπί " cmd_Total " και κάντε κλικ στο "OK". Μπορείτε μπορεί να αλλάξει το κείμενο του κουμπιού , κάνοντας δεξί κλικ στο κουμπί και , στη συνέχεια, κάνοντας κλικ στην επιλογή " Επεξεργασία κειμένου ". πληκτρολόγησα " Talk" στο κείμενό μου .
Η 7

επιστροφή στην Visual Basic για να προσθέσετε το τελευταίο κομμάτι της code.Private Sub cmdTotal_Click ( ) Dim intTotal Όπως Integer'declare μια νέα μεταβλητή για να κρατήσει textDim txtTotal Όπως StringintTotal = WorksheetFunction.Sum ( Cells.Range ( " B3 " , " B14 " ) ) ' Εάν χρησιμοποιήσετε το ... else για να ελέγξετε την τιμή της txtTotal variableIf intTotal <2500 ThentxtTotal = " Goal Δεν επετεύχθη " ElsetxtTotal = " Goal επιτευχθεί " End IfTalkIt ( txtTotal ) End Sub

Τι παραπάνω κωδικό σημαίνει ότι όταν το κουμπί είναι κλικ , ο κώδικας θα δούμε αν το σύνολο της στήλης « καπέλα » στο φύλλο εργασίας είναι μικρότερη από 2.500 αμερικανικά δολάρια . Εάν είναι, τότε synthized φωνή του Excel θα πει " Goal Δεν επετεύχθη . " Αν το σύνολο είναι 2.500 δολάρια ή περισσότερο, τότε η φωνή θα μιλήσει " Goal επιτευχθεί . " αυτό είναι. μόλις δημιουργήσατε το πρώτο σας πρόγραμμα σε Microsoft Excel .
Η
εικόνων