Fungsi MID VBA - Bagaimana menggunakan Fungsi MID Excel VBA?

Isi kandungan

Fungsi Excel VBA MID

Fungsi VBA MID mengekstrak nilai dari tengah ayat atau perkataan yang disediakan. Fungsi MID dikategorikan di bawah fungsi String dan Text dan ia adalah fungsi lembaran kerja yang bermaksud untuk menggunakan fungsi ini di VBA kita perlu menggunakan kaedah application.worksheet.

Terdapat situasi di mana kita mahu mengekstrak nama depan, nama belakang, atau nama tengah. Dalam situasi tersebut, formula kategori TEKS sangat berguna untuk memenuhi keperluan kami. Penggunaan fungsi ini sama dengan rujukan lembaran kerja, dan sintaksnya juga sama.

Sintaks

Seperti fungsi MID excel kami, di VBA juga, ia mempunyai set nilai sintaks yang serupa. Berikut adalah sintaksnya.

  • String to Search: Ini hanyalah kalimat rentetan, iaitu dari rentetan atau perkataan yang anda ingin mengekstrak nilainya.
  • Posisi Permulaan: Dari kedudukan ayat mana yang ingin anda ekstrak. Ini mestilah nilai berangka.
  • Bilangan Karakter yang Diekstrak: Dari kedudukan awal, berapa banyak watak yang ingin anda ekstrak? Ini juga harus berupa nilai berangka.

Bagaimana menggunakan Fungsi MID VBA?

Contoh # 1

Andaikan anda mempunyai perkataan "Hello Good Morning" dan anda ingin mengeluarkan "Good" dari ayat ini. Ikuti langkah di bawah untuk mengekstrak nilai.

Langkah 1: Buat nama makro terlebih dahulu.

Kod:

Sub MID_VBA_Contoh1 () Sub Akhir

Langkah 2: Nyatakan pemboleh ubah sebagai "STRING."

Kod:

Sub MID_VBA_Contoh1 () Dim Middle Value sebagai Sub String End Sub

Langkah 3: Sekarang tetapkan nilai ke pemboleh ubah ini melalui fungsi MID.

Kod:

Sub MID_VBA_Contoh1 () Dim MiddleValue Sebagai String MiddleValue = Mid (End Sub

Langkah 4: Argumen pertama adalah String, iaitu dari nilai yang ingin kita ekstrak. Jadi nilai kami adalah "Hello Good Morning."

Kod:

Sub MID_VBA_Contoh1 () Dim MiddleValue Sebagai String MiddleValue = Mid ("Hello Good Morning", Sub End

Langkah 5: Seterusnya adalah kedudukan permulaan watak yang ingin anda ekstrak. Dalam kes ini, Selamat pagi bermula dari watak ke- 7 .

Catatan: Ruang juga watak.

Kod:

Sub MID_VBA_Contoh1 () Dim Middle Middle Value Sebagai String MiddleValue = Mid ("Hello Good Morning", 7 End Sub

Langkah 6: Panjangnya tidak lain adalah berapa banyak watak yang ingin anda ekstrak. Kita perlu mengekstrak 4 watak di sini kerana panjang perkataan "Baik" adalah 4 watak.

Kod:

Sub MID_VBA_Contoh1 () Dim MiddleValue Sebagai String MiddleValue = Mid ("Hello Good Morning", 7, 4) End Sub

Langkah 7: Kami telah menyelesaikan formula. Mari tunjukkan hasil pemboleh ubah di kotak mesej.

Kod:

Sub MID_VBA_Contoh1 () Dim MiddleValue Sebagai String MiddleValue = Mid ("Hello Good Morning", 7, 4) MsgBox MiddleValue End Sub

Langkah 8: Sekarang jalankan kod ini secara manual atau tekan kekunci F5, kotak mesej harus menunjukkan perkataan "Bagus."

Pengeluaran:

Contoh # 2

Anggaplah anda mempunyai nama depan dan nama belakang bersama, dan perkataannya adalah "Ramesh, Tendulkar." Antara Nama Depan & Nama Akhir, watak pemisah adalah koma (,). Sekarang kita perlu mengeluarkan nama pertama sahaja.

Langkah 1: Buat makro dan tentukan pemboleh ubah.

Kod:

Sub MID_VBA_Contoh2 () Dim FirstName Sebagai String End Sub

Langkah 2: Sekarang tetapkan nilai ke pemboleh ubah ini melalui fungsi MID.

Kod:

Sub MID_VBA_Contoh2 () Dim FirstName Sebagai String FirstName = Pertengahan (Sub Akhir

Langkah 3: Rentetan kami adalah "Ramesh.Tendulkar," jadi masukkan perkataan ini.

Kod:

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_Contoh3 () Dim i Selagi i = 2 Hingga 15 Sel (i, 2). Nilai = Pertengahan (Sel (i, 1). Nilai, 1, InStr (1, Sel (i, 1). Nilai, " , ") - 1) Selanjutnya i Akhir Sub

Salin & Tampal kod di atas dalam modul anda. Setelah menyalin kod, jalankan kod ini menggunakan kekunci F5, atau anda boleh berjalan secara manual.

Ia harus memberikan hasil seperti di bawah.

Perkara yang Perlu Diingat

  • Argumen panjang dalam fungsi MID adalah pilihan. Sekiranya anda mengabaikan ini, ia akan mengambil 1 sebagai nilai lalai.
  • Untuk menentukan panjang atau kedudukan permulaan gunakan fungsi Instr bersama dengan fungsi MID.

Artikel menarik...