ramez قام بنشر يونيو 16, 2005 قام بنشر يونيو 16, 2005 السلام عليكم .. من المعروف عن الدالة ( today ) انها تعطي تاريخ اليوم ويتغير تلقائيا .. ارغب بالدالة التي تعطي تاريخ اليوم ( الآن ) ولاتتغير تلقائيا ..! الا عند استخدام خلية محددة فقط وليس لكامل الورقة كما لاحظته بالنسبة للدالة NoW مثلا ملاحظة :( لاأرغب بماكرو )
علي السحيب قام بنشر يونيو 17, 2005 قام بنشر يونيو 17, 2005 السلام عليكم، راجع أخي الرابط التالي: http://www.officena.net/ib/index.php?showtopic=972 وهذا الرابط أيضاً: http://www.officena.net/ib/index.php?showtopic=4100
ramez قام بنشر يونيو 17, 2005 الكاتب قام بنشر يونيو 17, 2005 أخيLoveCandle .. مع كل تقديري ..( لقد راهنت نفسي انك ستكون السبّاق في الرد ) وهذا ماحدث .. لاأخفيك يا أخي انني بحثت في هذين الرابطين اولا .. ولكن فهمتها ( حسب المامي المتواضع في الاكسل ) انها تحتاج الى انشاء ماكرو ..وانا لاأرغب بماكرو وانما كعمل ( دالة ) .. لقد حاولت الافادة من هذه الروابط وفشلت ..!! التمس التوضيح ..
حسام نور قام بنشر يونيو 17, 2005 قام بنشر يونيو 17, 2005 الحقيقه أخي رامز أن ما تطلبه يحتاج لماكرو ليقوم بالمهمه . ولست أعلم ما سر القطيعه بينك وبين الماكرو ولهذا السبب لا تريد الماكرو الذي يؤدي المهمه على أي حال سأشرح لم وببساطه شديد كيفية تنفيذ ما تريد وبالماكرو . * أفتح ملف الأكسيل المراد تطبيق طلبك عليه . * إضغط 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
حسام نور قام بنشر يونيو 17, 2005 قام بنشر يونيو 17, 2005 (معدل) وهذا كود آخر يقوم بإظهار التاريخ في العمود رقم ( 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 قام بنشر يونيو 17, 2005 الكاتب قام بنشر يونيو 17, 2005 الأخ العزيز حسام نور .. السلام عليكم .. وشكرا لهذا التوضيح لاستفساري.. بالنسبة لعدم رغبتي باستخدام ماكرو هو - انني غالبا ما اتعامل مع الملفات ومن ثم تصديرها الى مؤسسة رسمية وبالتالي فان هذه المؤسسات عادة ما تخشى التعامل مع الماكرو لأسباب أمن ملفاتها وخشيتها من التروجونات اوغيرها . وهذا هو سبب عدم رغبتي في التعامل مع الماكرو في غالب الاحوال . اكرر شكري ..
الردود الموصى بها