VBA INSTRREV

Excel VBA INSTREV

VBA INSTRREV , sebagai singkatan dari ‘ In String Reverse ,’ mengembalikan posisi kemunculan pertama string pencarian (substring) di string lain, mulai dari ujung string (dari kanan ke kiri) dari mana kita mencari string yang dapat dicari.

Fungsi INSTRREV mulai mencari string yang dapat dicari dari akhir, yang perlu kita ketahui tetapi menghitung posisi dari awal. Kemudian, terakhir, satu lagi Fungsi INSTR VBA (singkatan dari ‘In String’ ) mencari string di string lain dan mengembalikan posisinya. Tapi fungsi ini memulai pencarian dari awal string dari mana kita mencari string yang bisa dicari.

INSTRREV dan INSTR adalah fungsi String/Teks VBA bawaanFungsi VBA Fungsi VBA melayani tujuan utama untuk melakukan perhitungan tertentu dan mengembalikan nilai. Oleh karena itu, di VBA, kami menggunakan sintaks untuk menentukan parameter dan tipe data saat mendefinisikan fungsi. Fungsi seperti itu disebut fungsi yang ditentukan pengguna. Baca lebih lanjut tentang MS Excel. Oleh karena itu, kita dapat menggunakannya saat menulis makro apapun di Microsoft Visual Basic Editor.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: VBA INSTRREV (wallstreetmojo.com)

Sintaksis

Seperti yang dapat kita lihat pada gambar di atas, ada dua argumen wajib dan dua opsional.

• StringCheck As String: Ini adalah argumen yang diperlukan. Kita perlu memberikan ekspresi string yang sedang dicari.
• StringMatch Sebagai String: Argumen ini juga diperlukan. Kita perlu menentukan ekspresi string yang sedang dicari.
• Mulai Selama = -1: Ini adalah argumen opsional. Kami menentukan ekspresi numerik. Secara default, dibutuhkan -1, artinya pencarian dimulai pada posisi karakter terakhir. Jika kita menentukan nilai positif seperti 80, itu mulai mencari dari akhir string dalam 80 karakter tersebut.
• Bandingkan Sebagai VbCompareMethod = vbBinaryCompare As Long: Argumen ini opsional.

Kita dapat menentukan nilai berikut untuk argumen ini.

Nilai Pengembalian

1. INSTRREV mengembalikan 0 jika pemeriksaan string memiliki panjang nol atau string yang cocok tidak ditemukan atau argumen ‘start’ > length of string match .
2. Fungsi ini mengembalikan ‘Null’ jika string check atau string match adalah ‘Null.’
3. Jika string yang cocok memiliki panjang nol, fungsi akan kembali ke start .
4. Jika kecocokan string ditemukan dalam pemeriksaan string, fungsi mengembalikan posisi di mana kecocokan ditemukan.

Bagaimana Cara Menggunakan Fungsi VBA INSTRREV?

Misalkan kita memiliki data untuk nama film dan sutradaranya. Kami ingin membagi nama direktur.

Kami memiliki data dalam 1201 baris. Jadi jika kita melakukan tugas ini secara manual, itu akan memakan banyak waktu.

Untuk melakukan hal yang sama, kita akan menggunakan kode VBAGunakan Kode VBAKode VBA mengacu pada serangkaian instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Aplikasi Visual Basic pada Editor Visual Basic (VBE) untuk melakukan tugas tertentu.Baca lebih lanjut. Langkah-langkahnya adalah:

• Kita perlu mengklik Perintah ‘Visual Basic’ yang tersedia di Grup ‘Kode’ di Tab ‘Pengembang’ , atau kita dapat menekan Alt+F11 untuk membuka Editor Visual Basic.

• Kami akan memasukkan modul menggunakan menu ‘Sisipkan’ .

• Kami akan membuat subrutin bernama ‘SplittingNames.’

• Kita membutuhkan enam variabel—satu untuk menyimpan nilai sel, yang akan kita manipulasi. Kedua untuk menyimpan posisi spasi pertama dalam string, ketiga untuk menyimpan spasi terakhir dalam string, keempat untuk menyimpan nomor baris terakhir, dan kelima dan keenam untuk baris dan kolom, yang akan kita gunakan untuk mencetak nilai-nilai di sebelahnya sel.

• Kita perlu menggunakan kode berikut untuk mengetahui baris yang terakhir digunakan di sheet.

Kode ini pertama-tama akan memilih sel B1 dan kemudian memilih sel yang terakhir digunakan di kolom yang sama, lalu kami menetapkan nomor baris sel ke variabel ‘LastRow’.

• Sekarang untuk memanipulasi semua sel di kolom B, kita akan menjalankan loop ‘for’ .

• Kami akan menyimpan nilai sel kolom B dari baris 2 hingga baris 1201 satu per satu di variabel ‘s’ untuk memanipulasinya.

• Kita perlu mengatur nilai variabel ‘Column’ menjadi 3 karena kita perlu menulis nama splitSplit NamesSplit Name di Excel mengacu pada memisahkan nama menjadi dua kolom berbeda. Itu membagi seluruh nama menjadi Nama Depan, Nama Belakang, dan Nama Tengah. Kita dapat memisahkan nama menggunakan beberapa cara seperti “Teknik Teks ke Kolom” dan “Teknik Rumus. Baca lebih lanjut di C (Kolom ke-3) dan kolom seterusnya.

• Jika string hanya satu kata, tidak ada spasi dalam string. Kemudian, kami ingin string itu sendiri sebagai output. Untuk ini, kami akan menentukan kondisi menggunakan ‘pernyataan If and Else’ dengan tanda asterisk (menunjukkan satu atau lebih karakter) sebagai berikut:

• Jika ada ruang dalam string, kami ingin memisahkan string tersebut. Untuk melakukan hal yang sama, kami telah menggunakan fungsi INSTR dan INSTRREV untuk mengetahui posisi spasi pertama dan terakhir. Ini akan membantu kita menemukan kata pertama dan terakhir dalam string.

Fungsi INSTR mengambil argumen seperti di bawah ini:

Detail Argumen

• Mulai: Dari posisi mana untuk memulai.
• String1: Kita perlu memberikan ekspresi string yang sedang dicari.
• String2: Kita perlu menentukan ekspresi string yang sedang dicari.

Dibandingkan sebagai VbCompareMethod: Menentukan metode Membandingkan. Secara default, ini adalah perbandingan biner.

• Kita perlu menggunakan fungsi VBA LEFT untuk mengekstraksi karakter kiri dari string. Kami telah menggunakan ‘ Last Space-1 ‘ untuk mendapatkan karakter kiri sebelum spasi terakhir.

Kita harus menggunakan fungsi RIGHT dan LEN untuk mengekstrak karakter yang tepat dari string setelah spasi pertama.

Kita harus menulis Makro. Sekarang, kita perlu menjalankan Macro menggunakan tombol F5 .

Kode:

Sub SplittingNames() Dim s As String Dim FirstSpace Selama Long Dim LastSPace Selama Long Dim LastRow Selama Long Redup Baris Selama Panjang Redup Kolom Selama Sheet1.Range(“B1”).Select Selection.End(xlDown).Pilih LastRow = ActiveCell. Baris Untuk Baris = 2 Ke LastRow s = Sheet1.Cells(Row, 2).Nilai Kolom = 3 If s Like “* *” Maka FirstSpace = InStr(1, s, ” “) LastSPace = InStrRev(s, ” “) Sheet1.Cells(Baris, Kolom).Nilai = Kiri(s, LastSPace – 1) Sheet1.Cells(Baris, Kolom + 1).Nilai = Kanan(s, Len(s) – FirstSpace) Else Sheet1.Cells(Baris, Kolom).Nilai = s Akhir Jika Berikutnya Akhir Sub

Kami memiliki hasil sekarang.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk VBA INSTRREV. Di sini, kita membahas penggunaan fungsi VBA INSTRREV, contoh, dan template Excel yang dapat diunduh. Di bawah ini adalah beberapa artikel Excel berguna yang terkait dengan VBA: –

• ASC di VBA
• Sisipkan Kotak Teks menggunakan VBA