String Ganti VBA - Bagaimana Mengganti Teks dalam Rentetan menggunakan VBA?

Excel VBA Ganti Rentetan

Ganti ialah fungsi Lembaran Kerja dan juga fungsi VBA. Fungsi ini membantu kita untuk mengganti perkataan tertentu dari rentetan dengan rentetan yang lain. Ia berfungsi serupa dengan fungsi Pengganti di VBA.

Semasa berurusan dengan rentetan ujian atau nilai data teks, adalah sesuatu yang jelas untuk mengganti atau mengganti sesuatu dengan yang lain, menggabungkan dua data sel menjadi satu atau membelah satu data sel menjadi beberapa perkara. Ini semua tugas biasa yang kita lakukan hari demi hari di tempat kerja kita.

Jadi, bagaimana kita mengganti satu perkataan dalam rentetan dengan kata lain? Sebagai contoh, jika rentetan adalah "India adalah negara berkembang dan India di Negara Asia" dari tali ini, kita perlu mengganti kata "India" dan diubah menjadi "Bharath."

Ini mungkin dilakukan dengan menggunakan fungsi Ganti. Dalam artikel ini, kami akan menunjukkan kepada anda cara mengganti rentetan dalam pengekodan VBA.

Ganti Fungsi

  • Ungkapan: Ini hanyalah nilai rentetan asli dari mana kami berusaha untuk mengganti sesuatu dengan sesuatu. Contohnya, di bawah ini adalah rentetan ungkapan - "India adalah negara membangun dan India di Negara Asia."
  • Cari String: Apakah rentetan yang cuba kita ganti. Contohnya, dalam rentetan Ekspresi , kami berusaha mengganti perkataan "India."
  • Ganti String: Apakah tali gantian yang kita ganti dengan Find String dengan? Jadi, dalam kes ini, kami berusaha mengganti kata "India" dengan "Bharath."
  • (Mula): Ini adalah parameter pilihan. Dalam rentetan di atas (Ekspresi), kita mempunyai dua kata, "India," jadi dari posisi Find String, kita harus memulai proses penggantian. Sebagai contoh, jika kita mengucapkan 2, perkataan itu akan mula menggantikan perkataan "India" dari kedudukan kedua dan seterusnya.
  • (Hitung): Jika Rentetan Cari muncul berkali-kali dalam Ekspresi, maka berapa banyak kata yang perlu kita ganti.

Contohnya, jika perkataan "India" muncul 5 kali dan jika anda memberikan kiraannya sebagai 3, maka perkataan itu hanya akan menggantikan 3 perkataan "India" yang pertama.

Bagaimana Mengganti Teks dalam Rentetan menggunakan VBA?

Contoh # 1

Sekarang kita akan cuba mengganti kata "India" dengan "Bharath" dari nilai rentetan di bawah.

"India adalah negara yang sedang membangun dan India di Negara Asia."

Pertama, mulakan prosedur makro excel sekarang.

Kod:

Sub Ganti_Contoh () Akhir Sub

Tentukan pemboleh ubah VBA sebagai String.

Kod:

Sub Replace_Contoh () Dim NewString Sebagai String End Sub

Dalam pemboleh ubah ini, kami akan menunjukkan nilai rentetan baru setelah mengganti kata "India" dengan "Bharath." Untuk pemboleh ubah ini, buka fungsi Ganti.

Argumen pertama fungsi ini adalah "Ekspresi", iaitu dari rentetan mana kita berusaha mengganti kata, jadi salin dan tempelkan rentetan "India adalah negara yang sedang berkembang dan India di Negara Asia."

Argumen seterusnya adalah "Find String," iaitu, kata mana yang perlu kita ganti, yaitu, "India."

Argumen seterusnya adalah "Ganti String," iaitu, dengan rentetan mana kita perlu mengganti kata "India," iaitu, "Bharath."

Ok, mulai sekarang, abaikan argumen yang masih ada. Sekarang tunjukkan hasilnya di kotak mesej.

Kod:

Sub Replace_Example () Dim NewString As String NewString = Replace ("India adalah negara membangun dan India adalah Negara Asia", "India", "Bharath") MsgBox NewString End Sub

Mari jalankan kod menggunakan kekunci F5 atau secara manual dan lihat hasil rentetan baru.

Ok, lihat hasil di atas. Di mana pun kita memiliki kata "India", itu diganti dengan kata "Bharath."

Contoh # 2

Sekarang kita akan melihat bagaimana menggunakan kod yang sama dengan pemboleh ubah. Lihat kod di bawah.

Kod:

Sub Replace_Example1() 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) MsgBox NewString End Sub

In the above code, I have declared an extra three variables.

Dim MyString As String Dim FindString As String Dim ReplaceString As String

For these variables, I have assigned values. Instead of supplying the Expression String, Find String, and Replace String, we will supply only variable to the Replace function.

This code also gives the same result, but the only difference is we have used variables instead of direct supply of values to the function.

Example #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

  • Ganti adalah keluarga fungsi rentetan di VBA.
  • Dalam VBA, fungsi ganti menggantikan semua kata yang disediakan dengan rentetan yang diganti jika parameter kiraan tidak ditentukan.
  • Parameter permulaan akan menghapus bilangan watak yang dibekalkan dan menunjukkan hasil yang tinggal.

Artikel menarik...