Πώς να βρείτε θέση του ένα ιδιαίτερο χαρακτήρα στο Excel χρησιμοποιώντας VBA

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

Εκκίνηση του Microsoft Excel και πληκτρολογήστε " Βρείτε τη θέση κάθε χαρακτήρα σε αυτή την πρόταση . " Στην Α1 . Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic " για να ανοίξετε τον Επεξεργαστή VB . " . Ενότητα " Προσθέστε μια νέα λειτουργική μονάδα κώδικα VBA , κάνοντας κλικ στο "Εισαγωγή" μενού και πατώντας 2

Προσθέστε μια νέα διαδικασία με την προσθήκη του παρακάτω κώδικα :

Private Sub findPositionOfCharacter ( )
εικόνων 3

Δημιουργήστε τις ακόλουθες τρεις μεταβλητές που θα χρησιμοποιήσετε για να βρείτε τη θέση του χαρακτήρα σας :

Dim myString Όπως StringDim myChar Όπως StringDim Pos As Integer

4

Ορίστε το χαρακτήρα που θέλετε να βρείτε και να πάρετε την ποινή που βρίσκεται στην Α1 :

myChar = " d " Range ( " A1" ) SelectmyString = Range ( " A1" ) . . Αξία

5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να βρείτε τη θέση του χαρακτήρα που ορίζεται στο προηγούμενο βήμα και να εμφανίσει ένα μήνυμα με τη θέση της :

Pos = InStr ( 1 , myString , myChar , vbTextCompare ) MsgBox ( " Η θέση του " & myChar & "είναι : " & Pos )
Η 6

Πληκτρολογήστε " End Sub " για να τερματίσετε σας διαδικασία και πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κώδικα VBA .
Η
εικόνων