تحويل نص الى تنسيق رقم نستطيع عمل معادلات عليه

[أبو ندى المصري]

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

sample 101.xlsx

[AbuuAhmed]

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

أو استخدم هذه الشفرة:
 

Sub Macro1()
    Sheets("101").Select
    
    If Asc(Mid(Range("C2"), Len(Range("C2")) - 2, 1)) <> 63 Then
        MsgBox "يبدو أنه قد تمت المعالجة من قبل"
        Exit Sub
    End If
    
    Columns("C:C").Select
    Selection.Replace What:=Mid(Range("C2"), Len(Range("C2")) - 2, 1), Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "#,##0.00"
    
    MsgBox "Done"
End Sub

 

تم تعديل يناير 29, 2024 بواسطه AbuuAhmed