عفرنس قام بنشر ديسمبر 6, 2019 مشاركة قام بنشر ديسمبر 6, 2019 أرغب في فصل المادة عن الشعبة . بحيث المادة تكون في عمود والشعبة في عمود كان عليك لزاما قبل رفع هذه المشاركة استخدام خاصية البحث بالمنتدى فبه ما تطلب subandclass - نسخة.xls رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر ديسمبر 6, 2019 مشاركة قام بنشر ديسمبر 6, 2019 اخي الفاضل سبق حل هذا السؤال من الاستاذ بن عليه حاجي والاستاذ سليم حاصبيا https://www.officena.net/ib/topic/98022-فصل-المادة-عن-الشعبة-في-حقل-مستقل/ تحياتي 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر ديسمبر 6, 2019 مشاركة قام بنشر ديسمبر 6, 2019 أستاذ emam1424 أين الضغط على الإعجاب ؟!! رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 6, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 6, 2019 استخدم هذه المعادلة في الخلية E2 واسحب يميناً عامود واحد و نزولاً الى اخر صف =Separate_col($C2,"\W+\d+",COLUMNS($E$1:E1)) الكود Option Explicit Function Separate_col(rg As Range, my_expression, n) Dim Obj As Object Dim matches, x, i, cnt% Dim NowArray(), Match Set Obj = CreateObject("vbscript.regexp") With Obj .Pattern = my_expression .Global = True .IgnoreCase = True End With '+++++++++++++++++++++++++ Set matches = Obj.Execute(rg.Value) x = matches.Count If x = 0 Then Separate_col = "N/A": Exit Function '============================ ReDim NowArray(x - 1) For Each Match In matches NowArray(cnt) = Match.Value cnt = cnt + 1 Next If n - 1 > UBound(NowArray) Then Separate_col = "N/A": Exit Function Separate_col = NowArray(n - 1) Set Obj = Nothing End Function الملف مرفق UDF_FORMULA.xlsm 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان