Μετρήστε τον αριθμό των λέξεων σε μια συμβολοσειρά
Η ακόλουθη συνάρτηση VBA μετρά τον αριθμό των λέξεων σε μια συμβολοσειρά αναζητώντας κενά εντός της συμβολοσειράς. Χρησιμοποιεί τη λειτουργία MID. Θα μπορούσατε να επιτύχετε κάτι παρόμοιο με τις λειτουργίες SEARCH ή FIND.
| 1234567891011121314151617 | Συνάρτηση Αριθμός_Λέξεων (Κείμενο_κορδής ως συμβολοσειρά) Ως ακέραιος'Η συνάρτηση μετρά τον αριθμό των λέξεων σε μια συμβολοσειράκοιτάζοντας κάθε χαρακτήρα και βλέποντας αν είναι χώρος ή όχιΑριθμός_Λέξεων = 0Dim String_Length As IntegerDim Current_Character As IntegerString_Length = Len (Text_String)Για Current_Character = 1 έως String_LengthIf (Mid (Text_String, Current_Character, 1)) = "" ΤότεΑριθμός_Λέξεων = Αριθμός_Λέξεων + 1Τέλος εανΕπόμενο Current_CharacterΛειτουργία Τέλους |
Αξίζει να σημειωθούν μερικά σημεία:
• Αυτός ο κωδικός πρέπει να εισαχθεί σε μια ενότητα βιβλίου εργασίας - από το παράθυρο VBA, κάντε κλικ στο Εισαγωγή και στη συνέχεια στη μονάδα
• Η συνάρτηση μπορεί να κληθεί από ένα κελί βιβλίου εργασίας Excel είτε με ρητό κείμενο είτε με αναφορά κελιού ως επιχείρημα:
A3 = Αριθμός_Λέξεων ("Pig Dog Cat")
A4 = Αριθμός_Λέξεων (Δ1)
Η συνάρτηση λειτουργεί διασχίζοντας το μήκος μιας συμβολοσειράς και βλέποντας εάν ο επόμενος χαρακτήρας είναι κενό και αν ναι, προσθέτει έναν στον αριθμό των κενών στη συμβολοσειρά.
