مساعدة في اضافة على كود

[ازهر عبد العزيز]

السلام عليكم ,,,,,,

اريد اضافة على هذا الكود ليقوم بحذف الاصفار ايضا 

   Dim Numbers

if len(SText & "")=0 then
	GetNumbersOnly=""
	exit function
end if

    For i = 1 To Len(SText)
        If IsNumeric(Mid(SText, i, 1)) Then
            Numbers = Numbers & Mid(SText, i, 1)
        End If
    Next
    GetNumbersOnly = Trim(Numbers)

 

تم تعديل أكتوبر 26, 2020 بواسطه ازهر عبد العزيز

[Shivan Rekany]

   Dim Numbers

if len(SText & "")=0 then
	GetNumbersOnly=""
	exit function
end if

    For i = 1 To Len(SText)
        If IsNumeric(Mid(SText, i, 1)) and Mid(SText, i, 1) <> 0 Then
            Numbers = Numbers & Mid(SText, i, 1)
        End If
    Next
    GetNumbersOnly = Trim(Numbers)

اتفضل تم اضافة هذا جزء فقط

and Mid(SText, i, 1) <> 0

 

[ازهر عبد العزيز]

جزيل الشكر استاذ شفان وهو المطلوب