ماكرو ادراج تاريخ اليوم

[حسين مامون]

اخواني في الله

اريد من فظلكم ماكرو ادراج تاريخ اليوم في نطاق محدد من خلايا اكسيل

مثلا من c1:c5 او اي نطاق مكدد

ثم ctrl+s 

ثم في النطاق المحدد يكتب تاريخ اليوم بهذه الشكل

12/07/2016

 

وشكرا

تم تعديل يوليو 12, 2016 بواسطه حسين22

[أبو عبدالله الحلوانى]

هنا ليس موطن الاستفسار الرجاء التوجه لقسم الاكسل بالمنتدى وضع موضوعك هناك لتجد من يساعدك بذلك

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub Test()
    Range("C1:C5").Value = Date
End Sub

ويمكن تعيين مقتاح إختصار لتنفيذ الكود (ولكن يجب الابتعاد عن الاحتصارات المعروفة فالـ Ctrl + S تستخدم لحفظ المصنف .. يمكن استخدام Ctrl + Shift + S بدلاً منها)

[حسين مامون]

في 12/7/2016 at 12:31, حسين22 said:

 

جزاكم الله خيرا

 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الكريم حسين بمثل ما دعوت لنا

[lathe1]

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

[ياسر خليل أبو البراء]

أخي الكريم الكود يقوم بذلك حيث يتم إدراج اليوم كقيمة وليس كمعادلة ..

ولكن إذا تم تنفيذ الكود مرة أخرى سيقوم الكود بتحديث التاريخ في النطاق المحدد ..

إذا لم تفي الإجابة بالغرض يرجى إرفاق ملف معبر عن المطلوب وشرح المعطيات والمطلوب بالتفصيل لمحاولة الإفادة قدر المستطاع