-
تابع جدا کردن عدد از متن
http://irmeta.com/meta/index.php?action=downloads;sa=view;down=237 (http://irmeta.com/meta/index.php?action=downloads;sa=view;down=237)
از این تابع برای جدا کردن عدد از متن استفاده می شود .
یعنی اگر در یک سلول داسته باشیم : علی23محمد8متین3تنت3م خروجی تابع برابر خواهد بود با : 33823
کافی از تابع Seperate استفاده کنیم .
البته باید ابتدا این تابع را از طریق Addins به توابع اکسل اضافه نمائید .
یا کد زیر را در ماژول برنامه اضافه نمائیم :
Function Separate(TEXT)
Application.Volatile
If TEXT = "" Then GoTo 1
len_text = Len(TEXT)
For i = 1 To len_text
ch1 = Mid(TEXT, i, 1)
If ch1 = 0 Then Separate = Separate & ch1 Else If Val(ch1) > 0 Then _
Separate = Separate & ch1
Next i
Exit Function
1: Separate = "Cell Is Null"
End Function
Users found this pages searching for: