Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι χωρίζει χορδές.
Κατάσταση:
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώνουμε μια μεταβλητή που ονομάζεται πλήρες όνομα τύπου συμβολοσειράς, μια μεταβλητή που ονομάζεται συνένωση τύπου Integer και μια μεταβλητή που ονομάζεται i του τύπου Integer.
Χαμηλό πλήρες όνομα ως συμβολοσειρά, συνάρτηση ως ακέραιος, i ως ακέραιος
Το πρόβλημα που αντιμετωπίζουμε είναι ότι πρέπει να πούμε στο Excel VBA πού θέλουμε να διαχωρίσουμε τη συμβολοσειρά. Στην περίπτωση του Σμιθ, του Μάικ το κόμμα βρίσκεται στη θέση 6 ενώ στην περίπτωση του Γουίλιαμς, της Τζάνετ το κόμμα βρίσκεται στη θέση 9.
2. Χρησιμοποιούμε ένα βρόχο για να εκτελέσουμε τις πράξεις σε κάθε όνομα που έχει εισαχθεί στο Excel. Αρχικά, αρχικοποιούμε το πλήρες όνομα της μεταβλητής. Στη συνέχεια, χρησιμοποιούμε τη συνάρτηση Instr για να βρούμε τη θέση του κόμματος.
Για i = 2 έως 7
πλήρες όνομα = Κελιά (i, 1). Αξία
commaposition = InStr (πλήρες όνομα, ",")
3. Τέλος, θέλουμε να γράψουμε το τμήμα μετά το κόμμα στη στήλη Β και το μέρος μπροστά από το κόμμα στη στήλη C. Μπορείτε να το επιτύχετε προσθέτοντας τις γραμμές:
Κελιά (i, 2). Τιμή = Μεσαίο (πλήρες όνομα, συνένωση + 2)
Κελιά (i, 3). Αξία = Αριστερά (πλήρες όνομα, συνάρτηση - 1)
Mid (πλήρες όνομα, συνάρτηση + 2) σημαίνει ότι θέλουμε το μέρος του πλήρους ονόματος να ξεκινά από τον χαρακτήρα 'commaposition + 2' (αυτό είναι ακριβώς το πρώτο όνομα).
Αριστερά (πλήρες όνομα, συνεννόηση - 1) σημαίνει ότι θέλουμε το μέρος του πλήρους ονόματος να ξεκινά στην αρχή μέχρι τον χαρακτήρα 'commaposition- 1' (αυτό είναι ακριβώς το επώνυμο).
4. Μην ξεχάσετε να κλείσετε το βρόχο.
Επόμενο i
5. Προσθέστε έξι ονόματα που χωρίζονται με κόμμα και κενό στο εύρος ("A2: A7").
6. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα:
