Skip to main content
AG EXCEL

follow us

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 insertmodule
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

Attention, please: All advertisements on this site are entirely from the service of the ad provider, if there are advertisements that are not polite or not pleasing to be displayed then it is beyond our control, Please be treated wisely. Please Read Privacy Policy
Buka Komentar