أبو ندى المصري قام بنشر يناير 28 مشاركة قام بنشر يناير 28 السلام عليكم عندى برنامج لا يدعم الاكسيل وتم سحب البيانات PDF ومن ثم تم تحويلها الى اكسيل ولكن تنسيق الارقام لا تقبل التغيرات المطلوب طريقة لتحويل التنسيق الى رقم ويتم عمل معادلات عليه يوجد مثال للملف مع العلم بأن الملف الأصلى كبير جداً مع خالص الشكر والتقدير sample 101.xlsx رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يناير 28 مشاركة قام بنشر يناير 28 (معدل) - قف على أي خلية بها رقم وانسخ الفاصلة العشرية - ظلل عمود الأرقام - اعمل عملية استبدال للكل من صندوق البحث بعد لصق الفاصلة المنسوخة وفي صندوق النص البديل ضع الفاصلة حسب قسم الأرقام من لوحة المفاتيح. ستتحول كل البيانان النصية إلى رقمية وستضطر إلى عملية تنسيق رقمي للعمود. أو استخدم هذه الشفرة: 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 بواسطه AbuuAhmed 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.