(24/02/2020, 09:42)berduş yazdı: aşağıdaki fonksiyon işinize yarayabilir ama şöyle bir sorun var metin içindeki sayılar Cuma 0123 ali 000 gibi dağınıksa 0123000 şeklinde alır.Teşekkür ederim. Süper oldu.
fonksiyonu aşağıdaki şekilde çağırabilirsinizFunction SayiAl(Mtn As String)
Dim Sayi As String
For x = 1 To Len(Mtn)
SayInt = Mid(Mtn, x, 1)
If IsNumeric(SayInt) Then SayiAl = SayiAl & SayInt
Next x
End Function
Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
İyilik yap!
İyilik bul!
İyilik bul!