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

[abouelhassan]

السلام عليكم اخوانى 

لدى داتا كبيرة بها ارقام مثال 

 

894.48

٢٦١٥٫٣٥ الرقم الاول

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

على فرض ان الارقام تكمن فى العمود D من D2:D50000

مع خالص الشكر والتقدير

الارقام والنصوص.xlsx

[Saleh Ahmed Rabie]

في 8‏/6‏/2024 at 22:27, abouelhassan said:

السلام عليكم اخوانى 

لدى داتا كبيرة بها ارقام مثال 

 

894.48

٢٦١٥٫٣٥ الرقم الاول

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

على فرض ان الارقام تكمن فى العمود D من D2:D50000

مع خالص الشكر والتقدير

الارقام والنصوص.xlsx 8.67 kB · 1 download

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

يمكنك استخدام الكود التالي في VBA لتحويل الأرقام من النص إلى أرقام:
 

Sub ConvertTextToNumber()
    Dim cell As Range

    For Each cell In Range("D2:D50000")
        If IsNumeric(cell.Value) Then
            cell.Value = CDbl(cell.Value)
        Else
            cell.Value = CDbl(Replace(cell.Value, ",", ""))
        End If
    Next cell
End Sub

 

يقوم هذا الكود بالتحويل التالي:
1. يتحقق مما إذا كانت القيمة رقمية، إذا كانت رقمية فإنه لا يقوم بتغييرها.
2. إذا لم تكن القيمة رقمية، يقوم بإزالة الفواصل الزائدة وتحويل النص إلى رقم.

[abouelhassan]

اولا اشكرك اخي 

الكود. يعطى خطأ 

والله اخى جربت اكواد كثيرة جدااااا ولم تعمل

لذا كتبت الموضوع عسى يمدنا اخونا بكود يعمل

بارك الله فى الجميع 

[Saleh Ahmed Rabie]

7 دقائق مضت, abouelhassan said:

اولا اشكرك اخي 

الكود. يعطى خطأ 

والله اخى جربت اكواد كثيرة جدااااا ولم تعمل

لذا كتبت الموضوع عسى يمدنا اخونا بكود يعمل

بارك الله فى الجميع 

إليك مثال بسيط لاستخدام الكود:

1. افتح برنامج الإكسل وانشئ ورقة عمل جديدة.
2. قم بنسخ ولصق البيانات التالية في الخلايا من D2 إلى D4:

```
123
456.78
1,234.56
```

3. انسخ والصق الكود التالي في المحرر النصي لـ VBA:

Sub ConvertTextToNumber()
    Dim cell As Range
    For Each cell In Range("D2:D4")
        If IsNumeric(cell.Value) Then
            cell.Value = Val(cell.Value)
        Else
            cell.Value = Val(Replace(cell.Value, ",", ""))
        End If
    Next cell
End Sub

 

4. اضغط على زر التشغيل أو اختر "Run" من القائمة لتشغيل الكود.
5. ستلاحظ أن الأرقام في الخلايا D2 و D3 تم تحويلها من النص إلى أرقام، في حين تمت معالجة الفاصلة في الرقم D4 وتحويله إلى رقم أيضًا.

هذا المثال يوضح كيف يمكنك استخدام الكود لتحويل الأرقام من النص إلى أرقام في Excel. 

[abouelhassan]

اشكرك اخى المرفق بالاعلى ولم يعمل

 

[hegazee]

تفضل لعل هذا يكون طلبك

الارقام والنصوص.xlsm

[abouelhassan]

منذ ساعه, hegazee said:

تفضل لعل هذا يكون طلبك

الارقام والنصوص.xlsm 20.94 kB · 1 download

شكرا لك هذا غير مطلوب اخى 

[Saleh Ahmed Rabie]

2 ساعات مضت, abouelhassan said:

شكرا لك هذا غير مطلوب اخى

         

[حسونة حسين]

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

اخى عمليه الاستبدال بسيطه لا تحتاج لاكواد

قم بالاتي

١ - حدد العامود الذي به الارقام

٢ - قم بالضغط على الزر ctrl + h

 ٣ - قم بوضع هذه العلامه 

٫

واستبدلها بهذه

.

وستحل المشكله ان شاء الله وستجد انا الارقام اصبحت سليمه

مع التركيز علي نفس الفاصله قم باخذها copy 

 

[abouelhassan]

منذ ساعه, حسونة حسين said:

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

اخى عمليه الاستبدال بسيطه لا تحتاج لاكواد

قم بالاتي

١ - حدد العامود الذي به الارقام

٢ - قم بالضغط على الزر ctrl + h

 ٣ - قم بوضع هذه العلامه 

٫

واستبدلها بهذه

.

وستحل المشكله ان شاء الله وستجد انا الارقام اصبحت سليمه

مع التركيز علي نفس الفاصله قم باخذها copy 

 

انا بعمل كده اخى في الله وكمان بحول النص الى نمبر احتاج الكود لا ستدعيه من كود أخر فى برنامج وبالتالى يكون عمود الأرقام بعد استدعاؤه جاهز

مشكور اخي 

[حسونة حسين]

جرب هذا الكود 

Sub test()
    Dim cell As Range
    For Each cell In Range("D2:D5000")
        If not IsNumeric(cell.Value) Then
            cell.Value = Val(Replace(cell.Value, "٫", "."))
        End If
    Next cell
End Sub

 

[abouelhassan]

اخى فى الله حسونة حسين

بارك الله فيك اخى الكود حول الارقام التى تحوى فاصلة الى 0 لم ينجح فى تحويلها الى رقم صحيح القرأة كرقم

ده انا سجلت ماكرو بالاستبدال وبردو لم تنجح مش عارف السبب

مشكووور

تم تعديل يونيو 13 بواسطه abouelhassan

[أبوعيد]

جرب هذا

الارقام والنصوص1.xlsm

[AbuuAhmed]

محاولتي حسب فهمي
التشغيل من الكود نفسه.

الارقام والنصوص_02.xlsm

[abouelhassan]

اخى فى الله أبوعيد اشكرك الكود لم يعمل  اخى فى الله AbuuAhmed اشكرك ممتاز الكود ممتاز احتاج شرح بسيط 

 

[abouelhassan]

احتاج تعديل بلكود اخى يعمل من d2 وينفذ التعديل فى نفس العمود لا ينقل المعدل فf كل عام وانتم بخير وصحه وسلامه اشكرك اخي الكريم الحبيب 

[AbuuAhmed]

بدل في رقم الإزاحة (2) واجعله 0
 

Cells(.Row, .Column + 2) = NewValue

 

[abouelhassan]

الف شكر اخى الكريم وكل عام وانتم بخير وصحة

عندما اضفت الكود للبرنامج لدى توقف الكود هنا

    lRow = ActiveCell.SpecialCells(xlLastCell).Row
 

تم تعديل يونيو 15 بواسطه abouelhassan

[AbuuAhmed]

كل عام وأنتم بخير
احرص تضيف الكود في موديول الصفحة نفسها أفضل من إضافته في موديول عام، أو أن تختار الصفحة الهدف أولا قبل تشغيل الكود.
عدل في السطر بأن تضغ بعد علامة = رقم آخر سطر في الصفحة بدلا من الأمر مثلا: lRow = 300

 

[abouelhassan]

شكر وتقدير واحترام من اخيك