mohamed deyaa eldin قام بنشر أكتوبر 18, 2019 مشاركة قام بنشر أكتوبر 18, 2019 السلام عليكم أرجو إرسال كود يعمل علي فك الخلية A كما بالمثال رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أكتوبر 18, 2019 مشاركة قام بنشر أكتوبر 18, 2019 عليك السلام ورحمة الله وبركاته أولاً كان يجب عليك رفعت ملف للعمل وكتابة الإجابة المتوقعة ثانيًا جسب فهمي ممكن هذا الملف يفي الغرض المصنف1.xlsx 3 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر أكتوبر 18, 2019 مشاركة قام بنشر أكتوبر 18, 2019 السلام عليكم بعد اذن اخونا الفاضل احمد بدره الحل بالكود (من اكواد عبدالله باقشير) تحياتي فك الخلية.xlsm 3 1 رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 18, 2019 الكاتب مشاركة قام بنشر أكتوبر 18, 2019 شكرا أستاذ عبد الله رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أكتوبر 20, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 20, 2019 بعد اذن الاخ عبدالله هذا الكود 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 5 رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 جزاك الله خير رابط هذا التعليق شارك More sharing options...
ابو ايسل قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 بعد اذن الجميع هذه داله لإثراء الموضوع داله MID المصنف1.xlsx 4 رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 شكرا رابط هذا التعليق شارك More sharing options...
wahid-chaoui قام بنشر نوفمبر 12, 2019 مشاركة قام بنشر نوفمبر 12, 2019 اخي الكريم اليك هذا الملف وسف يعجبك كثيرا détail.xlsx رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان