كود او دالة لحذف رقم 2017 وعلامة النجمة من العمود B

[حسام عبدالمحسن]

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

مطلوب كود او دالة لحذف رقم 2017 وعلامة النجمة من العمود B  وفى الشيت المرفق شرح المطلوب وشكرا

Book1.rar

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

جرب هذا الماكرو

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

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز سليم

إثراءً للموضوع إليك حل المشكلة بثلاثة طرق الأولى بطريقة يدوية بالشكل التالي

والطريقة الثانية نفس الفكرة بالكود بدون حلقات تكرارية

Sub SimpleReplace()
    With Columns(2)
        .Replace "2017", "", xlPart
        .Replace "~*", "", xlPart
    End With
End Sub

والطريقة الثالثة باستخدام المعادلات حيث يمكنك وضع المعادلة التالية في أي عمود فارغ بهذا الشكل

=SUBSTITUTE(SUBSTITUTE(B1,"2017",""),"*","")

 

[حسام عبدالمحسن]

شكرا جزيلا اخوانى الكرام  تم التجربة والحمد لله نجحت

جزاكم الله كل خير