سؤال عن إمكانية تغيير تنسيق الخلية بحسب خلية آخرى

[أبو يحيى الجبلاوي]

السلام عليك ورحمة الله وبركاته 
أخواني الأكارم الأعزاء سؤالي هو على الشكل التالي :
هل يمكنني تغيير تنسيق خلية بحسب رمز أضعه في خلية أخرى مع امكانية تغيير التنسيق لتغيير الرمز في الخلية كما هو موضوع في الصور التالي :
 

سؤال بالتنسيق.zip

[بن علية حاجي]

السلام عليكم ورحمة الله

هذا يمكن (ليس في خاصية تنسيق الخلايا Format) باستعمال الدالة CONCATENATE (أو &) غير أن ناتج المعادلة يعطي نصا....

بن علية

[سليم حاصبيا]

 جرب هذا لماكرو

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

 

[أبو يحيى الجبلاوي]

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]

السلام عليكم ورحمة الله وبركاتة

تحية طيبة وبعد 

مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting 

الملف المرفق : سؤال تنسيق.rar

[أبو يحيى الجبلاوي]

15 دقائق مضت, mohamed elforse said:

السلام عليكم ورحمة الله وبركاتة

تحية طيبة وبعد 

مرفق الملف بتغيير المبلغ الي مبلغ + شكل العملة مع الحفاظ علي خاصية الرقم باستخدام conditional formatting 

الملف المرفق : سؤال تنسيق.rar

جزاك الله خيرا لم ينجح الأمر في حال اضفت رمز جديد

 

تم تعديل مارس 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

 

أخي الكريم جزاك الله خيرا هذا هو المطلوب ولكن واجهتني مشكلة أضع رمز الدولار يظهر التنسيق ر.س  أي ريال سعودي واحيانا اذا وضعت رمز جديد تظهر رسالة خطأ على بعض الرموز