أبحث عن معادلة للوقت فى الإكسيل تكتب الوقت الحالى سيريال عندما نكتب رقم الموظف فى خلية بجانبها

[نورسعيد]

أرجو من الزملاء الأعزاء إيجاد معادلة إكسيل تحسب الوقت الحالى بالساعة والدقيقة والثانية ( SERIAL ) بمجرد كتابة رقم الموظف بالخلية التى بجانبها

أى أن كل وقت خاص بكل موظف حتى لو كان بينه وبين الموظف السابق لة ثانية واحدة دون أن تتأثر مواعيد باقى الموظفين بالوقت الحالى للشيت قبل إغلاقه أى ببساطة عندما أحمع ما بين معادلة IF(ISNUMBER و معادلة NOW تأتى أوقات الشيت كلها واحدة فى نهاية اليوم قبل إغلاق الشيت كلها تصيح مثلآ ملحوظة لم أرفق ملف 14:30:15

[عبدالله المجرب]

لا ارفق ملف ليتم فهم ما تقصده

[نورسعيد]

لا ارفق ملف ليتم فهم ما تقصده

لآ أعرف كيف أرفق ملف أرجو التوضيح من فضالك

[عبدالله المجرب]

شاهد الرابط

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

[عبدالله المجرب]

تم استخدام حدث التغيير ووضع هذا الكود به

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

Target.Offset(0, 1).Value = Format(Now(), "hh:mm:ss")

End If

End Sub

جرب هذا المرفق

الوقت.rar

[نورسعيد]

أشكرك كثيرآ يا أستاذنا على إهتمامك بموضوعى ولكننى كنت أطمع فى أن أنفذها بخليط من معادلات الإكسيل الممكنة فى هذه الحالة من وجة نظركم وإن كنت محرج منك يا أستاذ/ عبد الله للإطالة منى ولعدم معرفتى كيفية إرسال الملف وأخيرآ لك كل التقدير والاإعزاز

[نورسعيد]

الإعزاز وشكرآ

[عبدالله المجرب]

اخي بالمعادلات اعتقد بانه لا يمكن

حيث سيتغير التوقيت كل مرة تفتح فيها الملف او تنشط المعادلة

[نورسعيد]

عذرآ أنا شايف حضرتك حاطط باسوورد فى الفيجوال وانا كنت أتمنى ترسله من غير باسوورد لأنى عايز أتعلم فعلآ ولك كل التقدير والإحترام

[نورسعيد]

يعنى لا يوجد أى إجتهادات فى التحايل وإيقا ف ساعة الشيت المستخدم فى الإكسيل

[نورسعيد]

أرجو ألا أكون قد أزعجتك ولك طبعآ مطلق الحرية فى البحث والرد وأرجو المعذرة منك لن الموضوع فعلآ يستحق الجهد والتعب سواء فى الإكسيل أو الفيجوال أو الكود

وشكرآ

تم تعديل يناير 1, 2012 بواسطه نورسعيد

[عبدالله المجرب]

عذرآ أنا شايف حضرتك حاطط باسوورد فى الفيجوال وانا كنت أتمنى ترسله من غير باسوورد لأنى عايز أتعلم فعلآ ولك كل التقدير والإحترام

اخي نور

لا يوجد اي باسوور في الملف

والا لما كتبت لك الكود

[نورسعيد]

أستاذنا العزيز / عبد الله

والله أنا بأعتذرلك جدآ لأننى لسة مبتدىْ جديد فى الفيجوال وواللهى بحاول أعلم نفسى وواضح إنى فهمت غلط أرجو أخذ هذا فى إعتبارك ولا تزعل منى فأنا مبتدىْ ومجتهد أحاول معرفة كل الأشياء

[نورسعيد]

أقصد العمود المقابل للعمود الأول غير مذكور فى الكود

تم تعديل يناير 1, 2012 بواسطه نورسعيد

[نورسعيد]

أرجو التوضيح أو الشرح

[الـعيدروس]

السلام عليكم

بعد اذن الاستاذ عبدالله

الاخ الفاضل نور سعيد

بأذن الله بهذا الأسلوب سوف تكسب معلومات أكثر بؤقت أقل

بالنسبة لاإستفسارك

هذا السطر من الكود بإستخدام offset ازاحة عمود

Target.Offset(0, 1)

A وعند ازاحة عمود يصير عمود B مثلا لو اردنا ازاحة صف وليس عمود بيكون كالتالي

Target.Offset(1, 0)

ولو أردنا ازاحة عمود وصف مثلا اكتب الاسم في خلية A1 يظهر الوقت في خلية B2 بيصير كذا

Target.Offset(1, 1)

بمعنى معيار دالة OFFSET الاول ( 1,0) لإزاحة صفوف

المعيار الثاني للدالة ( 0,1) لإزاحة اعمدة

هذا والله أعلم

تم تعديل يناير 1, 2012 بواسطه alidroos

[نورسعيد]

أنا والله بأشكركم على المعلومات القيمة وشاكر للأستاذ / عبد الله و للأستاذ / أبو نصار على سعة صدرهم لى وكنت

إدانى رسالة أدخل الباسوورد(Funcres.xls)عايز أوضح للأستاذ / عبد الله إنى أول ما جيت أفتح عنوان فى الفيجوال إسمه

لهذا السبب أنا سألته عن جهل لا كثر ولكم كل تقدير وإحترام

[عبدالله المجرب]

أستاذنا العزيز / عبد الله

والله أنا بأعتذرلك جدآ لأننى لسة مبتدىْ جديد فى الفيجوال وواللهى بحاول أعلم نفسى وواضح إنى فهمت غلط أرجو أخذ هذا فى إعتبارك ولا تزعل منى فأنا مبتدىْ ومجتهد أحاول معرفة كل الأشياء

لا زعل ولا حاجة اخي نور

استمر معنا وستتعلم كل شيء فكلنا بدانا هكذا

[نورسعيد]

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

تم تعديل يناير 1, 2012 بواسطه نورسعيد

[نورسعيد]

أى بمجرد ما نمسح رقم الموظف يمسح معه الوقت وآسف للإطالة عليكم

[الـعيدروس]

بيكون الكود بهذا الشكل

جرب واخبرني بالنتائج

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A2:A100")) Is Nothing Then

Target.Offset(0, 1).Value = Format(Now(), "hh:mm:ss")

If IsEmpty(Target.Value) Then Target.Offset(0, 1).Clear

End If

End Sub

تم تعديل يناير 1, 2012 بواسطه alidroos

[abouelhassan]

كل الاحترام اساتذة وعباقرة

استاذنا عبدالله المجرب

استاذنا ابو نصار

كل الشكر

[ahmed saif]

مشكوررررررررررررررررر

[نورسعيد]

الأستاذ العزيز الفاضل / أبو نصار

أشكر إهتمامك بى وببحثى وسعة صدرك وأخلاقك الكريمة فى العطاء لأخوتك فى المنتدى وجارى تجربة الكود الذى تفضلتم بكتابته لى وجعلكم الله لنا دائمآ عونآ لجميع الأخوةالباحثين والمجتدين

" وتفضلوا بقبول فائق التقدير والإحترام "

[نورسعيد]

الأستاذ العزيز الفاضل / أبو نصار

أنا بطمئن حضرتك إن نتيجة تجربة الكود ممتازة وهايلة ربنا يزيدك علم أكثر مما تتمنى أنت

والله الموفق