Salah satu fungsi yang paling penting dan banyak digunakan yang kami gunakan saat bekerja dengan VBA di Excel adalah Fungsi pertengahan dari VBA . Dibutuhkan sebuah string sebagai input dan mengembalikan sejumlah karakter tertentu dari tengah-tengah string sebagai output. Hari ini di artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda dapat menggunakan Fungsi pertengahan dari VBA dengan contoh dan ilustrasi yang tepat.

Ini akan mengembalikan 9 karakter dari string "Angela Catherine Nevills" , mulai dari 8 karakter. "Catherine" .

Unduh Buku Kerja Praktik

Unduh buku latihan ini untuk melatih tugas saat Anda membaca artikel ini.

Pengantar Fungsi Mid VBA di Excel

⧭ Fungsi Tujuan:

The Menengah fungsi mengambil nilai sebagai input dan mengembalikan sejumlah karakter yang diberikan mulai dari posisi tertentu dari nilai sebagai output.

Nilai bisa berupa string, angka atau bahkan boolean .

Contohnya, jika Anda menyisipkan Mid("Angela Catherine Nevills",8,9), itu akan kembali "Catherine" .

Jika Anda menyisipkan Mid(12345,2,3) , Anda akan mendapatkan 234.

Dan masukkan Mid(Salah,2,3) , Anda akan mendapatkan als .

⧭ Sintaksis:

Sintaksis dari Fungsi pertengahan dari VBA adalah:

⧭ Argumen:

⧭ Nilai Pengembalian:

Mengembalikan sejumlah karakter tertentu dari tengah-tengah string, mulai dari posisi tertentu.

3 Contoh Fungsi Mid VBA di Excel

Kali ini, mari kita jelajahi Fungsi pertengahan dari VBA secara rinci dengan beberapa contoh.

1. Memisahkan Sejumlah Karakter yang Diberikan dari Tengah Beberapa ID Menggunakan Fungsi Mid VBA di Excel

Di sini, kita punya kumpulan data dengan ID dan Nama dari beberapa karyawan perusahaan bernama Saturn Group.

Di sini, yang 4 untuk 7 karakter dari setiap ID menunjukkan tahun bergabungnya karyawan yang bersangkutan.

Sekarang kita akan mengembangkan Fungsi yang Ditentukan Pengguna menggunakan Fungsi pertengahan dari VBA yang akan mengekstrak tahun bergabungnya setiap karyawan dari ID Karyawan .

Anda bisa menggunakan yang berikut ini VBA kode:

⧭ Kode VBA:

 Fungsi Tahun_Gabung(ID) Tahun_Gabung = Mid(ID, 4, 4) Fungsi Akhir 

Catatan: Kode ini menciptakan fungsi yang disebut Tahun_Bergabung .

⧭ Keluaran:

Jalankan fungsi ini di sel mana pun di lembar kerja Anda dengan ID sebagai argumen.

Di sini, di dalam sel D4 , kita sudah memasukkan rumusnya:

Ini telah mengembalikan tahun bergabungnya karyawan pertama, 2021 .

Sekarang Anda bisa menyeret Isi Gagang untuk mendapatkan tahun bergabung dari karyawan lainnya.

⧭ Penjelasan Kode:

• Pertama, kita mendeklarasikan fungsi yang disebut Tahun_Bergabung yang mengambil ID sebagai input oleh baris Fungsi Bergabung_Tahun(ID) .
• Kemudian kita mengekstrak 4 karakter dari ID mulai dari posisi 4 , dengan garis Tahun_Gabung = Mid(ID, 4, 4) .
• Garis Akhiri Fungsi mendeklarasikan akhir dari fungsi.

2. Mengekstrak Ekstensi dari Beberapa Alamat Email Menggunakan Fungsi Mid VBA di Excel

Sekarang kami telah menambahkan kolom baru ke kumpulan data, yang berisi alamat Email karyawan.

Kali ini kita akan mengekstrak ekstensi dari Alamat Email dengan menggunakan Menengah fungsi dari VBA .

The Kode VBA akan menjadi:

⧭ Kode VBA:

 Fungsi Ekstensi(Email_Alamat) For i = 1 To Len(Email_Alamat) If Mid(Email_Alamat, i, 1) = "@" Then Ekstensi = Mid(Email_Alamat, i + 1, Len(Email_Alamat) - (i + 4)) End If Next i End Function 

Catatan: Kode ini menciptakan fungsi yang disebut Perpanjangan .

⧭ Keluaran:

Jalankan fungsi ini di sel mana pun dari lembar kerja Anda dengan Alamat Email sebagai argumen.

Di sini, di dalam sel E4 , kita sudah memasukkan rumusnya:

Ini telah mengembalikan ekstensi alamat email pertama.

Kemudian Anda bisa menyeret Isi Gagang untuk mengekstrak ekstensi dari semua alamat email.

⧭ Penjelasan Kode Etik

• Pertama, kita mendeklarasikan fungsi yang disebut Perpanjangan yang mengambil nama apa pun sebagai input oleh baris Fungsi Ekstensi(Alamat_Email) .
• Kemudian kita memulai sebuah iterasi dengan untuk-loop yang memeriksa setiap karakter dari Alamat Email untuk melihat apakah itu @ atau tidak dengan garis If Mid(Email_Alamat, i, 1) = "@" Then .
• Jika menemukan @ , kemudian mengekstrak ekstensi yang diperlukan dari Alamat Email oleh garis Ekstensi = Mid(Alamat_Email, i + 1, Len(Alamat_Email) - (i + 4)) .
• Akhirnya, kita mendeklarasikan akhir fungsi.

3. Memeriksa Beberapa Teks untuk Melihat Apakah Mengandung Teks Tertentu atau Tidak

Salah satu penggunaan yang paling penting dari Fungsi pertengahan adalah untuk melihat apakah suatu teks mengandung teks tertentu atau tidak.

Mari kita kembangkan fungsi untuk memeriksa apakah Alamat Email mengandung istilah "gmail" atau tidak.

Anda bisa menggunakan yang berikut ini VBA kode:

⧭ Kode VBA:

 Fungsi Memeriksa(Teks1, Teks2) Untuk i = 1 Sampai Len(Teks1) Jika Mid(Teks1, i, Len(Teks2)) = Teks2 Maka Memeriksa = "Ya" Keluar Untuk Lain Memeriksa = "Tidak" End If Next i End Function 

Catatan: Kode ini menciptakan fungsi yang disebut Memeriksa .

⧭ Keluaran:

Jalankan fungsi ini di sel mana pun di lembar kerja Anda dengan dua teks sebagai argumen.

Di sini, di dalam sel E4 , kita sudah memasukkan rumusnya:

Telah kembali ya karena alamat email pertama adalah Gmail alamat.

Kemudian Anda bisa menyeret Isi Gagang untuk melakukan hal yang sama untuk semua ID Email.

⧭ Penjelasan Kode:

• Pertama, kita mendeklarasikan fungsi yang disebut Memeriksa yang mengambil dua teks sebagai argumen dengan baris Fungsi Memeriksa (Teks1, Teks2) .
• Kemudian kita memulai perulangan for yang memeriksa setiap segmen dari Teks1 mulai dari posisi 1 , untuk melihat apakah sama dengan Teks2 atau tidak, dengan garis Jika Mid(Teks1, i, Len(Teks2)) = Teks2 Maka .
• Jika menemukan Teks2 , kemudian mengembalikan "Ya" , jika tidak, ia mengembalikan "Tidak" .
• Akhirnya, kita menyimpulkan fungsi oleh garis Akhiri Fungsi .

Hal-hal yang Perlu Diingat

• The 1 argumen dari Fungsi pertengahan tidak harus selalu berupa string, tetapi bisa berupa string , a nomor atau bahkan boolean nilai.
• Tetapi 2 dan 3 argumen harus angka Mereka bisa bilangan bulat atau pecahan tetapi harus angka Jika mereka pecahan , maka Fungsi pertengahan akan mengonversinya ke bilangan bulat .