Mengekstrak Angka Dari Text Data Entri

Meng-extract porsi angka dari sebuah entri data sanggup dilakukan 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 porsi angka dengan gampang memakai fungsi pengolah text ibarat LEFT, RIGHT dan MID dikombinasikan dengan fungsi CONCATENATE. Namun kalau pola urutan kombinasi angka dan abjad tidak tetap, maka fungsi standar pengolah text di excel tidak sanggup menuntaskan kasus tersebut. Untuk itu diharapkan sebuah UDF (User Defined Function) untuk menuntaskan kiprah ini.

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







Screenshot berikut memperlihatkan bagaimana fungsi ambilAngka() sanggup mengextract porsi angka dari entri data, tidak peduli bagaimana pola susunan karakter serta panjang data entri.

Selanjutnya mari kita simak baik-baik bagaimana menerapkan code VBA untuk menciptakan fungsi ambilAngka sehingga sanggup diterapkan pada spreadsheet ibarat gambar di atas.

Contoh isyarat VBA untuk extract angka dari text.

Berikut pola isyarat VBA yang sanggup dipakai untuk extrak porsi 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 harus diketikan atau dicopy ke modul VBA. Jika pembaca sudah mengenal dasar – dasar VBA sebelumnya, tentunya bukan hal yang sulit bagi anda untuk segera mengcopy kan code di atas ke modul VBA.

Bagi pembaca yang masih gres mengenal VBA tidak perlu khawatir. VBA itu sangat menyenangkan, apalagi kalau kita sanggup mencicipi keuntungannya yang luar biasa dalam meningkatkan efisiensi dan efektifitas kerja memakai microsoft Excel.

Baiklah mari kita lanjutkan. Bagaimana masuk ke modul VBA.

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

• Pada jendela VBA, klik sajian Insert → klik Module

• Langkah selanjutnya ketikan atau copy isyarat VBA di atas pada module ibarat diperlihatkan dalam screenshot di bawah ini.

• 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 memakai excel 2007, 2010 atau versi yang lebih baru.

Cara memakai fungsi ambilAngka()

Gambaran cara memakai fungsi ambilAngka() sudah diperlihatkan pada bab awal catatan ini., silahkan di scroll kembali ke bab atas untuk melihat screenshot pola penerapannya di excel.

Cara penulisan rumusnya sangat sederhana. Yaitu:

=ambilangka(entri)

Misalnya kita menuliskan rumus sebagai berikut:

=ambilangka("AB12cfgR44Db")

Maka ouput dari rumus di atas ialah : "1244" yang merupakan porsi angka dari "AB12cfgR44Db"
Karena data entri terletak dalam sel excel, maka rumus ambilAngka sanggup dituliskan dengan memakai rujukan sel:

Misalnya:

=ambilAngka(A1)

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

Demikian pembahasan singkat mengenai pola isyarat macro / vba yang sanggup dipakai untuk mengekstrak porsi angka dari entri text. Semoga bermanfaat.

Salam.

Artikel terkait:

• Konversi Angka Berformat Text Menjadi Angka Nyata
• Membuat Daftar Isi Otomatis
• Memasukan Data ke Beberapa Worksheet Sekaligus