Ahmet belge numarası 12356 dir.
Mustafa 27. oldu.
gibi verilen satır ifadelerindeki sadece sayı kısmını hangi visual basic kodu ile alabiliriz.
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.
Function 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
fonksiyonu aşağıdaki şekilde çağırabilirsiniz
Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
(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.
Function 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
fonksiyonu aşağıdaki şekilde çağırabilirsiniz
Private Sub SayiA_Click()
Me.Metin2 = SayiAl(Me.Metin0)
End Sub
Teşekkür ederim. Süper oldu.
iyi çalışmalar)
Rep için teşekkürler
Ben de farklı bir yöntem göstereyim. Mid komutuyla da istenilen alanları çağırabilirsiniz.
Me.Metin2 = Mid([Me.Metin0], 6, 4) & " " & Mid([Me.Metin0], 15, 4)