Bir Dizeden Sayısal Veriler Elde Etme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Örneğin, A1 hücresine Ali 1 Veli, B1 hücresine =GetNumeric(A1) yazdığınızda, B1 hücresi sonuç olarak 1 döndürecektir.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Function GetNumeric(CellRef As String)
Dim StringLength As Integer
StringLength = Len(CellRef)
For i = 1 To StringLength
If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1)
Next i
GetNumeric = Result
End FunctionAçıklama
Bu kod bir Kullanıcı Tanımlı Fonksiyon olarak işlev göstermektedir.Örneğin, A1 hücresine Ali 1 Veli, B1 hücresine =GetNumeric(A1) yazdığınızda, B1 hücresi sonuç olarak 1 döndürecektir.
Faydalanılması temennisiyle