سليم حاصبيا قام بنشر مارس 16, 2019 مشاركة قام بنشر مارس 16, 2019 كثر الحديث والطلب عن هذا الموضوع (استخراج الارقام أو الأحرف او الكلمات من نص) لذلك قمت بتحميل هذا الملف الذي عسى ان يستفيد منه اكبر عدد ممكن من الاعضاء الملف يحتوي على دالّة معرفة Option Explicit Function Salim_Single_Match(aString As String, my_expression As String, n%) As Variant Dim RegEx As New VBScript_RegExp_10.RegExp Dim NowArray() As String Dim Match, matches As Object Dim x%, cnt% With RegEx .Pattern = my_expression .Global = True .IgnoreCase = True End With On Error Resume Next Set matches = RegEx.Execute(aString) x = matches.Count If x = 0 Then Error.Clear Salim_Single_Match = "No Match": Exit Function End If ReDim NowArray(x - 1) For Each Match In matches NowArray(cnt) = Match.Value cnt = cnt + 1 Next If n > cnt Then n = cnt Salim_Single_Match = NowArray(n - 1) End Function salim_UDF_Formula.xlsm 7 2 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر مارس 16, 2019 مشاركة قام بنشر مارس 16, 2019 احسنتم استاذ سليم وهذه من الروائع تضاف الى روائعكم في المعادلات والاكواد وفقكم الله وزادكم من فضله 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مارس 16, 2019 مشاركة قام بنشر مارس 16, 2019 أحسنت أستاذ سليم عمل ممتاز بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
مجدى يونس قام بنشر مارس 20, 2019 مشاركة قام بنشر مارس 20, 2019 نشاط دائم ومواضيع منوعة 1 رابط هذا التعليق شارك More sharing options...
أوفيساوي قام بنشر أبريل 8, 2019 مشاركة قام بنشر أبريل 8, 2019 شكرا لك، مجهود مميز رابط هذا التعليق شارك More sharing options...
ابو الياس نبيل جمعان قام بنشر أبريل 12, 2019 مشاركة قام بنشر أبريل 12, 2019 عمل اكثر من رائع بارك الله فيكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.