اذهب الي المحتوي
أوفيسنا

الى خبراء الفواتير


الردود الموصى بها

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

عندي مشكلة ولم استطيع ان اجد لها حل وهي انني اريد التاريخ والوقت يبقى ثابتاً

بمعنى انني اذا ادخلت دالة ()NOW= سيظهر لي الوقت مع التاريخ ولكن سيتغير مع مرور الوقت وانا ارغب ان يبقى ثابتاً

اي ان يعطيني تاريخ ووقت العملية بدون تغيير

وشكراً

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

أخي هنوووي إذا لم ترد إستخدام الكود فعليك إدخالها بالطريقة اليدوية حتى لا يتغير التاريخ، أي أن تكتب التاريخ بطريقة عادية جداً.

بأن تكتب في الخلية:

12/01/2009  4:00 م
وأن تجعل تنسيق الخلية بالشكل التالي:
dd/mm/yyyy hh:mm AM/PM

تم تعديل بواسطه أكرم الغامدي
رابط هذا التعليق
شارك

اخوي اكرم شكراً لك على الرد

ولكن اذا كان لابد من استخدام الكود المذكور اعلاه ياليت تكتب لي الكود كاملاً وجاهز للنسخ لانني ما عرف اسوبه

لانه سيكون افضل من اليدوي

واكون شاكر لك

رابط هذا التعليق
شارك

السلام عليكم

اولا اضافة Module

ثم انسخي الكود و الصقيه في Module

يمكنك استخدام الاشكال التقائية كزر ( رسم شكل من شريط الرسم ثم كلك بالزر الايمن للماوس نختار تعيين ماكرو و من صندوق الحورا اختاري اسم الماكرو ( t_now ) ثم موافق

Public Sub t_now()
  ActiveCell.Value = now
End Sub

رابط هذا التعليق
شارك

السلام عليكم

و بعد اذن الاخوة المشاركين

جربي الكود لتالي

ActiveCell.Value = Date

عموما مرفق مثال و لو لم يكن المطلوب برجاء ارسال ملف يوضح المطلوب

تحياتي

_____________.rar

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

السلام عليكم

و بعد اذن الاخوة المشاركين

جربي الكود لتالي

ActiveCell.Value = Date

عموما مرفق مثال و لو لم يكن المطلوب برجاء ارسال ملف يوضح المطلوب

تحياتي

اخي الفاضل بالنسبة لملفك الذي ارفقته هذا هو المطلوب 100% ولكن لم اجد الاكواد !!

اذا كان بالامكان شرح الاكواد لكي اطبقها

ولك جزيل شكري

رابط هذا التعليق
شارك

السلام عليكم

الاخت هنوووي

اخي الفاضل بالنسبة لملفك الذي ارفقته هذا هو المطلوب 100% ولكن لم اجد الاكواد !!

لا طبعا توجد اكواد وهذا هو الكود المكتوب و شرحه

Private Sub Worksheet_Change(ByVal Target As Range) في حدث التغيير
If Target.Column = 8 Then  اذا كانت عمود الخلية المحدده هو العمود 8
If Target <> "" Then  اذا كانت قيمة الخلية المحدده بها قيمه
Cells(Target.Row, Target.Column + 1) = Date  الخليه المقابله لها في العمود 9 تساوي تاريخ اليوم
End If
End If
End Sub

مرفق ملف يشرح كيفية الوصول للكود

تحياتي

hnoy.rar

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information