أبو يحيى الجبلاوي قام بنشر مارس 4, 2017 قام بنشر مارس 4, 2017 السلام عليك ورحمة الله وبركاته أخواني الأكارم الأعزاء سؤالي هو على الشكل التالي : هل يمكنني تغيير تنسيق خلية بحسب رمز أضعه في خلية أخرى مع امكانية تغيير التنسيق لتغيير الرمز في الخلية كما هو موضوع في الصور التالي : سؤال بالتنسيق.zip
بن علية حاجي قام بنشر مارس 4, 2017 قام بنشر مارس 4, 2017 السلام عليكم ورحمة الله هذا يمكن (ليس في خاصية تنسيق الخلايا Format) باستعمال الدالة CONCATENATE (أو &) غير أن ناتج المعادلة يعطي نصا.... بن علية 1
سليم حاصبيا قام بنشر مارس 4, 2017 قام بنشر مارس 4, 2017 جرب هذا لماكرو Sub format_it() i = 1 Do Until Cells(i, "k") = "" Or Cells(i, "h") = "" my_formul = "#.00 " & Cells(i, "h").Value Cells(i, "k").NumberFormat = (my_formul) i = i + 1 Loop End Sub 2
أبو يحيى الجبلاوي قام بنشر مارس 4, 2017 الكاتب قام بنشر مارس 4, 2017 1 ساعه مضت, بن علية حاجي said: السلام عليكم ورحمة الله هذا يمكن (ليس في خاصية تنسيق الخلايا Format) باستعمال الدالة CONCATENATE (أو &) غير أن ناتج المعادلة يعطي نصا.... بن علية اخي الكريم اذا استخدمت & هل يمكنني الحفاظ على الارقام وقيام عمليات حسابية عليها 1 ساعه مضت, سليم حاصبيا said: جرب هذا لماكرو Sub format_it() i = 1 Do Until Cells(i, "k") = "" Or Cells(i, "h") = "" my_formul = "#.00 " & Cells(i, "h").Value Cells(i, "k").NumberFormat = (my_formul) i = i + 1 Loop End Sub جزاك الله خيرا سأقوم بتجربة الكود ان شاء الله
mohamed elforse قام بنشر مارس 4, 2017 قام بنشر مارس 4, 2017 السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting الملف المرفق : سؤال تنسيق.rar 2
أبو يحيى الجبلاوي قام بنشر مارس 4, 2017 الكاتب قام بنشر مارس 4, 2017 (معدل) 15 دقائق مضت, mohamed elforse said: السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting الملف المرفق : سؤال تنسيق.rar جزاك الله خيرا لم ينجح الأمر في حال اضفت رمز جديد تم تعديل مارس 4, 2017 بواسطه أبو يحيى الجبلاوي
أبو يحيى الجبلاوي قام بنشر مارس 4, 2017 الكاتب قام بنشر مارس 4, 2017 4 ساعات مضت, سليم حاصبيا said: جرب هذا لماكرو Sub format_it() i = 1 Do Until Cells(i, "k") = "" Or Cells(i, "h") = "" my_formul = "#.00 " & Cells(i, "h").Value Cells(i, "k").NumberFormat = (my_formul) i = i + 1 Loop End Sub أخي الكريم جزاك الله خيرا هذا هو المطلوب ولكن واجهتني مشكلة أضع رمز الدولار يظهر التنسيق ر.س أي ريال سعودي واحيانا اذا وضعت رمز جديد تظهر رسالة خطأ على بعض الرموز
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.