اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

بمعنى انني اذا ادخلت دالة ()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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information