مساعدة فى قص جزء معين

[الساحر NeT]

السلام عليكم ورحمة الله وبركاته

اخوانى الافاضل بارك الله فيكم جميعا

بعد التحية

اريد قص جزء معين من سريال متغير

مثلا

123456-46301122/123456789

اريد قص رقم 1122

وفى السريال الاخر 

46301122/123456789

اريد قص 1122

علما بان السريالات تاتى هكذا

فاأريد معادلة تشمل قص هذا الجزء سواء كان السريال الاول او الثانى

ارجو المتابعه

شكرا لكم

[بن علية حاجي]

السلام عليكم ورحمة الله

إذا فرضنا أن السريالات موجودة في العمود B بداية من الخلية B2 فتكون المعادلة في C2 (مثلا) كما يلي:

بالفرنسية :

=--STXT(B2;TROUVE("/";B2;1)-4;4)

وبالإنجليزية :

=--MID(B2;FIND("/";B2;1)-4;4)

والله أعلم

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

بعد اذن اخي بن علية

ربما ينفع هذا الكود

Option Explicit
Sub cut_my_number_Please()
Dim reg As Object
Dim MY_match
Dim Matches
Dim i%, lr%: lr = Cells(Rows.Count, 1).End(3).Row
Dim k%: k = 3
Dim c%: c = 1
Range("c1").CurrentRegion.ClearContents
Set reg = CreateObject("VBscript.RegExp")
With reg
.Pattern = "1122"
.Global = True
End With
 For i = 1 To lr
    If reg.test(Range("a" & i)) Then
     Set Matches = reg.Execute(Range("a" & i))
       For Each MY_match In Matches
         Cells(c, k) = MY_match
         k = k + 1
       Next
      End If
      k = 3: c = c + 1
 Next i

End Sub

الملف مرفق

My_regex.xlsm

[الساحر NeT]

أخى الفاضل بارك الله فيك وشكرا لك على هذا العمل

فقد أفادنى أفادك الله

اخى الفاضل كيف استخدم هذا الكود

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

فقط اضغط على الزر Run

[الساحر NeT]

اخى الفاضل كيف استخدم هذا الكود

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

شاهد هذا الفيديو لمعرفة كيفية تشغيل الماكرو

https://www.youtube.com/watch?v=9LiIpLIOyLo

 

[الساحر NeT]

اخى اسف لعدم الفهم

لكن هذا الكود اين اضعه

شكرا وبارك الله فيك

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

شاهد هذا الفيديو الذي يعطيك مثالاً عن كيفية نسخ الكود الى اي ملف في اكسل

بعد الاطلاع عليه قم بنسخ الكود من المشاركة الى النافذة التي تخرج بعد الضغط على Alt+F11

https://www.youtube.com/watch?v=8pfdm7xs3QE

 

[الساحر NeT]

أنا ضفت الكود فى

كيف استخدمة

وكيف احدد الخلية ال اريد قص جزء فيها

ذا كان السريال فى a1 مثلا واريد قص جزء فى a5

كيف افعل هذا

لو شرح من حضرتك ياريت شكرا ليكم على هذا المجهود

يارب يبارك فيكم