كود تحويل تنسيق الارقام النصية الي ارقام

[محمد الزريعي]

بالامس قمت بتصدير ملف اكسل من برنامج خارجي .  لكنه صدر لي الارقام بطريقة تكست . ( رقم بس يقراه الكمبيوتر نص ) . 

ولازم تقوم تعمل تنسيق الخلايا رقم . 

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

 

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

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

بارك الله فيك أخي الكريم محمد الزريعي وجزيت خيراً

يرجى وضع الأكواد بين أقواس الكود لتظهر بشكل منضبط

انقر على العلامة التالية <> ثم ضع أسطر الكود بينها .. ليظهر بهذا الشكل

 هنا أسطر الكود ضع

تقبل تحياتي

[محمد الزريعي]

حاضر اساتذتي الكرام .. هذا الكود // للمعذرة ماكنت اعرف هذه الطريقة  

 

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