فصل المادة عن الشعبة

[عفرنس]

أرغب في فصل المادة عن الشعبة . بحيث المادة تكون في عمود والشعبة في عمود 

كان عليك لزاما قبل رفع هذه المشاركة استخدام خاصية البحث بالمنتدى فبه ما تطلب

‏‏subandclass - نسخة.xls

[عبدالله بشير عبدالله]

اخي الفاضل

سبق  حل هذا السؤال من  الاستاذ بن عليه حاجي والاستاذ سليم حاصبيا 

https://www.officena.net/ib/topic/98022-فصل-المادة-عن-الشعبة-في-حقل-مستقل/

تحياتي

[أحمد يوسف]

أستاذ

emam1424

 

أين الضغط على الإعجاب ؟!!

[سليم حاصبيا]

استخدم هذه المعادلة في الخلية 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