Adapun cara yang dilakukan adalah dengan menuliskan teks yang akan dikoreksi/teks yang salah pada sel A1 dan teks yang akan dihasilkan di sel B1, kemudian dengan mengeksekusi kode module di bawah ini, anda telah memperbarui teks dengan efisien yang biasanya harus dilakukan melalui kotak dialog AutoCorrect, contohnya melalui menu tombol Office > Excel Options > Proofing > AutoCorrect Options.
Sub KoreksiOtomatis()Contoh Langkah-langkah yang dapat anda ikuti adalah sebagai berikut:
Dim x As Long
Dim Salah As String, Koreksi As String
x = 1
Do Until IsEmpty(Cells(x, 1))
Salah = Cells(x, 1).Value
Koreksi = Cells(x, 2).Value
Application.AutoCorrect.AddReplacement What:=Salah, Replacement:=Koreksi
x = x + 1
Loop
End Sub
- Ketik misalnya 'tx' di sel A1.
- Ketik 'Terima kasih' di sel B1 sebagai hasil koreksi saat anda mengetik 'tx' di suatu sel.
- Tekan ALT+F11 untuk menampilkan VBE.
- Buka menu Insert > Module
- Tulis kode macro di atas pada jendela Module1.
- Buka Excel kembali lalu tekan ALT+F8.
- Pada kotak dialog Macro pilih 'KoreksiOtomatis' lalu klik 'Run'.
- Setelah itu anda ketik 'tx' di sel manapun kemudian tekan tombol spasi atau Enter.
0 Comments