Λειτουργία VBA MID - Πώς να χρησιμοποιήσετε τη συνάρτηση Excel VBA MID;

Πίνακας περιεχομένων

Λειτουργία MID Excel VBA

Η συνάρτηση VBA MID εξάγει τις τιμές από τη μέση της παρεχόμενης πρότασης ή λέξης. Η συνάρτηση MID κατηγοριοποιείται στη συνάρτηση συμβολοσειράς και κειμένου και είναι μια συνάρτηση φύλλου εργασίας που σημαίνει να χρησιμοποιήσουμε αυτήν τη συνάρτηση στο VBA, πρέπει να χρησιμοποιήσουμε τη μέθοδο application.worksheet.

Υπάρχουν καταστάσεις όπου θέλουμε να εξαγάγουμε το όνομα, το επώνυμο ή το μεσαίο όνομα. Σε αυτές τις περιπτώσεις, οι τύποι κατηγοριών TEXT είναι χρήσιμοι για την εκπλήρωση των απαιτήσεων μας Η χρήση αυτής της συνάρτησης είναι η ίδια με αυτήν της αναφοράς του φύλλου εργασίας και η σύνταξη είναι επίσης η ίδια.

Σύνταξη

Όπως και η λειτουργία MID excel, και στο VBA, έχει ένα παρόμοιο σύνολο τιμών σύνταξης. Παρακάτω είναι η σύνταξη.

  • String to Search: Δεν είναι τίποτα άλλο από την πρόταση της συμβολοσειράς, δηλαδή από ποια συμβολοσειρά ή λέξη θέλετε να εξαγάγετε τις τιμές.
  • Αρχική θέση: Από ποια θέση της πρότασης θέλετε να εξαγάγετε. Αυτή πρέπει να είναι μια αριθμητική τιμή.
  • Αριθμός χαρακτήρων προς εξαγωγή: Από την αρχική θέση, πόσους χαρακτήρες θέλετε να εξαγάγετε; Αυτό θα πρέπει επίσης να είναι μια αριθμητική τιμή.

Πώς να χρησιμοποιήσετε τη λειτουργία VBA MID;

Παράδειγμα # 1

Ας υποθέσουμε ότι έχετε τη λέξη "Γεια σας Καλημέρα" και θέλετε να εξαγάγετε το "Good" από αυτήν την πρόταση. Ακολουθήστε τα παρακάτω βήματα για να εξαγάγετε την τιμή.

Βήμα 1: Δημιουργήστε πρώτα ένα όνομα μακροεντολής.

Κώδικας:

Υπο MID_VBA_Example1 () End Sub

Βήμα 2: Δηλώστε μια μεταβλητή ως "STRING".

Κώδικας:

Υπο MID_VBA_Example1 () Dim MiddleValue As String End Sub

Βήμα 3: Τώρα ορίστε μια τιμή σε αυτήν τη μεταβλητή μέσω της συνάρτησης MID.

Κώδικας:

Υπο MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid (End Sub

Βήμα 4: Το πρώτο επιχείρημα είναι το String, δηλαδή, από ποια τιμή θέλουμε να εξαγάγουμε. Έτσι, η αξία μας είναι "Γεια σας Καλημέρα"

Κώδικας:

Υπο MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", End Sub

Βήμα 5: Στη συνέχεια είναι ποια είναι η αρχική θέση του χαρακτήρα που θέλετε να εξαγάγετε. Σε αυτή την περίπτωση, Καλημέρα ξεκινά από 7 ου χαρακτήρα.

Σημείωση: Το διάστημα είναι επίσης ένας χαρακτήρας.

Κώδικας:

Υπο MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7 End Sub

Βήμα 6: Το μήκος δεν είναι παρά πόσους χαρακτήρες θέλετε να εξαγάγετε. Πρέπει να εξαγάγουμε 4 χαρακτήρες εδώ, επειδή το μήκος της λέξης "Καλό" είναι 4 χαρακτήρες.

Κώδικας:

Υπο MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) End Sub

Βήμα 7: Ολοκληρώσαμε τον τύπο. Ας δείξουμε το αποτέλεσμα της μεταβλητής στο πλαίσιο μηνύματος.

Κώδικας:

Υπο MID_VBA_Example1 () Dim MiddleValue As String MiddleValue = Mid ("Hello Good Morning", 7, 4) MsgBox MiddleValue End Sub

Βήμα 8: Τώρα εκτελέστε αυτόν τον κωδικό χειροκίνητα ή πατήστε το πλήκτρο F5, το πλαίσιο μηνυμάτων θα πρέπει να εμφανίζει τη λέξη "Καλό".

Παραγωγή:

Παράδειγμα # 2

Ας υποθέσουμε ότι έχετε ένα όνομα και επώνυμο μαζί και η λέξη είναι "Ramesh, Tendulkar". Μεταξύ Όνομα & Επώνυμο, ο χαρακτήρας διαχωρισμού είναι ένα κόμμα (,). Τώρα πρέπει να εξαγάγουμε μόνο το όνομα.

Βήμα 1: Δημιουργήστε μια μακροεντολή και ορίστε μια μεταβλητή.

Κώδικας:

Sub MID_VBA_Example2 () Dim FirstName ως συμβολοσειρά End Sub

Βήμα 2: Τώρα ορίστε μια τιμή σε αυτήν τη μεταβλητή μέσω της συνάρτησης MID.

Κώδικας:

Υπο MID_VBA_Example2 () Dim FirstName ως συμβολοσειρά FirstName = Mid (End Sub

Βήμα 3: Η συμβολοσειρά μας είναι "Ramesh.Tendulkar", γι 'αυτό εισαγάγετε αυτήν τη λέξη.

Κώδικας:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", End Sub

Step 4: Since we are extracting the first name starting position is 1.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1, End Sub

Step 5: Length of the character you can directly enter as 6, but this is not the best way. In order to determine the length, let’s apply one more formula called Instr.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr( End Sub

Step 6: For this starting position is 1.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1, End Sub

Step 7: String 1 is our name, i.e., “Ramesh, Tendulkar.”

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar", End Sub

Step 8: String 2 what is the separator of first name & last name, i.e., comma (,).

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar",1,InStr(1,"Ramesh,Tendulkar",",") End Sub

Note: Instr function will return how many characters are there in the word “Ramesh, Tendulkar” from the string 1 position to the string 2 positions, i.e., until comma (,). So Instr will return 7 as a result, including comma (,).

Step 9: Since Instr function returns no., of characters including comma (,) we need to minus 1 character here. So enter -1 after the close of Instr function.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) End Sub

Step 10: Now show the value of the variable in the message box.

Code:

Sub MID_VBA_Example2() Dim FirstName As String FirstName = Mid("Ramesh,Tendulkar", 1, InStr(1, "Ramesh,Tendulkar", ",") - 1) MsgBox FirstName End Sub

Step 11: Run this code using the F5 key, or you can run this code manually. We would get the first name in the message box.

Output:

Example #3

Now I will give you one assignment to solve. I have a list of First Name & Last Name.

From this list, I want you to extract the first name only. All the best!!!!.

Ok, If you have tried and not able to get the result, then the below code would help you in this.

Code:

Sub MID_VBA_Example3 () Dim i As Long For i = 2 to 15 Cells (i, 2). Value = Mid (Cells (i, 1). Value, 1, InStr (1, Cells (i, 1). Value, " , ") - 1) Επόμενο i End Sub

Αντιγράψτε & επικολλήστε τον παραπάνω κώδικα στην ενότητα σας. Αφού αντιγράψετε τον κώδικα, εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5, διαφορετικά μπορείτε να εκτελέσετε χειροκίνητα.

Θα πρέπει να δώσει ένα αποτέλεσμα όπως το παρακάτω.

Πράγματα που πρέπει να θυμάστε

  • Το όρισμα μήκους στη συνάρτηση MID είναι προαιρετικό. Εάν το αγνοήσετε αυτό, θα πάρει το 1 ως την προεπιλεγμένη τιμή.
  • Για να προσδιορίσετε το μήκος ή την αρχική θέση χρησιμοποιήστε τη συνάρτηση Instr μαζί με τη συνάρτηση MID.

ενδιαφέροντα άρθρα...