Isi kandungan
Salah satu fungsi yang paling penting dan digunakan secara meluas yang kami gunakan semasa bekerja dengan VBA dalam Excel ialah Fungsi pertengahan VBA . Ia mengambil rentetan sebagai input dan mengembalikan bilangan aksara tertentu dari tengah rentetan sebagai output. Hari ini dalam artikel ini, saya akan menunjukkan kepada anda cara anda boleh menggunakan Fungsi pertengahan VBA dengan contoh dan ilustrasi yang betul.
Ini akan mengembalikan 9 aksara daripada rentetan “Angela Catherine Nevills” , bermula daripada aksara ke-8 . Ianya “Catherine” .
Muat turun Buku Kerja Amalan
Muat turun buku latihan ini untuk melaksanakan tugas semasa anda sedang membaca artikel ini.
VBA Mid Function.xlsm
Pengenalan kepada Mid Function VBA dalam Excel
⧭ Objektif Fungsi:
Fungsi Pertengahan mengambil nilai sebagai input dan mengembalikan bilangan aksara yang diberikan bermula dari kedudukan nilai yang diberikan sebagai output.
Nilai boleh menjadi rentetan, nombor atau bahkan boolean .
Sebagai contoh, jika anda memasukkan Mid(“Angela Catherine Nevills”,8,9), ia akan mengembalikan “Catherine” .
Jika anda memasukkan Mid(12345,2,3) , anda akan mendapat 234.
Dan masukkan Mid(False,2,3) , anda akan mendapat als .
⧭ Sintaks:
Sintaks Pertengahan fungsi daripada VBA ialah:
=Mid(String,Start as Long,[Length])
⧭ Hujah:
Argumen | Diperlukan / Pilihan | Penjelasan |
---|---|---|
Rentetan | Diperlukan | Rentetan daripada yang mana beberapa aksara akan dikembalikan. |
Mula | Diperlukan | Aksara permulaan rentetan yang akan dikembalikan. |
Panjang | Pilihan | Bilangan aksara yang akan dikembalikan. Lalai ialah 1. |
⧭ Nilai Pulangan:
Mengembalikan bilangan aksara tertentu dari tengah rentetan, bermula dari kedudukan yang diberikan.
3 Contoh Fungsi Pertengahan VBA dalam Excel
Kali ini, mari kita terokai fungsi Pertengahan daripada VBA secara terperinci dengan beberapa contoh.
1. Mengasingkan Bilangan Aksara Diberi daripada Tengah Beberapa ID Menggunakan Fungsi Pertengahan VBA dalam Excel
Di sini kami mempunyai set data dengan ID dan Nama beberapa pekerja syarikat bernama Saturn Group.
Di sini, 4 hingga 7 karakter setiap ID menandakan tahun menyertai pekerja masing-masing.
Kini kami akan membangunkan Fungsi Ditentukan Pengguna menggunakan Fungsi pertengahan VBA yang akan mengekstrak tahun menyertai setiap pekerja daripada ID Pekerja .
Anda boleh menggunakan kod VBA berikut:
⧭ Kod VBA:
2571
Nota: Kod inimencipta fungsi yang dipanggil Joining_Year .
⧭ Output:
Jalankan ini berfungsi dalam mana-mana sel lembaran kerja anda dengan ID sebagai hujah.
Di sini, dalam sel D4 , kami telah memasukkan formula:
=Joining_Year(B4)
Ia telah mengembalikan tahun menyertai pekerja pertama, 2021 .
Kini anda boleh menyeret Isi Pemegang untuk mendapatkan tahun penyertaan pekerja yang lain.
⧭ Penjelasan Kod:
- Pertama, kami mengisytiharkan fungsi yang dipanggil Tahun_Penyertaan yang mengambil ID sebagai input oleh baris Tahun_Penyertaan(ID) .
- Kemudian kami mengekstrak 4 aksara daripada ID bermula dari kedudukan 4 , dengan baris Menyertai_Tahun = Pertengahan(ID, 4, 4) .
- Barisan Fungsi Tamat mengisytiharkan tamat fungsi.
2. Mengekstrak Sambungan daripada Beberapa Alamat E-mel Menggunakan Fungsi Pertengahan VBA dalam Excel
Kini kami telah menambahkan lajur baharu pada set data, yang mengandungi alamat E-mel pekerja.
Kali ini kami akan mengeluarkan sambungan Alamat E-mel menggunakan fungsi Pertengahan VBA .
Kod VBA ialah:
⧭ Kod VBA:
2585
Nota: Kod ini mencipta fungsi yang dipanggil Sambungan .
⧭ Output:
Jalankan ini berfungsi dalam mana-mana sel lembaran kerja anda dengan E-melAlamat sebagai hujah.
Di sini, dalam sel E4 , kami telah memasukkan formula:
=Extension(D4)
Ia telah mengembalikan sambungan alamat e-mel pertama.
Kemudian anda boleh menyeret Pemegang Isi untuk mengeluarkan sambungan semua e-mel alamat.
⧭ Penjelasan Kod
- Pertama, kami mengisytiharkan fungsi yang dipanggil Sambungan yang mengambil sebarang nama sebagai input oleh baris Sambungan Fungsi(Alamat_E-mel) .
- Kemudian kami memulakan lelaran dengan untuk gelung yang menyemak setiap aksara Alamat E-mel untuk melihat sama ada ia @ atau bukan dengan baris Jika Pertengahan(Alamat_E-mel, i, 1) = “@” Kemudian .
- Jika ia menemui @ , maka ia mengeluarkan sambungan yang diperlukan daripada Alamat E-mel dengan baris Sambungan = Mid(Alamat_E-mel, i + 1, Len(Alamat_E-mel) – (i + 4)) .
- Akhir sekali, kami mengisytiharkan penghujung fungsi.
3. Menyemak Beberapa Teks untuk Melihat sama ada Ia Mengandungi Teks Tertentu atau Tidak
Salah satu penggunaan terpenting Fungsi pertengahan ialah untuk melihat sama ada teks mengandungi teks tertentu atau tidak .
Mari kita bangunkan fungsi untuk menyemak sama ada Alamat E-mel mengandungi istilah “gmail” atau tidak.
Anda boleh menggunakan yang berikut Kod VBA :
⧭ Kod VBA:
5402
Nota: Kod ini mencipta fungsi dipanggil Menyemak .
⧭ Output:
Jalankan fungsi ini dalam mana-mana sel lembaran kerja anda dengan dua teks sebagai hujah.
Di sini, dalam sel E4 , kami telah memasukkan formula:
=Checking(D4,"gmail")
Ia telah mengembalikan ya kerana alamat e-mel pertama ialah alamat Gmail .
Kemudian anda boleh menyeret Pengendalian Isi untuk melakukan perkara yang sama untuk semua ID E-mel.
⧭ Penjelasan Kod:
- Mula-mula, kami mengisytiharkan fungsi yang dipanggil Menyemak yang mengambil dua teks sebagai argumen oleh baris Fungsi Semakan(Text1,Text2) .
- Kemudian kita mulakan gelung for yang menyemak setiap segmen Text1 bermula dari kedudukan 1 , untuk melihat sama ada ia sama dengan Text2 atau tidak , dengan baris Jika Mid(Teks1, i, Len(Teks2)) = Teks2 Kemudian .
- Jika ia menemui Teks2 , maka ia mengembalikan “Ya” , jika tidak ia mengembalikan “Tidak” .
- Akhir sekali, kami menyimpulkan fungsi dengan baris Tamat Fungsi .
Perkara yang Perlu Diingati
- Argumen 1 Fungsi pertengahan tidak semestinya rentetan sentiasa. Ia boleh menjadi rentetan , nombor atau bahkan nilai boolean .
- Tetapi ke-2 dan Argumen ke-3 mestilah nombor . Ia boleh menjadi integer atau pecahan tetapi mestilah nombor . Jika ia adalah pecahan , maka Pertengahanfunction akan menukarnya kepada integer terdekat .