Pisahkan Teks dan Angka, ini Caranya

Jika beberapa hari yang lalu kita pernah membahas tentang  Fungsi MID, LEFT dan RIGHT  yang bisa dibaca disini dan kali ini kita akan membahas tentang cara memisahkan teks dan angka dengan menggunakan regex.

Assalamu'alaikum sahabat exceler,
Dalam data excel tentunya kita selalu menjumpai angka dan teks berada dalam satu cell, seperti contoh : Jakarta 123456789.  Terkadang pada sebuah data kita membutuhkan pemisahan angka dan teks, maka cara ini dapat digunakan. Yuukk kita coba!!!

Langkah awal buka jendela VBA dengan cara tekan +
Lalu klik tab insert → module
Lalu masukkan kode dibawah ini :

Option Explicit



Function SHAmbilAngka(Str As String) As String

Dim X As Object

Set X = CreateObject("VBScript.RegExp")

With X

    .Global = True

    .Pattern = "[\D]"

SHAmbilAngka = .Replace(Str, vbNullString)

End With

End Function




Function SHAmbilTeks(Str As String) As String

Dim X As Object

Set X = CreateObject("VBScript.RegExp")

With X

    .Global = True

    .Pattern = "[0-9]"

SHAmbilTeks = .Replace(Str, vbNullString)

End With

End Function

Fungsi VBA diatas menggunakan regex, fungsi ini biasa digunakan untuk memvalidasi data tertentu. Perhatikan kode diatas pada bagian .Pattern kode regex-nya berada didalam kurung  "[  ]"
.Pattern = "[\D]" digunakan untuk validasi karakter yang bukan angka, sedangkan .Pattern = "[0-9]" untuk memvalidasi angka

Untuk formula yang digunakan :

=SHAmbilTeks dan =SHAmbilAngka

Demikian postingan singkat yang dapat AG tulis kali ini, selamat mencoba dan terima kasih.

---

IncomingTerms AGExcel.Net :

• cara memisahkan teks dan angka di excel
• cara memisahkan angka
• Pisahkan Teks dan Angka, ini Caranya
• cara memisahkan angka di excel dalam 1 kolom
• cara memisahkan huruf dan angka di excel
• cara memisahkan teks menjadi per huruf di excel
• mengambil data angka di excel
• rumus excel text dan angka