ehab ali926 قام بنشر مايو 19, 2020 مشاركة قام بنشر مايو 19, 2020 اهلا مطلوب فرز البيانات لاستخراج الخلية التى تحتوى على حرف كبير+حرف صغير+رقم EE22.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 19, 2020 أفضل إجابة مشاركة قام بنشر مايو 19, 2020 ربما هذا الماكرو يفي بالغرض Option Explicit Sub Crezy_filter() Dim Sh As Worksheet Dim i%, m%, Lr% Dim Obj As Object Dim My_match Set Sh = Sheets("Sheet1") Set Obj = CreateObject("Vbscript.Regexp") Lr = Sh.Cells(Rows.Count, 1).End(3).Row Sh.Range("C4").CurrentRegion.ClearContents m = 4 With Obj .Pattern = "^([A-Z][a-z]\d+)" .Global = True .ignorecase = False End With For i = 4 To Lr If Obj.test(Sh.Cells(i, 1)) Then Set My_match = Obj.Execute(Sh.Cells(i, 1)) Sh.Cells(m, 3) = Sh.Cells(i, 1) m = m + 1 End If Next Set Obj = Nothing End Sub الملف مرفق EE22.xlsm 1 رابط هذا التعليق شارك More sharing options...
ehab ali926 قام بنشر مايو 19, 2020 الكاتب مشاركة قام بنشر مايو 19, 2020 الف شكر عمل ممتاز كما عودتنا دائما جزاك الله كل خير 🙂 🤝 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر مايو 19, 2020 مشاركة قام بنشر مايو 19, 2020 ehab ali926 أين الضغط على الإعجاب على هذا الكود الرائع والإجابة الممتازة من استاذنا الغالى سليم ؟!!!💙 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.