Η εξαγωγή λέξεων από συμβολοσειρές κειμένου του Excel ονομάζεται ανάλυση.
Ανοίξτε το Excel και, στη συνέχεια, πληκτρολογήστε μια πρόταση που περιέχει τουλάχιστον τρεις λέξεις σε οποιοδήποτε από τα κελιά του πρώτου φύλλου εργασίας. Θα χωρίσετε αυτήν την πρόταση σε μεμονωμένες λέξεις.
Κάντε κλικ στην επικεφαλίδα του μενού "Δεδομένα" και, στη συνέχεια, κάντε κλικ στο κουμπί "Κείμενο σε στήλες". Αυτή η συνάρτηση διαχωρίζει κείμενο του οποίου οι λέξεις χωρίζονται με έναν χαρακτήρα που καθορίζετε.
Κάντε κλικ στο πλαίσιο ελέγχου "Διάστημα" και, στη συνέχεια, κάντε κλικ στο κουμπί "Τέλος". Το Excel θα χωρίσει την πρόταση που γράψατε σε ξεχωριστές στήλες. Κάθε στήλη θα περιέχει μία λέξη από την πρόταση.
Πληκτρολογήστε τη συνάρτηση, μείον τα εισαγωγικά, "=index([ARRAY],1,[NUMBER OF WORD TO EXTRACT])" σε ένα κελί κάτω από τη συμβολοσειρά των διαχωρισμένων λέξεων. Αντικαταστήστε τον όρο "ARRAY" με το εύρος που περιέχει τη συμβολοσειρά των λέξεων. Για παράδειγμα, εάν οι λέξεις καταλαμβάνουν τα κελιά "A1" έως "C1", εισαγάγετε το κείμενο "A1:C1" στη θέση του κειμένου "ARRAY". Αντικαταστήστε το κείμενο «ΑΡΙΘΜΟΣ ΛΕΞΗΣ ΠΡΟΣ ΕΞΑΓΩΓΗ» με τον αριθμό της λέξης που θέλετε να εξαγάγετε από την πρόταση. Για παράδειγμα, εάν θέλετε να εξαγάγετε την τρίτη λέξη από την περιοχή "A1:C1", πληκτρολογήστε "3" για το τελευταίο όρισμα.
Ανοίξτε ένα νέο υπολογιστικό φύλλο Excel και, στη συνέχεια, πληκτρολογήστε οποιαδήποτε ακολουθία τριών ή περισσότερων λέξεων στο κελί F4. Θα χρησιμοποιήσετε ένα σύντομο πρόγραμμα της Visual Basic για να εξαγάγετε μια λέξη από αυτήν την πρόταση.
Κάντε κλικ στην επικεφαλίδα του μενού "Προγραμματιστής" και, στη συνέχεια, κάντε κλικ στο κουμπί "Visual Basic". Θα ανοίξει το περιβάλλον προγραμματισμού για το Excel.
Επικολλήστε το παρακάτω πρόγραμμα στο παράθυρο που εμφανίζεται. Η καρδιά αυτής της υπορουτίνας είναι η συνάρτηση "split", η οποία διαχωρίζει μια πρόταση στις μεμονωμένες λέξεις της, όπως κάνει η εντολή "Text to Columns".
Sub Macro1() Dim ar, str1, n str1 = Range("F4") n = Range("F5") - 1 ar = Split (str1, " ") MsgBox "Αριθμός λέξης " & n + 1 & " is " & ar (n) End Sub
Κάντε κλικ στο κουμπί "Μακροεντολές" της καρτέλας "Προγραμματιστής" και, στη συνέχεια, κάντε διπλό κλικ στη συνάρτηση "Macro1". Θα εμφανιστεί ένα πλαίσιο μηνύματος που υποδεικνύει τη λέξη που εξήγαγε το πρόγραμμά σας από την πρόταση που πληκτρολογήσατε στο βήμα 1.
