Formula VBA untuk memisahkan Angka dengan Teks
Option Explicit
Function Angkasaja(Str As String) As String
Dim X As Object
Set X = CreateObject("VBScript.RegExp")
With X
.Global = True
.Pattern = "[\D]"
Angkasaja = .Replace(Str, vbNullString)
End With
End Function
Function Tekssaja(Str As String) As String
Dim X As Object
Set X = CreateObject("VBScript.RegExp")
With X
.Global = True
.Pattern = "[0-9]"
Tekssaja = .Replace(Str, vbNullString)
End With
End Function