دغيدى قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 =TEXT(DATE(YEAR(A5);MONTH(A5);DAY(1));"dddd") لمعرفة أول أيام الشهر =TEXT(DATE(YEAR(A5);MONTH(A5)+1;DAY(1))-1;"dddd") لمعرفة آخر أيام الشهر
هشام شلبى قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 السلام عليكم ======= اكواد هايلة اخى جمال دغيدى ما شاء الله تبارك الله مارايك لو تم دمجهم الى موضوع اكواد الاخ يحياوى حتى تكتمل الثروة
saad abed قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 استاذى وعميدنا م/ جمال دغيدى جزاك الله خيرا ونفعنا بك وبارك الله فيك تحياتى سعد عابد
احمد غانم قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 (معدل) اخي جمال بارك الله جهودك و وفقك للأحسن دوماً بالمناسبه ارجومن جنابك الإطلاع علي الموضوع في المشاركه: http://www.officena....showtopic=39229 دعائي لك بدوام الصحه تم تعديل نوفمبر 11, 2011 بواسطه aghanem
جمال الفار قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 استاذى وعميدنا الغالى الحبيب م/ جمال دغيدى يبدو اننا وحشناك لكى تاتى الينا بكل هذه الكنوز والروائع دمت لنا ابا واستاذا وصديقا غاليا عزيزا عميدنا حببتنا فى اوفيسنا فاحببناك علمتنا فعشقنا العلم منك نورت لنا دروبنا ونحن نسال فرددنا الجميل الاخوننا علمتنا العطاء بدون مقاب علمتنا ان نقبض راتبنا كل ساعة وثانية ودقيقة من اوفيسنا وكان قبضنا هو كلمة جزاك الله خيرا وهى تساوى الدنيا وما فيها وان امتع ما فى الدنيا هو اغاثة السائل علمتنا ان العلم لا يقف عند حد معين وانما العلم والتعلم طول العمر الى الممات عميدنا نحبك ونتمنى لك دوام الصحة والعافية واعرف انى مقصر معك ولكن اعرف ان قلبك ارحب واوسع من ان تغضب من تلاميذك تلميذك البار جمال الفار
ياسر الحافظ قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 استاذى وعميدنا الغالى الحبيب م/ جمال دغيدى يبدو اننا وحشناك لكى تاتى الينا بكل هذه الكنوز والروائع دمت لنا ابا واستاذا وصديقا غاليا عزيزا عميدنا حببتنا فى اوفيسنا فاحببناك علمتنا فعشقنا العلم منك نورت لنا دروبنا ونحن نسال فرددنا الجميل الاخوننا علمتنا العطاء بدون مقاب علمتنا ان نقبض راتبنا كل ساعة وثانية ودقيقة من اوفيسنا وكان قبضنا هو كلمة جزاك الله خيرا وهى تساوى الدنيا وما فيها وان امتع ما فى الدنيا هو اغاثة السائل علمتنا ان العلم لا يقف عند حد معين وانما العلم والتعلم طول العمر الى الممات عميدنا نحبك ونتمنى لك دوام الصحة والعافية واعرف انى مقصر معك ولكن اعرف ان قلبك ارحب واوسع من ان تغضب من تلاميذك تلميذك البار جمال الفار وكذلك من تلميذك ابو الحارث " ياسر الحافظ " اشكرك ( بل نشكرك ) مع تحياتي لاخونا المبدع دائما ابو خالد جمال الفار وفقكم الله ابو الحارث
عبدالله المجرب قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 السلام عليكم كلنا نشكر العميد دغيدي على اعماله التي يقدمها وهذا نفس الناتج بس بالاكواد يوضع الكود في حدث التغيير في ورقة العمل والتاريخ في خلايا العمود 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
دغيدى قام بنشر نوفمبر 11, 2011 الكاتب قام بنشر نوفمبر 11, 2011 اخى عبد الله اثابكم الله على ماتقدمه من خير
بن علية حاجي قام بنشر نوفمبر 11, 2011 قام بنشر نوفمبر 11, 2011 السلام عليكم ورحمة الله أشكر أخانا جمال على الدرر التي يتحفنا بها وبارك الله فيه وجزاه الله عنا ألف خير.. وأستسمحه في المشاركة معه وأقوم بتبسيط طفيف على المعادلة الثانية التي تعطي آخر يوم من الشهر : =TEXT(DATE(YEAR(A5);MONTH(A5)+1;0);"dddd") أخوكم بن علية
دغيدى قام بنشر نوفمبر 11, 2011 الكاتب قام بنشر نوفمبر 11, 2011 (معدل) أخى الفاضل / بن علية السلام عليكم تغيير جميل وتستحق الشكر تم تعديل نوفمبر 11, 2011 بواسطه دغيدى
أ / محمد صالح قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 بارك الله لك أخي واستاذي جمال دغيدي كل عام أنتم بخير معادلة سهلة وخفيفة ورائعة وفقك الله لكل ما يحب ويرضى 1
دغيدى قام بنشر نوفمبر 12, 2011 الكاتب قام بنشر نوفمبر 12, 2011 أخى الفاضل / محمد صــالح مروركم شرف لى أشكركم من قلبى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.