هام وعاجل ارجوكم

[محمدجبالى]

عندى مصنف به 5 ورقات عاوز اعمل التاريخ على سيبل المثال قى D1 فى الورقة الاولى يتساوى معD1 فى الورقة الثانيه ونفس الخليه فى الثالثة والرابعة

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

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

أخي الكريم تستعمل ببساطة المعادلة التالية:

=Sheet1!D1

في الخلية D1 من كل الأوراق من 2 إلى 5...

أخوك بن علية

[يحيى حسين]

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

اضافة لحل الاخ بن علية

جرب الكود التالي في حدث فتح الصفحة حيث سيتم اضافة التاريخ لجميع صفحات المصنف بلا استثناء

 


Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

    ws.Range("d1").Value = Date

Next ws

End Sub

===========

دمتم في حفظ الله

[ابو القبطان]

اخينا الجبالي

وبعد اذن الاساتذة أضيف

لو حددنا كل الاوراق في المصنف ، او اخترنا ورقة ورقة مع زر الشيفت وكتبنا في الورقة الاولى في الخلية المختارة يساوي =TODAY()

ستحصل على نفس النتيجة

[محمدجبالى]

اشكر كل من قام بالرد على طلبى

شكرا الاخ hben والاخ يحى حسين والاخnew4a

ولى طلب عند الاخ يحى كيف ادخل

Private Sub Workbook_Open()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Range("d1").Value = Date

Next ws

End Sub

الى المصنف ولكم جميعا الف شكر

[يحيى حسين]

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

لإضافة الكود على ملفك أخي اتبع الخطوات التالية

• رايت كليك على اسم اي صفحة من صفحات المصنف و منها قم بإختيار View Code .
• ستفتح لكل شاشة VBE و منها ستظهر جميع اسماء صفحات المصنففي مربع حواري على اليمين اذا لم يظهر قم بالضغط على Clr+R .
• ستجد بعد اسم اخر صفحة صفحة تسمى ThisWorkBook دبل كليل عليها.
• ثم قم بإلصاق الكود .

و في كل مرة ستقوم فيها بفتح الملف سيتم تفعيل الكود .

ملاحظة :

اذا كنت تعمل على النسخ 2007 او 2010 يججب ان تحفظ الملف بإمتداد Xlsm حتى يتم تففعيل الكود في كل مرة نفتح فيه الملف .

=================

دمتم في حفظ الله

[محمدجبالى]

[الله يصلح جالك ويبارك فيك وفى امثالك الاخ يحى

التوقيع

***********************

بارك الله فيك

*۩۞۩ ๑ يسلمــــوا وجزيت خيرا๑ *۩۞۩

๑*۩۞۩๑

`v´

( `•.¸

`•.¸ )

¸.•´

( `•.¸

`•.¸ )

`v´

((((`v´))))

((((((((`v´))))))))

((((((((((((((`v´))))))))))))))

(((((((( تحياتى محمد جبالي ))))))))

(((((((((((((())))))))))))))

(((((((´v`)))))))

((((`v´))))ٌ

`v´