وضع قيمة افتراضية لمربع نص

[محمد الجريتلي]

الأساتذة الاعزاء

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

اولا احب اشكركم على المجهود الرائع من كل المشاركين

و جزاكم الله خيرا عني و عن كل من استفاد من هذا المنتدى المفيد و الهادف

و لي اقتراح أو رأي : ارجو من الاساتذة الذين يجيبون على الاستفسارات ان يوضحو خطواط الحل وأن يتركو الملفات مفتوحة حتى نتعلم طريقة الحل و ليس فقط تحميل ملف يتضمن مصنف به المطلوب.

و لي استفسار بسيط انا اعمل على ملف رواتب و اريد ان اضع في خلية تاريخ اليوم بصفة دائمة و لكن يمكن ان نعدله الى اي تاريخ اخر

بحيث عندما نفتح المصنف مرة اخري يكون فى الخلية تاريخ اليوم

و شكرا

[عادل حنفي]

السلام عليكم

اخي

اتمني ان يكون ما فهمته هو المطلوب

تحياتي

Book1.rar

[محمد الجريتلي]

استاذي العزيز

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

انا شاكر جدا على هذا الاهتمام و انا لم اكن اتخيا ان يصلني الرد في اقل من 24 ساعة

و لقد كانت الاجابة هي المطلوبه فعلا

ولي طلب بسيط ارجو ان توضح خطوات الحل حتى تتم الفائدة و استفيد من الطريقة في ملفات اخرى

و جاك الله عني الف خير و جعله الله في ميزان حسناتك و نفع بعلمك

محمد الجريتلي

[amoudi]

السلام عليكم

تجاوبا مع الموضوع في

http://www.officena.net/ib/index.php?showtopic=27133

اضع الكود الموجود في المرفق ب

Private Sub Workbook_Open()
    Sheets("sheet1").Range("A6").Formula = "=Now()"
End Sub

او

Private Sub Workbook_Open()
    [sheet1!A6] = "=Now()"
End Sub

تم تعديل فبراير 26, 2009 بواسطه amoudi

[dayslife]

الف شكر على المعلومة

بارك الله فيكم

[محمد الجريتلي]

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

والله يا جماعة انا عاجز عن الشكر انا فعلا استفدت

جعله الله في ميزان حسناتك

و شكرا