أبو يحيى الجبلاوي قام بنشر مارس 4, 2017 مشاركة قام بنشر مارس 4, 2017 السلام عليك ورحمة الله وبركاته أخواني الأكارم الأعزاء سؤالي هو على الشكل التالي : هل يمكنني تغيير تنسيق خلية بحسب رمز أضعه في خلية أخرى مع امكانية تغيير التنسيق لتغيير الرمز في الخلية كما هو موضوع في الصور التالي : سؤال بالتنسيق.zip رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مارس 4, 2017 مشاركة قام بنشر مارس 4, 2017 السلام عليكم ورحمة الله هذا يمكن (ليس في خاصية تنسيق الخلايا Format) باستعمال الدالة CONCATENATE (أو &) غير أن ناتج المعادلة يعطي نصا.... بن علية 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 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 رابط هذا التعليق شارك More sharing options...
أبو يحيى الجبلاوي قام بنشر مارس 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 جزاك الله خيرا سأقوم بتجربة الكود ان شاء الله رابط هذا التعليق شارك More sharing options...
mohamed elforse قام بنشر مارس 4, 2017 مشاركة قام بنشر مارس 4, 2017 السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting الملف المرفق : سؤال تنسيق.rar 2 رابط هذا التعليق شارك More sharing options...
أبو يحيى الجبلاوي قام بنشر مارس 4, 2017 الكاتب مشاركة قام بنشر مارس 4, 2017 (معدل) 15 دقائق مضت, mohamed elforse said: السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting الملف المرفق : سؤال تنسيق.rar جزاك الله خيرا لم ينجح الأمر في حال اضفت رمز جديد تم تعديل مارس 4, 2017 بواسطه أبو يحيى الجبلاوي رابط هذا التعليق شارك More sharing options...
أبو يحيى الجبلاوي قام بنشر مارس 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 أخي الكريم جزاك الله خيرا هذا هو المطلوب ولكن واجهتني مشكلة أضع رمز الدولار يظهر التنسيق ر.س أي ريال سعودي واحيانا اذا وضعت رمز جديد تظهر رسالة خطأ على بعض الرموز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان