تحويل ارقام وهمية الى ارقام حقيقة

[رسول هادي]

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

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

ارقام ولكن ليست ارقام.rar

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

اكتب هذه المعادلة في الخلية B1 و اسحب نزولاً

اذا لم تعمل معك المعادلة استبدل الفاصلة  "," بفاصلة منقوطة ";"

 

=SUBSTITUTE(TRIM(A1),CHAR(32),"")*1

لتصبح هكذا

=SUBSTITUTE(TRIM(A1);CHAR(32);"")*1

 

[رسول هادي]

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

14. 64   يصبح 14.64  وهذا غير صحيح. ارجو ايجاد حل لمشكلة عكس الرقم وشكرا

الارقام معكوسة.rar

تم تعديل ديسمبر 2, 2016 بواسطه رسول هادي

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

الملف يعمل عندي بكل كفاءة

انظر المرفق

 

ارقام ولكن ليست ارقام salim.rar

[رسول هادي]

شكرا على الاجابة السريعة ولكن ارجو الملاحظة ان الرقم يكون معكوس  ابتداء من خلية c3

تم تعديل ديسمبر 2, 2016 بواسطه رسول هادي

[أبو حنــــين]

السلام عليكم

جرب هذا الكود

Sub iConvert()
    Dim C As Range
    For Each C In Range("A1:A89")
    With C
    .NumberFormat = "#,##0.00"
    .Value = StrReverse(WorksheetFunction.Substitute(.Value, " ", ""))
    End With
    Next
End Sub

 

3 ساعات مضت, رسول هادي said:

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

 

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

ارقام ولكن ليست ارقام.rar

 

[خالد الشاعر]

استاذ رسول

ارجو ان يكون هذا الكل المطلوب

الارقام معكوسة.rar

[رسول هادي]

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

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

استعمل هذه المعادلة الموجودة في الملف

 

ارقام ولكن ليست ارقام salim1.rar