Ganti karakter beraksen dengan karakter biasa dengan VBA

Ganti karakter beraksen dengan karakter biasa dengan Kutools for Excel

Untuk pengguna yang berpengalaman dengan Microsoft Excel, menggunakan makro VBA adalah cara mudah untuk menangani pekerjaan yang rumit ini.

1. Tahan lain + F11 kunci di Excel, dan itu membuka file Jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Jendela Modul.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Lalu pergi ke sel kosong dan tempel rumus di sel: = CheckStringCHAR (InString), sebagai contoh = CheckStringCHAR ("ù"), atau = CheckStringCHAR (A2).

Catatan:
(1) Microsoft Visual Basic Anda mungkin tidak mengenali karakter beraksen sama sekali, jika tidak mendukung Unicode. Misalnya, saat Anda menempelkan "š" di Visual Basic, Anda mungkin mendapatkan "?". Jika demikian, makro ini tidak tersedia.
(2) Ini tidak menggantikan karakter beraksen dalam string sel yang dipilih secara langsung.

Ini membutuhkan terlalu banyak keterampilan dan pengetahuan untuk menggunakan makro VBA. Dan metode berikut akan membantu Anda bekerja lebih mudah hanya dengan beberapa klik. Kutools for Excel's Replace Accented Characters tool memungkinkan Anda mengganti semua jenis karakter beraksen dengan karakter biasa dengan mudah sekaligus.

1. Pilih rentang di mana Anda akan mengganti semua karakter beraksen.

2. Klik Kutools > Teks > Ganti Karakter Beraksen…, Lihat tangkapan layar:

3. In Ganti Karakter Beraksen kotak dialog, klik Pilih semua tombol untuk memilih semua aturan ganti, dan klik tombol Ok untuk mengganti semua karakter beraksen. lihat tangkapan layar:

Catatan:
(1) Jika tidak ada karakter beraksen tertentu yang Anda inginkan, Anda dapat mengklik Tambahkan aturan untuk menambahkan aturan Anda sendiri ke dalam kotak daftar di atas dialog Ganti Karakter Beraksen.
(2) Anda dapat menyesuaikan aturan penggantian baru di kotak dialog Ganti Karakter Beraksen.

Sekarang Anda akan memiliki semua karakter beraksen dalam string dari rentang yang dipilih segera diubah menjadi karakter biasa. Lihat tangkapan layar:

Grafik Ganti Karakter Beraksen Fitur Kutools for Excel dapat dengan mudah mengganti semua jenis karakter beraksen dengan karakter biasa di seluruh buku kerja. Dapatkan Uji Coba Gratis!