• Fungsi Kustom Macro VBA Menghilangkan Huruf Vokal

    Membuat Teks Singkatan seperti SMS
    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 :
    membuat singkatan dengan macro VBA

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger