Cara Memisahkan Teks Dan Angka Di Excel

[.] com - Dalam membuat data di Excel, tentu tak spesialuntuk memasukkan angka saja tapi juga ada data teks atau string, terkadang juga pada suatu sel meliputi teks dan angka sekaligus. Untuk itu kali ini kita akan sama-sama berguru memisahkan teks dan angka di Excel.

Hasil kesudahannya nanti kurang lebih menyerupai ini:

Untuk memisahkan angka dan teks di Excel kita dapat memanfaatkan kombinasi fungsi-fungsi Excel menyerupai LEFT, RIGHT, MID, FIND dan lain-lain, namun untuk kali ini kita akan berguru membuat fungsi sendiri, yang akan di diberinama AmbilTeks dan AmbilAngka. Dan diberikut langkah-langkah pembuatan fungsinya:

1 Buka Aplikasi VBA Excel dengan menekan tombol Alt + F11.
2 Tambahkan Module baru, dengan cara klik sajian Insert - Module.

3 Masukkan script diberikut ini ke dalam module yang tadi dibuat.

Option Explicit  Function AmbilAngka(Str As String) As String Dim X As Object Set X = CreateObject("VBScript.RegExp") With X     .Global = True     .Pattern = "[\D]" AmbilAngka = .Replace(Str, vbNullString) End With End Function   Function AmbilTeks(Str As String) As String Dim X As Object Set X = CreateObject("VBScript.RegExp") With X     .Global = True     .Pattern = "[0-9]" AmbilTeks = .Replace(Str, vbNullString) End With End Function 

Penjelasan Script:
Fungsi VBA yang dipakai ialah fungsi Regex, fungsi regex ini biasa dipakai untuk menvalidasi data tertentu rujukan umum untuk validasi email dengan tanda @ sebagai instruksi regexnya, coba perhatikan script diatas pada bab pattern:

.Pattern = "[\D]" dan .Pattern = "[0-9]"

Kode regex-nya ialah abjad yang ada di antara tanda kurung [ kode regex ].

[\D] untuk menvalidasi abjad non digit (bukan angka)
[0-9] atau [\d] untuk menvalidasi abjad digit atau angka 0 - 9.

Selain regex pattern juga ada regex Replace, yang fungsinya untuk mengganti abjad tertentu. contohnya untuk fungsi AmbilTeks:

AmbilTeks = .Replace(Str, vbNullString)

dengan pattern angka [0-9], yang artinya tiruana angka akan di ubah menjadi vbNullString alias abjad null atau dihilangkan, jadi misal kode vbNullString diubah menjadi "*" maka tiruana abjad angkanya akan di ubah menjadi *.

Itulah sedikit klarifikasi terkena script diatas, mungkin lain waktu akan saya jelaskan lebih detail terkena penerapan fungsi regex dan kode-kodenya.

Fungsi AmbilTeks dan AmbilAngka

Untuk penulisan fungsinya adalah:

=AmbilTeks (teks) dan AmbilAngka (teks) 

teks ialah teks atau angka, sel referensi dan tidak dapat dipakai pada rentang (range) data.

contohnya menyerupai gambar diberikut ini:

Lampiran

Fungsi Ambil Angka dan teks.xlsb (14 KB)

Sekian tutorial membuat fungsi sendiri untuk memisahkan teks dan angka di Excel, Semoga Bermanfaat...