[حل شده] فرمول استخراج Text

[sabertb]

سلام به همه اساتید
من یه کد VB دارم جهت استخراج Text از داخل هر سلول ولی نمیدونم چرا ارور میده و کار نمیکنه.

Public Function AlphaNumerals(rng As Range) As StringDim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng.Value
For i = 1 To Len(sStr)
sChar = Mid(sStr, i, 1)
If sChar Like "[0-9]" Or sChar Like "[a-z]" Or sChar Like "[A-Z]" Then
sStr1 = sStr1 & sChar
End If
Next
AlphaNumerals = sStr1
End Function
Public Function Extracttext(rng As Range) As String
Dim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng.Value
For i = 1 To Len(sStr)
sChar = Mid(sStr, i, 1)
If sChar Like "[0-9]" Or sChar Like "[a-z]" Or sChar Like "[A-Z]" Then
sStr1 = sStr1 & sChar
End If
Next
AlphaNumerals = sStr1
End Function

[Amir Ghasemiyan]

سلام دوست عزيز
منظورتون از text چيه؟
اين چيزي كه شما نوشتيد هر كاركتري بجز كاركترهاي خاص قبول ميكنه. چه عدد چه حرف

[sabertb]

سلام دوست عزيز
منظورتون از text چيه؟
اين چيزي كه شما نوشتيد هر كاركتري بجز كاركترهاي خاص قبول ميكنه. چه عدد چه حرف

یعنی اگر توی یک سلول عبارتی نوشته شده شامل حروف و اعداد می خواهیم با این ماژول فقط حروف رو نمایش بده

[Amir Ghasemiyan]

یعنی اگر توی یک سلول عبارتی نوشته شده شامل حروف و اعداد می خواهیم با این ماژول فقط حروف رو نمایش بده

اگه ميخوايد حروف نمايش داده بشه پس چرا اين كد رو گذاشتيد؟

sChar Like "[0-9]"

حذفش كنيد درست ميشه

[sabertb]

اگه ميخوايد حروف نمايش داده بشه پس چرا اين كد رو گذاشتيد؟

sChar Like "[0-9]"

حذفش كنيد درست ميشه

حذفش کردم ولی این ارور رو میده

[iranweld]

حذفش کردم ولی این ارور رو میده
[ATTACH=CONFIG]17544[/ATTACH]

خدمت شما




ایراد کد شما در تصویر نشان داده شده است

Public Function Extracttext(rng As Range) As String
Dim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng
For i = 1 To Len(sStr)
sChar = Mid(sStr, i, 1)
If sChar Like "[a-z]" Or sChar Like "[A-Z]" Then
sStr1 = sStr1 & sChar
End If
Next
Extracttext = sStr1
End Function 

[Amir Ghasemiyan]

حذفش کردم ولی این ارور رو میده
[ATTACH=CONFIG]17544[/ATTACH]

دوست عزيز شما توي كدهايي كه فرستاديد از دو تابع با عملكرد مشابه استفاده كرده ايد. من اين دو تا رو به تفكيك براتون ميذارم. و اصلاحات لازم رو هم اعمال ميكنم. دقت بفرماييد

Public Function AlphaNumerals(rng As Range) As String
Dim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng.Value
For i = 1 To Len(sStr)
    sChar = Mid(sStr, i, 1)
    If sChar Like "[a-z]" Or sChar Like "[A-Z]" Then
        sStr1 = sStr1 & sChar
    End If
Next
AlphaNumerals = sStr1
End Function

Public Function Extracttext(rng As Range) As String
Dim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng.Value
For i = 1 To Len(sStr)
    sChar = Mid(sStr, i, 1)
    If sChar Like "[a-z]" Or sChar Like "[A-Z]" Then
        sStr1 = sStr1 & sChar
    End If
Next
Extracttext = sStr1
End Function