Asc to Excel Feeware فية مشكلة

[بلانك]

تنسيق الخلايا فيه مشكله كما بالملف المرفق

asc.xlsx

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

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

أرى أن المشكلة تتعلق بالفاصلة التي تسبق تاريخ اليوم وهي تستخدم عادة لإظهار شكل المعادلة دون نتيجتها.

فلو حددت كل التواريخ على هذه الورقة واستخدمت البحث و الاستبدال 

تبحث عن الفاصلة المذكورة وتستبدلها بفراغ، أو تقوم بحذفها يدويا 

والله أعلم.

[AbuuAhmed]

بالأكواد من زر

asc2Text_02.xlsm

[بلانك]

تمام بارك الله فيك وجزاك كل الخير استاذنا أبو أحمد

[AbuuAhmed]

تم تنقيح الكود
سابقا لو ضغطت الزر أكثر من مرة فسوف يبدل النتائج مع كل ضغطة
أما الآن سيبدلها مع الضغطة الأولى فقط.
 

Sub Date2Text()
    Const sRow = 7, eRow = 23
    Const sCol = 2, eCol = 36
    Dim Row As Integer, Col As Integer
  
    Application.EnableEvents = False
    Application.ScreenUpdating = False
   
    For Row = sRow To eRow
        For Col = sCol To eCol
            With Cells(Row, Col)
                If .NumberFormat = "d-mmm" Then
                    .NumberFormat = "@"
                    If .Value <> "" Then
                        .Value = Month(.Value) & "-" & Day(.Value)
                    End If
                Else
                    .NumberFormat = "@"
                End If
            End With
        Next Col
    Next Row
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    MsgBox "Done"
End Sub

 

[AbuuAhmed]

تنقيح أخير، أصبح فيه الكود سطر واحد فقط 🙂 
 

Sub Date2Text()
    Range("B7", "AJ23").NumberFormat = "m-d"
End Sub

 

[بلانك]

بارك الله فيك هذا هو الفضل وزيادة .جمعة مباركة عليك