abouelhassan قام بنشر يونيو 8 مشاركة قام بنشر يونيو 8 السلام عليكم اخوانى لدى داتا كبيرة بها ارقام مثال 894.48 ٢٦١٥٫٣٥ الرقم الاول رفم اما الثانى فهو نص اقوم بنسخ الفواصل من الرقمين واستبدل الفاصلة الثانية بالاولى لتحويل الارقم ل ارقم بدل من نص حاولت تسجيل ماكرو وفشل مش عارف ليه احتاج لكود تحويل الكل على فرض ان الارقام تكمن فى العمود D من D2:D50000 مع خالص الشكر والتقدير الارقام والنصوص.xlsx رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر يونيو 10 مشاركة قام بنشر يونيو 10 في 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. إذا لم تكن القيمة رقمية، يقوم بإزالة الفواصل الزائدة وتحويل النص إلى رقم. 2 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 10 الكاتب مشاركة قام بنشر يونيو 10 اولا اشكرك اخي الكود. يعطى خطأ والله اخى جربت اكواد كثيرة جدااااا ولم تعمل لذا كتبت الموضوع عسى يمدنا اخونا بكود يعمل بارك الله فى الجميع رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر يونيو 10 مشاركة قام بنشر يونيو 10 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. رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 10 الكاتب مشاركة قام بنشر يونيو 10 اشكرك اخى المرفق بالاعلى ولم يعمل رابط هذا التعليق شارك More sharing options...
hegazee قام بنشر يونيو 12 مشاركة قام بنشر يونيو 12 تفضل لعل هذا يكون طلبك الارقام والنصوص.xlsm رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 12 الكاتب مشاركة قام بنشر يونيو 12 منذ ساعه, hegazee said: تفضل لعل هذا يكون طلبك الارقام والنصوص.xlsm 20.94 kB · 1 download شكرا لك هذا غير مطلوب اخى رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر يونيو 12 مشاركة قام بنشر يونيو 12 2 ساعات مضت, abouelhassan said: شكرا لك هذا غير مطلوب اخى رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر يونيو 12 مشاركة قام بنشر يونيو 12 وعليكم السلام ورحمة الله وبركاته اخى عمليه الاستبدال بسيطه لا تحتاج لاكواد قم بالاتي ١ - حدد العامود الذي به الارقام ٢ - قم بالضغط على الزر ctrl + h ٣ - قم بوضع هذه العلامه ٫ واستبدلها بهذه . وستحل المشكله ان شاء الله وستجد انا الارقام اصبحت سليمه مع التركيز علي نفس الفاصله قم باخذها copy 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 12 الكاتب مشاركة قام بنشر يونيو 12 منذ ساعه, حسونة حسين said: وعليكم السلام ورحمة الله وبركاته اخى عمليه الاستبدال بسيطه لا تحتاج لاكواد قم بالاتي ١ - حدد العامود الذي به الارقام ٢ - قم بالضغط على الزر ctrl + h ٣ - قم بوضع هذه العلامه ٫ واستبدلها بهذه . وستحل المشكله ان شاء الله وستجد انا الارقام اصبحت سليمه مع التركيز علي نفس الفاصله قم باخذها copy انا بعمل كده اخى في الله وكمان بحول النص الى نمبر احتاج الكود لا ستدعيه من كود أخر فى برنامج وبالتالى يكون عمود الأرقام بعد استدعاؤه جاهز مشكور اخي رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر يونيو 12 مشاركة قام بنشر يونيو 12 جرب هذا الكود 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 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 13 الكاتب مشاركة قام بنشر يونيو 13 (معدل) اخى فى الله حسونة حسين بارك الله فيك اخى الكود حول الارقام التى تحوى فاصلة الى 0 لم ينجح فى تحويلها الى رقم صحيح القرأة كرقم ده انا سجلت ماكرو بالاستبدال وبردو لم تنجح مش عارف السبب مشكووور تم تعديل يونيو 13 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يونيو 14 مشاركة قام بنشر يونيو 14 جرب هذا الارقام والنصوص1.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة AbuuAhmed قام بنشر يونيو 14 أفضل إجابة مشاركة قام بنشر يونيو 14 محاولتي حسب فهمي التشغيل من الكود نفسه. الارقام والنصوص_02.xlsm 3 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 14 الكاتب مشاركة قام بنشر يونيو 14 اخى فى الله أبوعيد اشكرك الكود لم يعمل اخى فى الله AbuuAhmed اشكرك ممتاز الكود ممتاز احتاج شرح بسيط رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 15 الكاتب مشاركة قام بنشر يونيو 15 احتاج تعديل بلكود اخى يعمل من d2 وينفذ التعديل فى نفس العمود لا ينقل المعدل فf كل عام وانتم بخير وصحه وسلامه اشكرك اخي الكريم الحبيب رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يونيو 15 مشاركة قام بنشر يونيو 15 بدل في رقم الإزاحة (2) واجعله 0 Cells(.Row, .Column + 2) = NewValue 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 15 الكاتب مشاركة قام بنشر يونيو 15 (معدل) الف شكر اخى الكريم وكل عام وانتم بخير وصحة عندما اضفت الكود للبرنامج لدى توقف الكود هنا lRow = ActiveCell.SpecialCells(xlLastCell).Row تم تعديل يونيو 15 بواسطه abouelhassan رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر يونيو 15 مشاركة قام بنشر يونيو 15 كل عام وأنتم بخير احرص تضيف الكود في موديول الصفحة نفسها أفضل من إضافته في موديول عام، أو أن تختار الصفحة الهدف أولا قبل تشغيل الكود. عدل في السطر بأن تضغ بعد علامة = رقم آخر سطر في الصفحة بدلا من الأمر مثلا: lRow = 300 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يونيو 16 الكاتب مشاركة قام بنشر يونيو 16 شكر وتقدير واحترام من اخيك رابط هذا التعليق شارك 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.