كود تقسيم الرقم الي عدة خلايا

[mohamed deyaa eldin]

السلام عليكم

أرجو إرسال كود يعمل علي فك الخلية A كما بالمثال 

 

[احمد بدره]

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

أولاً كان يجب عليك رفعت ملف للعمل وكتابة الإجابة المتوقعة

ثانيًا جسب فهمي ممكن هذا الملف يفي الغرض

 

المصنف1.xlsx

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

السلام عليكم

بعد اذن اخونا الفاضل احمد بدره

الحل بالكود (من اكواد عبدالله باقشير)

تحياتي

فك الخلية.xlsm

[mohamed deyaa eldin]

شكرا أستاذ عبد الله 

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

بعد اذن الاخ عبدالله هذا الكود

 Sub test_please()
 Range("A1").CurrentRegion.Offset(, 1).ClearContents
 i = 1
  Do Until Range("A" & i) = vbNullString
  Call SPLIT_ME _
  (Range("a" & i), "(\D)(\d{4})[0]+(\d{3})(\d{3})", i, 2)
   i = i + 1
   Loop
 End Sub
 '+++++++++++++++++++++++++++++++

Sub SPLIT_ME(c As Range, pttrn As String, ByVal k%, m%)

With CreateObject("VBscript.RegExp")
    .Global = True
    .MultiLine = True
    .IgnoreCase = False
    .Pattern = pttrn
     If Not .Test(c.Value) Then Exit Sub
        Set Results = .Execute(c.Value)
             For i = 0 To Results(0).Submatches.Count - 1
                Cells(k, m) = Results(0).Submatches(i)
                m = m + 1
             Next
End With
End Sub

الملف مرفق

 

Split_cells.xlsm

[mohamed deyaa eldin]

جزاك الله خير

 

[ابو ايسل]

بعد اذن الجميع هذه داله لإثراء الموضوع داله MID

 

المصنف1.xlsx

[mohamed deyaa eldin]

شكرا

[wahid-chaoui]

اخي الكريم اليك هذا الملف وسف يعجبك كثيرا

détail.xlsx