Πώς να βρείτε ένα χαρακτήρα σε ένα String σε VBA

Η εύρεση ενός και μόνο χαρακτήρα σε ένα string χρησιμοποιώντας VBA είναι μια ειδική περίπτωση για την εξεύρεση μιας συμβολοσειράς μέσα σε μια άλλη . Η ίδια η διαδικασία χρησιμοποιεί μόνο μία λέξη Visual Basic , InStr , η οποία αναζητά κειμένου για μια συγκεκριμένη συμβολοσειρά , ή μεμονωμένο χαρακτήρα σε αυτό το παράδειγμα . Το υπόλοιπο του κώδικα είναι αναγκαία για να επιτρέψει είσοδο από το χρήστη και να εμφανίσει τα αποτελέσματα. Η διαδικασία χρησιμοποιεί μια μέθοδο αναζήτησης πεζών-κεφαλαίων ? Δηλαδή , θα βρείτε πεζά ή κεφαλαία γράμματα . Οδηγίες
Η

1 Ανοίξτε ένα από τα προγράμματα του Microsoft Office που χρησιμοποιούν VBA ( Visual Basic for Applications ) και περιέχουν ήδη κάποιο κείμενο . Κάντε κλικ στο " Developer " στο μενού στην κορυφή και στη συνέχεια " Visual Basic ", το οποίο θα πρέπει να αναγράφονται στη δεύτερη σειρά των επιλογών . Αυτό ανοίγει την οθόνη Επεξεργασία VBA . 2

Εισάγετε τις παρακάτω γραμμές στο κενό παράθυρο .

Sub FindCharacter ( ) Dim KnownString , SoughtCharacter , Βρέθηκαν Όπως StringDim Τοποθεσία , i , Ρύθμιση Όπως IntegerKnownString = InputBox ( " Πληκτρολογήστε ή αντιγράψτε και επικολλήστε το κείμενο προς αναζήτηση εδώ " ) SoughtCharacter = InputBox ( "Πληκτρολογήστε το χαρακτήρα που επιδιώκεται » ) Τοποθεσία = InStr ( 1 , KnownString , SoughtCharacter , vbTextCompare ) Ρυθμίστε = 10για i = 1 Για να Len ( KnownString ) Αν στη Θέση <Ρύθμιση ThenAdjust = Ρύθμιση /5End IfIf i = Τοποθεσία ThenFound = Mid ( KnownString , Τοποθεσία - Προσαρμογή , Προσαρμογή Location + ) MsgBox " Αυτή είναι η πρώτη εμφάνιση του" & vbCrLf & SoughtCharacter & ? " στο πλαίσιο " & vbCrLf & " " & Found & " " End Sub IfNext iEnd
εικόνων 3

Μειώστε τη δεξιά πλευρά της ακόλουθης γραμμής, αν ψάχνετε για έναν χαρακτήρα σε πολύ μικρά τμήματα του κειμένου :

Ρυθμίστε = 10

κάνετε αυτό επειδή το έργο είναι ρυθμισμένο να εμφανίζει έναν προεπιλεγμένο αριθμό των χαρακτήρων και στις δύο πλευρές του περιζήτητα χαρακτήρα . Αν το string είναι πολύ μικρή , το πρόγραμμα θα παράγει ένα σφάλμα .
Η

4 Κάντε κλικ στο " Μακροεντολές " στην ενότητα Developer του εγγράφου του Word και να εκτελέσετε αυτήν τη μακροεντολή για να δείτε πώς λειτουργεί . Εάν η μακροεντολή αποτύχει , ελέγξτε ξανά την εργασία σας από τις ανωτέρω οδηγίες .
Η
εικόνων