ابحث عن دالة ( الآن ) وليس غدا !!

[ramez]

السلام عليكم ..

من المعروف عن الدالة ( today ) انها تعطي تاريخ اليوم ويتغير تلقائيا ..

ارغب بالدالة التي تعطي تاريخ اليوم ( الآن ) ولاتتغير تلقائيا ..! الا عند استخدام خلية محددة فقط وليس لكامل الورقة كما لاحظته بالنسبة للدالة NoW مثلا

ملاحظة :( لاأرغب بماكرو )

[علي السحيب]

السلام عليكم،

راجع أخي الرابط التالي:

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

وهذا الرابط أيضاً:

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

[ramez]

أخيLoveCandle ..

مع كل تقديري ..( لقد راهنت نفسي انك ستكون السبّاق في الرد ) وهذا ماحدث ..

لاأخفيك يا أخي انني بحثت في هذين الرابطين اولا ..

ولكن فهمتها ( حسب المامي المتواضع في الاكسل ) انها تحتاج الى انشاء ماكرو ..وانا لاأرغب بماكرو وانما كعمل ( دالة ) ..

لقد حاولت الافادة من هذه الروابط وفشلت ..!!

التمس التوضيح ..

[حسام نور]

الحقيقه أخي رامز أن ما تطلبه يحتاج لماكرو ليقوم بالمهمه . ولست أعلم ما سر القطيعه بينك وبين الماكرو ولهذا السبب لا تريد الماكرو الذي يؤدي المهمه

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

* أفتح ملف الأكسيل المراد تطبيق طلبك عليه .

* إضغط Alt+F11 من لوحة المفاتيح

* الآن ستظهر لك شاشه كبيره على الجهة اليسرى سترى أسماء أوراق العمل الموجوده لديك بالملف

* أضغط على أسم الورقه المطلوب وضع الماكرو بها

* الآن أنسخ الماكرو التالي وضعه عل الجهة اليمنى في الشاشه التي تحتوي على أسم ورقة العمل التي كنا بها من قليل

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then
  Range("E3") = Now()
End If
End Sub

* الآن ما تحتاج لتغييره بالكود السابق حسب وضع الخلايا لديك هوا كالتالي .

السطر الثاني من الكود موجود به رقم ( 2 ) وهو رقم العمود الذي ستقوم بكتابة أي شيء به ليظهر التاريخ تلقائياً في الخليه ( E3 ) الموجوده بالسطر الثالث من الكود

السطر الثالث من الكود موجود به الخليه ( E3 ) الذي تريد أن يظهر بها التاريخ تلقائياً . يمكن تغييره حسب رقم الخليه التي تريد أن يظهر بها التاريخ والوقت أو التاريخ فقط حسب تنسيق الخليه .

فهل أتضحت الصوره ؟

Now.zip

[حسام نور]

وهذا كود آخر يقوم بإظهار التاريخ في العمود رقم ( 8 ) في الخليه المقابله لما كتبت في العمود رقم ( 1 )

السطر الثاني من الكود به رقم العمود الذي ستكتب به البيانات

السطر الثالث من الكود به رقم العمود الذي تريد أن يظهر به التاريخ

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Column = 1 Then
   Cells(Target.Row, 8) = Now()
 End If
End Sub

Now_2.zip

تم تعديل يونيو 17, 2005 بواسطه حسام نور

[ramez]

الأخ العزيز حسام نور ..

السلام عليكم .. وشكرا لهذا التوضيح لاستفساري..

بالنسبة لعدم رغبتي باستخدام ماكرو هو

- انني غالبا ما اتعامل مع الملفات ومن ثم تصديرها الى مؤسسة رسمية وبالتالي فان هذه المؤسسات عادة ما تخشى التعامل مع الماكرو لأسباب أمن ملفاتها وخشيتها من التروجونات اوغيرها .

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

اكرر شكري ..