تحديث تلقائى لتاريخ محدد

[ناصرالمصرى]

ملاحظة : تم تعديل المشاركة لاعادة بعض الردود الى حذفت عن طريق الخطأ.

المشاركة الأصلية:

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

أتسأل عن إماكنية تثبيت تاريخ محدد مع تحديثه كل 12 شهر بطريقة تلقائية

مثالا على ذلك

اريد معادلة لتثبيت تاريخ 2019/7/1  فى خلية واحدة  بحيث يتم تحديث هذا التاريخ كل 12 شهر بمعنى أنه مع نهاية يوم 6/30 من كل عام يتم التحديث الى 2020/7/1 ومع نهاية يوم 2020/6/30 يتم التحديث الى 2021/7/1 وهكذا لباقى السنوات " أمد الله فى عمركم "

شاكر فضل حضراتكم وجزاكم الله خيرا

ثم تم اضافة المرفق التالي فى مشاركة لاحقة من الأخ عبد الفتاح

بعناية الاستاذ الفاضل - عبد الفتاح.xls

و تلاه الرد التالي من لأخ ناصر

جزاكم الله خيرا أخى الفاضل الاستاذ / عبد الفتاح

لتوضيح ما أعنيه ولتقريب وجهة النظر أضفت فى الخلية H2 معادلة لتحديث تاريخ بداية الشهر الحالى تلقائيا

بمعنى عند تغير تاريخ الجهاز الى 2020/6/1 سيتغير التاريخ تلقائيا ولمدة شهر كامل وهكذا

المطلوب بإذن الله تعالى هذا بعد طلب الإذن من سيادتكم تطبيق نفس الفكرة على التاريخ المعنى بالموضوع 

ألا وهو 2019/7/1 مضاف اليه 12 شهر  بحيث يتم تحديثه تلقائيا  مع نهاية 6/30 من كل عام " أمد الله فى عمركم " 

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

 

[ناصرالمصرى]

المطلوب بإذن الله تعالى معادلة نستطيع من خلالها تحديث التاريخ تلقائيا

بصفه سنوية اعتبارا من 2019/7/1 كما هو موضح بالمرفق بالمشاركة رقم 1 

شاكر فضلكم جميعا

[ناصرالمصرى]

غير تاريخ الجهاز الى 2020/6/30 ثم إضغط على مفتاح F9

لمعرفة ما أعنيه المطلوب تطبيق نفس المعادلة ولكن من خلال خلية واحدة فقط

أعتقد الفكرة قد وصلت **** شكرا جزيلا

[مهند محسن]

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

فتم تغيير تاريخ الكمبيونر كما قلت الى 30/06/2020 ثم الضغط على F9 ولكن كما ترى للأسف لم يتغير اى شيء ولم افهم ما تريده نهائياً

 

 

[ناصرالمصرى]

أخى الفاضل

بداية لا داعى للإعتذار فكلنا هنا للتعليم والتعلم .... أما عن فكرة الموضوع فتم توضيحها توضيحا كاملا  

لكن للأسف تم حذف هذة المشاركة  بعد رد اخى الفاضل الاستاذ / عبد الفتاح حيث انه صاحب الحل المبدئى للمعادلة المبينة من داخل المرفق أعلاه .

نأتى لمعادلة الاستاذ الفاضل / عبد الفتاح فهى تعمل بشكل جيد ولكن دون تحديث تلقائى

=IF(AND(TODAY()<=EDATE(A2;12)-1;TODAY()+1>=EDATE(A2;12));EDATE(A2;12);"")

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

=DATE(YEAR(TODAY());MONTH(TODAY());1)

ومفادها أن تاريخ الشهر الحالى يظل ثابتا حتى نهايته ويتم تحديثه تلقائيا الى الشهر التالى بتغير ساعة الويندوز

نفس الفكرة أريد تطبيقها ولكن لعام كامل بداية من 2019/7/1 بحيث مع نهاية يوم 2020/6/30 يتم تحديث بداية العام الى 2020/7/1 تلقائيا

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

[الرائد77]

جرب  هذا 

7 معادلات مختلفة .. أختتر ما يناسبك

DAATES.xls

[ناصرالمصرى]

شكرا لك أخى وأستاذى

 أدرك  أن الموضوع قد يكون مُحير *** لكنى على ثقة بالله أولا ثم بكم أنه قد يكون

 لقد أخترت هذة المعادلة *** برجاء الاطلاع على المزيد من التوضيح

 شاكر فضل حضرتك وجزاكم الله خيرا

DAATES+22222.xls

[الرائد77]

تفضل .  لك  ما  طلبت 

الكوود في حدث  ورقة العمل. التاريخ  في الخلية d1  للا يتغيير  الا  في 01  جوييلية من كل سنة و يببقى ثابت في الخللية الى 01/07 القادم

يمكنك  تغيير  تتاريخ االجهاز و التجريب. 

daate ffin.xlsm

[ابراهيم الحداد]

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

عفوا اخى الكريم اجعل الكود بهذا الشكل يعمل معك مدى الحياة

فقط يمكنك التعديل من خلال الكود الخلية تريد ظهور التاريخ فيها

و الشكر موصول لاخى الرائد77

Private Sub Workbook_Open()
Dim i As Integer
i = Year(Date)
j = Month(Date)
If j < 7 Then
Sheets("Sheet3").Range("A1").Value = "7 / 1 / " & i - 1
Else
Sheets("Sheet3").Range("A1").Value = "7 / 1 / " & i
End If
End Sub

 

[ناصرالمصرى]

شكرا لحضراتكم جميعا وجزاكم الله خيرا

أخى ابو زيزو *** ماذا لو أردت تكرار هذا التاريخ الى أخر سطر يحتوى على بيانات

أرجو الإفاده بارك الله فيكم

تم تعديل مايو 29, 2020 بواسطه ناصرالمصرى

[أحمد يوسف]

ناصرالمصرى
هل انت من أنصار عدم الضغط على الإعجاب وتقدير مجهود الأساتذة الذين لهم الفضل عليك بعد ربنا فى حل مشكلتك وهذا اقل ما يقدم لهم على مجهوداتهم وأوقاتهم المهدرة معك فى حل مشكلتك ؟!!
يجب عليك الضغط على الإعجاب ؟!!!💙