ازاله الكومة

[بلانك]

المطلوب ازاله الكومة من خلف الرقم او امام الرقم

ازالة علامة.xlsx

[hegazee]

تفضل

ازالة علامة.xlsx

[بلانك]

استاذي hegazee لو سمحت انظر للصورة مازالت الكومة موجودة في شريط الدالة وعندى ملف بة عدد كبير من هذة الاشكال اريد منك معرفة الطريقة او الكود المستخدم بارك الله فيك

 

•  

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

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

Sub حذفالكومة()
    Dim c As Range
    Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual: Application.EnableEvents = False
    
    For Each c In ActiveSheet.UsedRange
        If VarType(c.Value) = vbString Then
            Dim txt As String: txt = Trim(c.Value)
            If Left(txt, 1) = "'" Then txt = Mid(txt, 2)
            If Right(txt, 1) = "'" Then txt = Left(txt, Len(txt) - 1)
            If txt <> c.Value Then c.NumberFormat = "@": c.Value = txt
        End If
    Next c
    
    Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic: Application.EnableEvents = True
End Sub

ازالة علامة.xlsm

 

تم تعديل منذ 1 ساعه بواسطه عبدالله بشير عبدالله