
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.
- Seperti biasa, buka jendela Visual Basic Editor yang bisa diakses menggunakan tombol pintas
Alt +F11 - Klik menu Insert, dan pilih Module untuk membuat sebuah modul baru
- 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
- Tutup atau minimize jendela Visual Basic Editor
- Ketik beberapa kata atau kalimat di sembarang sel, sebagai contoh ketik kata 'Selamat Datang' di sel A1
- Di sel B1 (atau terserah mau di letakkan di mana hasil singkatan) ketikkan sebuah fungsi seperti berikut
=NoVocal(A1)
- Akhiri dengan menekan tombol Enter atau klik sel lain untuk melihat hasilnya
