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

معرفة اول وآخر أيـــام الشهر


دغيدى

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

اخي جمال بارك الله جهودك و وفقك للأحسن دوماً

بالمناسبه ارجومن جنابك الإطلاع علي الموضوع في المشاركه:

دعائي لك بدوام الصحه

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

استاذى وعميدنا الغالى الحبيب م/ جمال دغيدى

يبدو اننا وحشناك لكى تاتى الينا بكل هذه الكنوز والروائع

دمت لنا ابا واستاذا وصديقا غاليا عزيزا

عميدنا حببتنا فى اوفيسنا فاحببناك

علمتنا فعشقنا العلم منك

نورت لنا دروبنا ونحن نسال فرددنا الجميل الاخوننا

علمتنا العطاء بدون مقاب

علمتنا ان نقبض راتبنا كل ساعة وثانية ودقيقة من اوفيسنا

وكان قبضنا هو كلمة جزاك الله خيرا

وهى تساوى الدنيا وما فيها

وان امتع ما فى الدنيا هو اغاثة السائل

علمتنا ان العلم لا يقف عند حد معين وانما العلم والتعلم طول العمر الى الممات

عميدنا نحبك ونتمنى لك دوام الصحة والعافية

واعرف انى مقصر معك

ولكن اعرف ان قلبك ارحب واوسع من ان تغضب من تلاميذك

تلميذك البار

جمال الفار

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

استاذى وعميدنا الغالى الحبيب م/ جمال دغيدى

يبدو اننا وحشناك لكى تاتى الينا بكل هذه الكنوز والروائع

دمت لنا ابا واستاذا وصديقا غاليا عزيزا

عميدنا حببتنا فى اوفيسنا فاحببناك

علمتنا فعشقنا العلم منك

نورت لنا دروبنا ونحن نسال فرددنا الجميل الاخوننا

علمتنا العطاء بدون مقاب

علمتنا ان نقبض راتبنا كل ساعة وثانية ودقيقة من اوفيسنا

وكان قبضنا هو كلمة جزاك الله خيرا

وهى تساوى الدنيا وما فيها

وان امتع ما فى الدنيا هو اغاثة السائل

علمتنا ان العلم لا يقف عند حد معين وانما العلم والتعلم طول العمر الى الممات

عميدنا نحبك ونتمنى لك دوام الصحة والعافية

واعرف انى مقصر معك

ولكن اعرف ان قلبك ارحب واوسع من ان تغضب من تلاميذك

تلميذك البار

جمال الفار

وكذلك من تلميذك ابو الحارث " ياسر الحافظ "

اشكرك ( بل نشكرك )

مع تحياتي لاخونا المبدع دائما ابو خالد جمال الفار

وفقكم الله ابو الحارث

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

السلام عليكم

كلنا نشكر العميد دغيدي على اعماله التي يقدمها

وهذا نفس الناتج بس بالاكواد

يوضع الكود في حدث التغيير في ورقة العمل والتاريخ في خلايا العمود A



Private Sub Worksheet_Change(ByVal Target As Range)

Set xx = Application.WorksheetFunction

a = Target.Value

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("a2:a100")) Is Nothing Then

Target.Offset(0, 1) = xx.Text(DateSerial(Year(a), Month(a), 1), "dddd")

Target.Offset(0, 2) = xx.Text(DateSerial(Year(a), Month(a) + 1, 1) - 1, "dddd")

End If

Set xx = Nothing

End Sub

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

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

أشكر أخانا جمال على الدرر التي يتحفنا بها وبارك الله فيه وجزاه الله عنا ألف خير.. وأستسمحه في المشاركة معه وأقوم بتبسيط طفيف على المعادلة الثانية التي تعطي آخر يوم من الشهر :

=TEXT(DATE(YEAR(A5);MONTH(A5)+1;0);"dddd")

أخوكم بن علية

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

بارك الله لك أخي واستاذي جمال دغيدي

كل عام أنتم بخير

معادلة سهلة وخفيفة ورائعة

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

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

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

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



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

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

Important Information