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

كود ادراج تاريخ اليوم


إذهب إلى أفضل إجابة Solved by أبو حنــــين,

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

بارك الله فيك أخي و أستاذنا القدير / أبا أحمد

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

date.rar

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

الاخ ابو ردينه بارك الله فيك

الاخ ابو حنين مشكورا على الرد

ولكنى ارى رد الاخ ابو ردينه الاكثر مناسبا لما اريده

ولكنى اريد استخراج اسم الشهر ايضا واسم اليوم كل فى خليه مستقله

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

  • أفضل إجابة

يمكنك كتابة الكود التالي


Private Sub Workbook_Open()

With ورقة1

.Range("C1") = Month(Now)

.Range("B1") = Day(Now)

.Range("A1") = Format(Day(Now), "ddd")

.Range("D1") = Year(Now)

End With

End Sub

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

الاخ ابو حنين

كود جميل ورائع

ولكنى مازلت على امل الحصول على كود مثل كود الاخ ابو ردينه

اعتقد بأن كود الاخ ابو حنين يفي بالغرض

اتمنى التوضيح اكثر بطلبك الحصول على كود مثل كود لاخ ابو ردينة

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

الاخوه الكرام

اولا احيكم بتحيه الاسلام

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

وكل عام والامه المسلمه بخير

انا اجد ان كود الاخ ابو حنين

لايكون فعال الا عند فتح الملف

بمعنى انه عند فتح الملف يتم ادراج التاريخ واليوم والسنه والشهر

ولكن اذا قمنا بتغير التاريخ والملف مفتوح يظل التاريخ كما هو

وانا اريد فى هذه الحاله ان يتم تغير التاريخ على حسب التاريخ المختار

وهذا ما وجدته فى كود الاخ ابو ردينه

بارك الله فيكم

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

الاخ عبد الله

الاخ ابو حنين

الاخ ابو ردينه

بارك الله فيكم

ولكن توجد مشكله فى الكود

هى ان اسم الشهر رغم اننا فى شهر يوليو الا ان اسم الشهر يظهر على اننا فى شهر يناير

خزينه.rar

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

  • 2 years later...

السلام عليكم

اخي يمكنك ذلك من خلال تنسيق خلايا ثم رقم ثم نختار مخصص ونكتب فيه { dd/mm/yyyy hh:mm }

لاحظ الصورة المرفقة

تقبل وافر احترامي وتقديري

 

2z7qpa.jpg

 

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

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.

×
×
  • اضف...

Important Information