كبف اضع التاريخ

[بابا نؤيل]

السلام عليكم اخواني

هذه اول مشاركة لي اتمنى ان احصل على الاجابة منكم

كيف يمكنني من وضع التاريخ لهذا اليوم مع بقائه ثابتا عند فتح الملف بعد عدة ايام اي لايتم تحديثه ويبقى كما هو عند انشاء الملف

طبعا اريد ان لايكون التاريخ مكتوب يدويا بل اوتوماتيكيا مثلا باستخدام دالة او شيء اخر

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

ارجو ان اكون قد وضحت الفكرة

مع تقديري لكم

[بابا نؤيل]

للرفع

[أبوعبد الله]

أخي العزيز

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

تحياتي

أبو عبدالله

INSERT_DATE.rar

[بابا نؤيل]

شكرا اخي على سرعة الرد

ولكن المطلوب هو ان يوضع التاريخ بشكل اوتوماتيكي في مكان محدد وليكن في الخلية A1 اي بمجرد انشاء الملف

مع شكري وتقديري لك اخي الكريم

[معتصم محمد]

قُم بتجربة الكود التالى

سيقوم بإدراج التاريخ تلقائياً فى الخلية A1 عند فتح الملف الذى يحتوى على هذا الكود

Sub Auto_Open()
    Today_Is
End Sub
Sub Today_Is()
'
' Macro1 Macro
' Macro recorded 3/19/2009 by Moatasem

'
    Range("A1").Select
    Selection.FormulaR1C1 = "=TODAY()"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

الكود تم إعداده بواسطة مُسجل الماكرو

الملف المرفق يوجد به الكود جاهز

ملحوظة : يُمكنك إدراج تاريخ اليوم مباشرة كقيمة ثابته وليست متغيرة بواسطة الضغط على Ctrl + ;

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

Insert_Date.rar

تم تعديل مارس 19, 2009 بواسطه al m3tasem

[أبوعبد الله]

أخي العزيز

لم أفهم قصدك على هذا النحو وعليه تم تعديل الملف ليناسب طلبك .

تحياتي

أبو عبدالله

INSERT_DATE.rar

[بابا نؤيل]

شكرا لك اخي على الرد وفعلا هذا هو المطلوب