المساعده فى ضبط فرمات الوقت او كود لصبط الامر

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام

ارجو المساعده فى ضبط فرمات العمود G  و H

تلك الاعمده يتم كتابه وقت خروج ووقت دخول

لاكن عند كتابه الوقت حتى لو انه مساء اى بعد الظهر يتم كتابته صباحا مثل  08:10 ص

ويتطلب الامر الدخول وتغير حرف ص الى  م

هل من حل سواء كود او فرمات عند كتابه الوقت والوقت الفعلى بعد الظهر يتم كتابه م بعد الوقت ولو الوقت الفعلى صباحا  يتم كتابه ص

هل من حل 

ضبط وقت.rar

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

أخي الكريم إذا أردت أن تكتب 1:00 م قم بكتابة رقم 13 ثم : (نقطتين فوق بعض)

الفورمات يعمل بنظام الـ 24 ساعة

جرب 8:00 م اكتب 20 ثم : واضغط إنتر

[۩◊۩ أبو حنين ۩◊۩]

اخى الكريم ياسر.... تقبل الله منك صيامك وقيامك وجميع المسلمين

جزاك الله خير 

الا ان العاملين على الملف قد لا يستطيع حساب الوقت بنظام 24 

لانه يقوم بتسجيل وقت خروج ودخول ...خرح الساعه 7 الصبح ..رجع الساعه :2:20 بعد الظهر 

قد لا يستطيع جعلها 14:20

هل من حل يراعى المستخدم انه قد لا يستطيع تحويل الوقت الى نظام 24

تم تعديل يوليو 2, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

[أ / محمد صالح]

تسهيلا على مدخل البيانات

سواء كان يجيد أو لا يجيد كتابة نظام الوقت 24

تم تعديل الملف بحيث يتم الضغط على زر F1 من لوحة المفاتيح ليتم كتابة الوقت الحالي في الخلية النشطة

تم إضافة ماكرو لكتابة الوقت الحالي في الخلية النشطة

واستدعاء الماكرو مع الضغط على f1 عند فتح المصنف 

بإذن الله يكون المطلوب

mas_ضبط وقت.rar

[۩◊۩ أبو حنين ۩◊۩]

الاخ الكريم محمد صالح

رمضان كريم ... واسال الله ان يزيد كم حسناتك وتكون اقرب الى الله 

اخى الحبيب

عند تشغيل الكود تظهر خطاء 1004

ويتم تلوين السطر بالون الاصفر    "Application.OnKey "{f1}", "mas

وهل يمكن تحديد عمل الكود على العمودين من h5  الى g17

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

[أ / محمد صالح]

لا أدري سبب ظهور الخطأ عندك

الملف يعمل 100% عندي

ولكن

لاحظ أنه تم إضافة هذا الكود عند فتح المصنف

Private Sub Workbook_Open()
Application.OnKey "{f1}", "mas"
End Sub

وهو يعني تنشيط الماكرو mas عندالضغط على زر f1

وكذلك تم إضافة موديول جديد به الإجراء mas

Sub mas()
ActiveCell = Format(Now, "hh:nn:ss ampm")
End Sub

ومعناه وضع الوقت الحالي بتنسيق

الساعة والدقيقة والثانية وصباحا/مساءا 

في الخلية النشطة

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب أ/ محمد 

جزاك الله خير 

الاخ  الكريم محمد 

وهل يمكن تحديد عمل الكود على العمودين من h5  الى g17

[أ / محمد صالح]

لعمل ما تريد

يمكنك تغيير الماكرو mas إلى ما يلي

Sub mas()
If Not Intersect(ActiveCell, Range("g5:h17")) Is Nothing Then
ActiveCell = Format(Now, "hh:nn:ss ampm")
End If
End Sub

وفقنا الله وإياكم لكل ما يحب ويرضى

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

قبل صلاه العشاء والتراويح 

حبيب اجى واقول جزاك الله كل الخير