فرمول استخراج Text

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • sabertb

    • 2014/04/09
    • 347
    • 45.00

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

    سلام به همه اساتید
    من یه کد 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
    :min10::min18::min13::min22:
  • Amir Ghasemiyan

    • 2013/09/20
    • 4598
    • 100.00

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

    کامنت

    • sabertb

      • 2014/04/09
      • 347
      • 45.00

      #3
      نوشته اصلی توسط Amir Ghasemiyan
      سلام دوست عزيز
      منظورتون از text چيه؟
      اين چيزي كه شما نوشتيد هر كاركتري بجز كاركترهاي خاص قبول ميكنه. چه عدد چه حرف
      یعنی اگر توی یک سلول عبارتی نوشته شده شامل حروف و اعداد می خواهیم با این ماژول فقط حروف رو نمایش بده
      :min10::min18::min13::min22:

      کامنت

      • Amir Ghasemiyan

        • 2013/09/20
        • 4598
        • 100.00

        #4
        نوشته اصلی توسط sabertb
        یعنی اگر توی یک سلول عبارتی نوشته شده شامل حروف و اعداد می خواهیم با این ماژول فقط حروف رو نمایش بده
        اگه ميخوايد حروف نمايش داده بشه پس چرا اين كد رو گذاشتيد؟
        کد:
        sChar Like "[0-9]"
        حذفش كنيد درست ميشه

        کامنت

        • sabertb

          • 2014/04/09
          • 347
          • 45.00

          #5
          نوشته اصلی توسط Amir Ghasemiyan
          اگه ميخوايد حروف نمايش داده بشه پس چرا اين كد رو گذاشتيد؟
          کد:
          sChar Like "[0-9]"
          حذفش كنيد درست ميشه
          حذفش کردم ولی این ارور رو میده
          Click image for larger version

Name:	1.jpg
Views:	1
Size:	65.7 کیلو بایت
ID:	134542
          :min10::min18::min13::min22:

          کامنت

          • iranweld

            • 2015/03/29
            • 3341

            #6
            نوشته اصلی توسط sabertb
            حذفش کردم ولی این ارور رو میده
            [ATTACH=CONFIG]17544[/ATTACH]
            خدمت شما

            Click image for larger version

Name:	Untitled.png
Views:	1
Size:	23.9 کیلو بایت
ID:	134543


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

            Click image for larger version

Name:	1.jpg
Views:	1
Size:	42.6 کیلو بایت
ID:	134544




            کد PHP:
            Public Function Extracttext(rng As Range) As String
            Dim sStr 
            As StringAs LongsStr1 As String
            Dim sChar 
            As String
            sStr 
            rng
            For 1 To Len(sStr)
            sChar Mid(sStri1)
            If 
            sChar Like "[a-z]" Or sChar Like "[A-Z]" Then
            sStr1 
            sStr1 sChar
            End 
            If
            Next
            Extracttext 
            sStr1
            End 
            Function 
            Last edited by iranweld; 2018/10/13, 09:30.

            کامنت

            • Amir Ghasemiyan

              • 2013/09/20
              • 4598
              • 100.00

              #7
              نوشته اصلی توسط sabertb
              حذفش کردم ولی این ارور رو میده
              [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

              کامنت

              چند لحظه..