حسام عبدالمحسن قام بنشر يونيو 17, 2017 مشاركة قام بنشر يونيو 17, 2017 السلام عليكم ورحمة الله مطلوب كود او دالة لحذف رقم 2017 وعلامة النجمة من العمود B وفى الشيت المرفق شرح المطلوب وشكرا Book1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 17, 2017 مشاركة قام بنشر يونيو 17, 2017 جرب هذا الماكرو Option Explicit Sub del_2017() Dim My_rg, My_cel As Range Set My_rg = Range("b1").CurrentRegion.Columns(1) For Each My_cel In My_rg.Cells My_cel = Replace(Replace(My_cel, "2017", ""), "*", "") Next End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يونيو 17, 2017 أفضل إجابة مشاركة قام بنشر يونيو 17, 2017 بارك الله فيك أخي العزيز سليم إثراءً للموضوع إليك حل المشكلة بثلاثة طرق الأولى بطريقة يدوية بالشكل التالي والطريقة الثانية نفس الفكرة بالكود بدون حلقات تكرارية Sub SimpleReplace() With Columns(2) .Replace "2017", "", xlPart .Replace "~*", "", xlPart End With End Sub والطريقة الثالثة باستخدام المعادلات حيث يمكنك وضع المعادلة التالية في أي عمود فارغ بهذا الشكل =SUBSTITUTE(SUBSTITUTE(B1,"2017",""),"*","") 2 رابط هذا التعليق شارك More sharing options...
حسام عبدالمحسن قام بنشر يونيو 18, 2017 الكاتب مشاركة قام بنشر يونيو 18, 2017 شكرا جزيلا اخوانى الكرام تم التجربة والحمد لله نجحت جزاكم الله كل خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها