Belajar Microsoft Excel: Mengekstrak Angka Dari Text Data Entri

Meng-extract takaran angka dari suatu entri data sanggup dijalankan dengan banyak sekali cara. Jika sejumlah entri data mempunya pola urutan abjad dan angka yang tetap serta panjang text-nya konstan , maka kita sanggup mengambil takaran angka dengan mudah menggunakan fungsi pengolah text seumpama LEFT , RIGHT dan MID dikombinasikan dengan fungsi CONCATENATE. Namun kalau pola urutan variasi angka dan abjad tidak tetap , maka fungsi persyaratan pengolah text di excel tidak sanggup menyelesaikan kasus tersebut. Untuk itu dikehendaki suatu UDF (User Defined Function) untuk menyelesaikan kiprah ini.

Catatan pelajaran excel kali ini akan membahas bagaimana menghasilkan dan menerapkan fungsi ambilAngka() , dimana fungsi ini berkhasiat untuk men-ektrak takaran angka dari suatu entri text.

Screenshot berikut berbincang bagaimana fungsi ambilAngka() sanggup mengextract takaran angka dari entri data , tidak acuh bagaimana pola susunan karakter serta panjang data entri.

Mengextrak Angka dari Text

Selanjutnya mari kita simak baik-baik bagaimana menerapkan code VBA untuk menghasilkan fungsi ambilAngka sehingga sanggup dipraktekkan pada spreadsheet seumpama gambar di atas.

Contoh isyarat VBA untuk extract angka dari text.

Berikut referensi isyarat VBA yang sanggup dipakai untuk extrak takaran angka dari data entri.

Function ambilAngka(txt As String) As String
Dim i As Integer , iKarakter As String , Angka As String
For i = 1 To Len(txt)
  iKarakter = Mid(txt , i , 1)
  If IsNumeric(iKarakter) Then
    Angka = Angka & iKarakter
  End If
Next
ambilAngka = Angka
End Function

Supaya code diatas sanggup dipakai maka mesti diketikan atau dicopy ke modul VBA. Jika pembaca sudah mengenal dasar – dasar VBA sebelumnya , pastinya bukan hal yang menyibukkan untuk anda untuk secepatnya mengcopy kan code di atas ke modul VBA.

Bagi pembaca yang masih gres mengenal VBA tidak perlu khawatir. VBA itu sungguh menggembirakan , terlebih kalau kita sanggup mencicipi keuntungannya yang hebat dalam mengembangkan efisiensi dan efektifitas kerja menggunakan microsoft Excel.

Baiklah mari kita lanjutkan. Bagaimana masuk ke modul VBA.

    • Untuk excel 2007 atau yang lebih gres , pastikan tab developer tersedia dan setting macro security enable. Demikian juga kalau anda masih menggunakan excel 2003 , pastikan macro security enable.
    • Untuk masuk ke module VBA , tekan shortcut ALT = F11 atau lewat ribbon dengan cara klik icon Visual Basic pada tab developer.

    cara memperlihatkan jendela visual basic
    • Pada jendela VBA , klik santapan Insert → klik Module
    cara insert module vba

    • Langkah berikutnya ketikan atau copy isyarat VBA di atas pada module seumpama diperlihatkan dalam screenshot di bawah ini.
    cara copy code di modul vba
    • Setelah code diketik/ di copy ke modul VBA , maka fungsi ambilAngka() sudah tersedia dan siap digunakan.
    • Simpan file dengan extension .xlsm (Excel Macro – Enable Workbook) atau dengan extension .xlsb (Excel Binary Workbook) kalau anda menggunakan excel 2007 , 2010 atau model yang lebih baru.

    Cara menggunakan fungsi ambilAngka()

    Gambaran cara menggunakan fungsi ambilAngka() sudah diperlihatkan pada bab permulaan catatan ini. , silahkan di scroll kembali ke bab atas untuk menyaksikan screenshot referensi penerapannya di excel.

    Cara penulisan rumusnya sungguh sederhana. Yaitu:

    =ambilangka(entri)

    Misalnya kita menuliskan rumus selaku berikut:

    =ambilangka(“AB12cfgR44Db”)

    Maka ouput dari rumus di atas yakni : “1244” yang ialah takaran angka dari “AB12cfgR44Db”
    Karena data entri terletak dalam sel excel , maka rumus ambilAngka sanggup dituliskan dengan menggunakan referensi sel:

    Misalnya:

    =ambilAngka(A1)

    Rumus ini berkhasiat untuk mengambil takaran angka dari text data entri yang terletak pada sel A1.

    Demikian pembahasan singkat perihal referensi isyarat macro / vba yang sanggup dipakai untuk mengekstrak takaran angka dari entri text. Semoga bermanfaat.

    Salam.

    Artikel terkait:


    Need Help? Chat with us