Kilo.Text.Length ifadesi vba da mevcut mu?

[mersilen]

Merhabalar
Bir sitede bulduğum aşağıdaki kodalrı vba da aynı mantıkla kullanmak mümkün mü?
kilo.Text.Length ifadesi çalışıyor mu?

* vb c# ‘da Textbox yada TextChanged özelliği olan form öğesinde sadece sayıları veya
Sadece harf
Sadece sayıları, Rakamları Bırakma
For i = 0 To kilo.Text.Length – 1
‘ Char.IsDigit rakam yoksa ifadesi
If Char.IsDigit(kilo.Text.Chars(i)) = “False” Then
‘ Rakam olmayanı sil
kilo.Text = Replace(kilo.Text, i, “”, , , vbBinaryCompare)
End If
Next i
-
Sadece Harfleri Bırakma
For i = 0 To kilo.Text.Length – 1
‘ Char.IsLetter harf ifadesi
If Char.IsLetter(kilo.Text.Chars(i)) = “False” Then
‘Harf olmayanı sil
kilo.Text = Replace(kilo.Text, i, “”, , , vbBinaryCompare)
End If
Next i

Örneğin VBA şekliaşağıdaki gibi olmalı

Sub txt1()

kilo = "asd12asd"
For i = 0 To kilo.Text.Length - 1
' Char.IsDigit rakam yoksa ifadesi
If Char.IsDigit(kilo.Text.Chars(i)) = "False" Then
' Rakam olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
'
'Sadece Harfleri Bırakma
For i = 0 To kilo.Text.Length - 1
'Char.IsLetter harf ifadesi
If Char.IsLetter(kilo.Text.Chars(i)) = "False" Then
'Harf olmayanı sil
kilo.Text = Replace(kilo.Text, i, "", , , vbBinaryCompare)
End If
Next i
End Sub

 

[Emir Hüseyin Çoban]

. . .

Length kullanmak istemenizin özel bir sebebi var mı ?

Konuların benzer olduğunu düşünüyorum.
http://www.excel.web.tr/f47/kary-yk-metni-yan-hucreye-bolme-t142252.html

. . .

 

[mersilen]

Selam
Özel bir nedeni yok, sadece bilgi amaçlı sordum.

Birde bu yolla kelimeyi dizine çevirebilir miyim ?

If Char.IsDigit(c.Value) = "False" Then c.Interior.ColorIndex = 3

Kodu ile metinin sayısal,metinsel,alfanumeric diye ayrı ayrı renklendirebilir miyiz?