سؤال عن كيف تحديث الخلية عند اضافة قيمة من خلال الكود ؟

[رمهان]

اعزائي واحبتي بمنتدى الاكسل  المحترمين

نحن نعلم انه عند ادخال قيمة بخلية معينة ثم الضغط على انتر (زر الادخال ) يتم تطبيق التنسيق على القيمة وتراه ظاهر . فلو مثلا تاريخ ستتم المحاذاه يمين او رقم . 

السؤال : لو تم اضافة القيمة من خلال الكود ومثلا تاريخ اريد محاكاة كانك ادخلت القيمة ثم انتر لترى التنسيق المطبق ؟

باختصار كيف ترى لحظيا تطبيق التنسيق على الخلية بعد ادخال القيمة من خلال الكود وليكن الكود التالي

sub abc
range("a1")="1/1/2017"
end sub

وهناك تنسيق مطبق على الخلية السابقة . اريد ان ارى التنسيق مباشرة بعد تشغيل الكود السابق والذي يقوم بادخال القيمة برمجيا

هذا ولكم الشكر مقدما

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

للتاريخ اضافة خاصة في الكود

يجب استعمال الاشارة #

في الكود يجب كتابة الشهر اولاً   ثم اليوم   وثم السنة   و فيما بعد تطلب من الكود التنسيق

Sub My_date()
    Range("b2") = #2/15/2010#
    Range("b2").NumberFormat = "dd/mm/yyyy"
End Sub

يمكن الاستغناء عن السطر الثالث في الكود اذا كان التنسيق في الخلية معرف مسبقاً

تم تعديل مارس 8, 2017 بواسطه سليم حاصبيا

[رمهان]

شكرا استاذ سليم

الان خلينا حبة حبة لكي نوصل ما اريد ان شاء الله

اذهب للخلية a1  ضع التنسيق تاريخ هجري ثم ادخل تاريخ هجري . ليش لم يتعرف عليه انه تاريخ وتكون المحاذاه يمينا ؟

تحياتي

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

2 دقائق مضت, رمهان said:

شكرا استاذ سليم

الان خلينا حبة حبة لكي نوصل ما اريد ان شاء الله

اذهب للخلية a1  ضع التنسيق تاريخ هجري ثم ادخل تاريخ هجري . ليش لم يتعرف عليه انه تاريخ وتكون المحاذاه يمينا ؟

تحياتي

ليس لدي الخبرة الكافية للتاريخ الهجري

[رمهان]

شكرا استاذ سليم

اللي انا عايز اوصل له وللعلم فقط وربما ياتي لك الحل لاحقا

اذهب للخلية a1 وضع التنسيق تاريخ هجري ثم ضع علامة صح على الخيار اسفل والذي يقول اعتماد التاريخ المدخل حسب التقويم المحدد

هنا راح يتعرف عليه كتاريخ ويذهب لليمين .

السؤال : تمت العمليه يدوية . فكيف تتم من خلال الكود ويتعرف عليه زي الحاله اليدويه اعلاه ؟

تحياتي 

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

ربما ينفع هذا الكود

Sub My_date2()
    Range("A6") = #3/25/2017#
   Range("A6").NumberFormat = "[$-1170000]B2dd/mm/yyyy;@"
End Sub

 

[رمهان]

استاذ سليم 

انت هنا ادخلت تاريخ ميلادي بينما انا اريد المدخل تاريخ هجري . ففي العملية اليدويه اعلاه بعد ادخال التاريخ الهجري مع ضبط التنسيق السابق سيتعرف عليه كتاريخ

اريد القيمه تاريخ هجري

مشكور جدا

 

[رمهان]

للرفع

 

[رمهان]

للرفع الاخير