Hücreki karmaşık Sayı ve Metni Birbirinden Ayırma(VBA)

Bazen elimize karmaşık ele alınması gereken veriler tek hücre içerisinde gelebiliyor. İçlerinden sayıları ve metinleri ayırmamız gerektiğinde eğer ayır edici bir unsur(-,*,/) mevcutsa ve sıralı bir şekilde ise kolaylıkla birbirlerinden ayırabiliriz. Ancak bu veriler hücre içerisinde karmaşık şekilde sıralanmış ise uzun uzadıya kod yazmamız gerekli bunun yerine kısa bir fonksiyon tanımlayarak kolay bir şekilde sayı ve metni birbirinden ayırabiliriz.

Modüle;

Function MetniAyir(Hucre As String, Tur As Integer)
Dim Uzunluk As Integer

If Tur = 1 Then
Uzunluk = Len(Hucre)
For i = 1 To Uzunluk
If IsNumeric(Mid(Hucre, i, 1)) Then Result = Result & Mid(Hucre, i, 1)
Next i
MetniAyir = Result

ElseIf Tur = 0 Then
Uzunluk = Len(Hucre)
For i = 1 To Uzunluk
If Not IsNumeric(Mid(Hucre, i, 1)) Then Result = Result & Mid(Hucre, i, 1)
Next i
MetniAyir = Result
Else
MetniAyir = "Hata Sayı İçin 1 Metin için 0 yazınız."
End If

End Function

İyi çalışmalar.

Yorum bırakın