VBA Ganti String - Bagaimana cara mengganti teks dalam string menggunakan VBA?

Excel VBA Ganti String

Replace adalah fungsi Worksheet serta fungsi VBA. Fungsi ini membantu kita mengganti kata tertentu dari string dengan string lain. Ia bekerja mirip dengan fungsi Pengganti di VBA.

Saat berurusan dengan string pengujian atau nilai data teks, adalah hal yang jelas untuk mengganti atau mengganti sesuatu dengan sesuatu yang lain, menggabungkan dua data sel menjadi satu atau memisahkan satu data sel menjadi beberapa hal. Ini semua adalah tugas umum yang kita lakukan hari demi hari di tempat kerja kita.

Jadi, bagaimana kita mengganti satu kata dalam string dengan kata lain? Misalnya, jika stringnya adalah "India adalah negara berkembang dan India di Negara Asia" dari string ini, kita perlu mengganti kata "India" dan diubah menjadi "Bharath".

Ini dimungkinkan dengan menggunakan fungsi Replace. Pada artikel ini, kami akan menunjukkan kepada Anda bagaimana cara mengganti string dalam pengkodean VBA.

Fungsi Ganti

  • Ekspresi: Ini tidak lain adalah nilai string asli tempat kami mencoba mengganti sesuatu dengan sesuatu. Misalnya, di bawah ini adalah string ekspresi - “India adalah negara berkembang dan India di Negara Asia”.
  • Temukan String: Apa string yang coba kita ganti. Misalnya, dalam string Ekspresi , kami mencoba mengganti kata "India".
  • Replace String: Apa string pengganti yang kita gunakan untuk mengganti Find String ? Jadi, dalam hal ini, kami mencoba mengganti kata "India" dengan "Bharath".
  • (Mulai): Ini adalah parameter opsional. Pada string (Expression) di atas, kita memiliki dua kata, “India,” jadi dari posisi Find String mana, kita perlu memulai proses penggantian. Misalnya, jika kita mengatakan 2, itu akan mulai menggantikan kata “India” dari posisi kedua dan seterusnya.
  • (Hitung): Jika Find String muncul beberapa kali dalam Expression, lalu berapa banyak kata yang perlu kita ganti.

Misalnya, jika kata “India” muncul 5 kali dan jika Anda memasukkan hitungan 3, maka kata itu hanya akan menggantikan 3 kata “India” pertama.

Bagaimana cara mengganti teks dalam string menggunakan VBA?

Contoh 1

Sekarang kita akan mencoba mengganti kata "India" dengan "Bharath" dari nilai string di bawah ini.

“India adalah negara berkembang dan India di Negara Asia.”

Pertama, mulai prosedur makro excel sekarang.

Kode:

Sub Replace_Example () End Sub

Tentukan variabel VBA sebagai String.

Kode:

Sub Replace_Example () Redupkan NewString Sebagai String End Sub

Dalam variabel ini, kami akan menampilkan nilai string baru setelah mengganti kata "India" dengan "Bharath". Untuk variabel ini, buka fungsi Replace.

Argumen pertama dari fungsi ini adalah "Ekspresi", yaitu, dari string mana kami mencoba mengganti kata, jadi salin dan tempel string "India adalah negara berkembang dan India di Negara Asia".

Argumen berikutnya adalah "Temukan String", yaitu kata mana yang perlu kita ganti, yaitu "India".

Argumen berikutnya adalah "Ganti String," yaitu, dengan string mana kita perlu mengganti kata "India", yaitu "Bharath".

Oke, untuk sekarang, abaikan argumen yang tersisa. Sekarang tunjukkan hasilnya di kotak pesan.

Kode:

Sub Replace_Example () Redupkan NewString As String NewString = Ganti ("India adalah negara berkembang dan India adalah Negara Asia", "India", "Bharath") MsgBox NewString End Sub

Mari jalankan kode menggunakan tombol F5 atau secara manual dan lihat hasil string baru.

Oke, lihat hasil di atas. Di mana pun kami memiliki kata "India", kata itu telah diganti dengan kata "Bharath".

Contoh # 2

Sekarang kita akan melihat bagaimana menggunakan kode yang sama dengan variabel. Lihat kode di bawah ini.

Kode:

Sub Replace_Example1 () Dim NewString As String Dim MyString As String Dim FindString As String Dim ReplaceString As String MyString = "India adalah negara berkembang dan India adalah Negara Asia" FindString = "India" ReplaceString = "Bharath" NewString = Replace (MyString , FindString, ReplaceString) MsgBox NewString End Sub

Dalam kode di atas, saya telah mendeklarasikan tiga variabel tambahan.

Redup MyString Sebagai String Dim FindString Sebagai String Dim ReplaceString Sebagai String

Untuk variabel ini, saya telah memberikan nilai. Alih-alih menyediakan Expression String, Find String, dan Replace String, kami hanya akan menyediakan variabel ke fungsi Replace.

Kode ini juga memberikan hasil yang sama, tetapi satu-satunya perbedaan adalah kita menggunakan variabel alih-alih memberikan nilai langsung ke fungsi.

Contoh # 3

Assume you want to replace the word “India” only from the second position, then we need to use the Replace function parameter (“Start”). Look at the below code for your information.

Code:

Sub Replace_Example2() Dim NewString As String Dim MyString As String Dim FindString As String Dim ReplaceString As String MyString = "India is a developing country and India is the Asian Country" FindString = "India" ReplaceString = "Bharath" NewString = Replace(MyString, FindString, ReplaceString, Start:=34) MsgBox NewString End Sub

Only one extra thing we have added from the previous code is the “Start” parameter as 34. Now run the code and see the result.

Now we can see only string after the 34th character of the string with “India” replacing with “Bharath.”

Example #4

Now for an example, if we want to replace only the first occurrence of the word “India” with “Bharath,” then we need to use the (“Count”) parameter of the Replace function.

Below is the code for you.

Code:

Sub Replace_Example3() Dim NewString As String Dim MyString As String Dim FindString As String Dim ReplaceString As String MyString = "India is a developing country and India is the Asian Country" FindString = "India" ReplaceString = "Bharath" NewString = Replace(MyString, FindString, ReplaceString, Count:=1) MsgBox NewString End Sub

Run the code manually or through the F5 key and see the result.

As you can see above, it has replaced only the first occurrence of the word “India” to “Bharath,” and the second instance remains the same.

Things to Remember Here

  • Replace adalah keluarga fungsi string di VBA.
  • Di VBA, fungsi ganti menggantikan semua kata yang diberikan dengan string yang diganti jika parameter hitungan tidak ditentukan.
  • Parameter awal akan menghapus jumlah karakter yang diberikan dan menunjukkan hasil yang tersisa.

Artikel yang menarik...