Sebagian dari kita mungkin tanpa sengaja menggunakan bahasa-bahasa singkatan, terutama dalam hal pengiriman pesan pendek atau SMS. Entah hanya sekedar ingin mengikuti fenomena yang ada, atau mungkin malas untuk menggunakan tata bahasa yang benar sesuai dengan kaidah penulisan bahasa.

Dalam tips kali ini, saya mencoba untuk 'menghadirkan' nuansa tulisan pesan SMS. Hanya saja bukan menggunakan telepon genggam melainkan menggunakan Aplikasi Microsoft Excel, lebih tepatnya menggunakan sebuah fungsi yang dibuat menggunakan kode VBA.

1. Seperti biasa, buka jendela Visual Basic Editor yang bisa diakses menggunakan tombol pintas Alt + F11
2. Klik menu Insert, dan pilih Module untuk membuat sebuah modul baru
3. Masukkan baris kode berikut ke dalam module yang baru Anda buat
   

   Function NoVocal(Txt) As String
   Dim i As Long
   NoVocal = ""
   For i = 1 To Len(Txt)
   If Not UCase(Mid(Txt, i, 1)) Like "[AEIOU]" Then
   NoVocal = NoVocal & Mid(Txt, i, 1)
   End If
   Next i
   End Function

4. Tutup atau minimize jendela Visual Basic Editor

Untuk mengaplikasikan fungsi kustom yang sudah kita buat menggunakan Macro VBA di atas, adalah dengan cara :

1. Ketik beberapa kata atau kalimat di sembarang sel, sebagai contoh ketik kata 'Selamat Datang' di sel A1
2. Di sel B1 (atau terserah mau di letakkan di mana hasil singkatan) ketikkan sebuah fungsi seperti berikut
   

   =NoVocal(A1)

3. Akhiri dengan menekan tombol Enter atau klik sel lain untuk melihat hasilnya

Lihat hasil akhir dari fungsi kustom yang sudah kita terapkan dalam lembar kerja Microsoft Excel berikut :

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :