Belajar Microsoft Excel: Mengekstrak Angka Dari Text Data Entri

Meng-extract takaran angka dari suatu entri data sanggup dilaksanakan 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 menyerupai LEFT , RIGHT dan MID dikombinasikan dengan fungsi CONCATENATE. Namun jikalau pola urutan variasi angka dan abjad tidak tetap , maka fungsi persyaratan pengolah text di excel tidak sanggup mengakhiri permasalahan tersebut. Untuk itu diinginkan suatu UDF (User Defined Function) untuk mengakhiri 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 memperlihatkan 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 menyerupai gambar di atas.

Contoh instruksi VBA untuk extract angka dari text.

Berikut pola instruksi 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 jikalau 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 , tetapkan tab developer tersedia dan setting macro security enable. Demikian juga jikalau anda masih menggunakan excel 2003 , tetapkan 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 suguhan Insert → klik Module
    cara insert module vba

    • Langkah berikutnya ketikan atau copy instruksi VBA di atas pada module menyerupai 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) jikalau 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 pola 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 merupakan : “1244” yang merupakan takaran angka dari “AB12cfgR44Db”
    Karena data entri terletak dalam sel excel , maka rumus ambilAngka sanggup dituliskan dengan menggunakan acuan sel:

    Misalnya:

    =ambilAngka(A1)

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

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

    Salam.

    Artikel terkait:


    Need Help? Chat with us