بالامس قمت بتصدير ملف اكسل من برنامج خارجي . لكنه صدر لي الارقام بطريقة تكست . ( رقم بس يقراه الكمبيوتر نص ) .
ولازم تقوم تعمل تنسيق الخلايا رقم .
بحثت على الكود الخاص بهذه المشكلة فوجت الكود التالي . وحبيت اطرحة لمن يريد الاستفادة .
Sub ConvertTextNumberToNumber()
For Each WS In Sheets
On Error Resume Next
For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then r.Value = Val(r.Value)
Next
Next
End Sub