Membuat Rumus Sendiri

UDF ( User Defined Function )

Judulnya Membuat Rumus Sendiri , Sama artinya Membuat UDF apa itu UDF (User Defined Function) membuat Rumus sendiri dengan Bantuan Macro / VBA. . Kali saya Akan Share gimana cara mengambil Angkanya saja atau Hurufnya Saja Pada Cell. . .
Contohnya
Data di A1 = ABC123ABC tentunya akan sulit jika kita menggunakan rumus biasa LEFT,MID,RIGHT dst...maka dari itu dibuat UDF nya biar lebih simple dalam pengolahan data..
Code ini harus ditulis dimodule ya Agar UDF nya bisa jalan :

Function AmbilAngkaSaja(ByVal data As String) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "\D+"
    .Global = True
    AmbilAngkaSaja = .Replace(data, "")
End With
End Function

Cara Pakainya cukup Mudah ketik =AmbilAngkaSaja(A1)
Maka Hasilnya Hanya Agkanya saja yg terambil. . .

Nah...yang menjadi Pertanyaan . . gimana Kalo Sebaliknya??
yang diambil Hanya Hurufnya saja. . .y udah tingal diganti Index
Paterrn nya saja...Jadi Kodenya Seperti ini :
Untuk Index VBScript yg lain silahkan dicari sendiri ya. . diGugel Banyak Kog...Hehehehehe... :)

Function AmbilHurufSaja(ByVal data As String) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "\d+"
    .Global = True
    AmbilHurufSaja = .Replace(data, "")
End With
End Function

Cara Pakainya cukup Mudah ketik =AmbilHurufSaja(A1)
Maka Hasilnya Hanya hurufnya saja yg terambil. . .

Kalo ga Percaya Silahkan dicoba sendiri ya.....






Salam,
~Afe~