عبدالله المجرب

بسم الله الرحمن لرحيم اولاً . اخي الفاضل احمد فضيله شكراً لمرورك. ثانياً . استاذ نارت أ. ما احوجنا لمثلكم لطرح الافكار في سبيل العمل على التطوير والعمل بجودة واتقان حتى لو كان هناك المزيد من الجهد ففي سبيل رد جزء ولو بسيط من كرم أوفيسنا علينا ولن نوفي فلا بأس من ذلك. ب. هل المقصود ان يتم استثناء المواضيع التي نوقشت وحلت في فترات سابقه (ان كان الجواب نعم) ، فهنا لي توضيح فالمراد من هذه النشرة هو كمرجع يمكن الرجوع اليه للبحث بسرعة عن المواضيع التي تمت مناقشتها في المنتدى ولو اكتفينا بالنزر اليسير من المواضيع التي ستطرح فأظن لن تستمر النشرة بسبب ان المنتدى على حسب ما اتوقع قد ناقش كل الممكن في عالم الاوفيس ولو ان اي شخص اراد الاستفادة من الموجود وقام بالبحث في محرك قوقل (البحث المتخصص) لوجد الخير الكثير، كماان الاستاذ محمد طاهر قد نوه من قبل لمثل هذه المسألة ولكن بخصوص المشاركات الغير فاعلة وقد تم العمل بهذا المقترح ضمن حدود تفسيري للمقترح فان كان لديكم تصور اخر فكلي أذانُ صاغية وكلي شكر وإمتنان لشخصكم الكريم لهذه اللفته الكريمة. جـ. نرجو منك التكرم بوضع افكار يمكن العمل بها لتطوير النشرة. ثالثاً . جميع الاخوة الاعضاء الرجاء ممن لديه اي مقترح ان يضعه في سبيل الوصول الى عمل أفضل. والله ولي التوفيق ابواحمد

اخي ارفق الملف للنظر فيه فيمكن ان تجد من يساعدك ابواحمد

اخي الفاضل اهلاً بك بين إخوانك لارفاق ملف يجب عليك ضغطه بالوينرار او الوينزيب ثم ارفاقه او راجع الرابط التالي http://www.officena.net/ib/index.php?showtopic=31250 ابواحمد

أخي مجدي تفضل الشرح المرفق ابواحمد الشرح.rar

السلام عليكم اخي رضاء اهلاً وسهلاً بك بين إخوانك اين المرفق؟؟؟ ابواحمد

استاذ نارت بكل سرور ، ومشاركتك اسعدتني نعم هناك متسع للاقتراح وتلافي الاخطاء والتطوير ابواحمد

اخي الفاضل الخطاء في الكود الثاني هو في كتابة عنوان الخلايا بالحروف الانجليزية الصغيرة ("$m$20") و ("$n$20") و ( "$o$20") وهذا الكود بعد التعديل Sub ss() Dim cl As Range For Each cl In Sheets(1).[m20:o22] t = cl.Value a = cl.Address If a = "" Then t = "" If a = "$M$20" Then Sheets(2).[I7] = t If a = "$N$20" Then Sheets(2).[J13] = t If a = "$O$20" Then Sheets(2).[K13] = t Next cl End Sub

اخي محمد تفضل المرفق فيه زرين الاول للترحيل بدون مسح البيانات المرحلة الثاني للترحيل مع مسح المبيانات المرحلة وللتنبيه فعند خلو اول خلية (A2) من البيانات ستظهر رسالة تنبيهية بعدم وجود بيانات لترحيلها راجع الاكواد واي جزء لم تفهمه انا مستعد للشرح ابواحمد Posting.rar

استاذ نارت جُدت علينا بكرمك الادبي والاخلاقي معاً فشكراً لك وان ما نبذله في خدمة هذا المنتدى ليس الا نقطة في بحر ما يجود به علينا ======== اتمنى من الجميع من لديه اي ملاحظة ان يبديها ليتسنى التطوير في النشرة والله الموفق ابواحمد

اخي حسام على فرض ان تاريخ انضمام العامل للشركة في الخلية A1 وتاريخ خروجه على الاجازة في الخلية B1 ضع هذه المعادلة في الخلية C1 ولاحظ النتيجة =INT((B1-A1)/30) اما بالنسبة لشرط بداية السنة وعدم تطابق الشرط مع تاريخ توظيف العامل نرجو لمزيد من التوضيح والله اعلم ابواحمد

بسم الله الرحمن الرحيم النشرة الدورية لمواضيع المنتدى - العدد الرابع http://www.officena....s/news%2004.htm و سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر و ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى مرفق الملف فى صيغة Pdf news 04.pdf

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

ملف في غاية الروعة اللمسات الابداعية ظاهرة في الملف الاستاذ محمد طاهر يكفي انك انت من عمل هذا العمل ليكون بهذه الروعة سلمت وسلمت يمينك تقبل مروري وتحياتي ابواحمد

اخي مجدي سوال كيف لمعادلة ان تخفي معادلة؟؟ هل هذا ممكن؟؟ ام ان القصد غير ذلك (بالكود مثلاً) ابواحمد

الاستاذ (الابن) أحمد زمان ابداع X ابداع سلمت يمينك ابواحمد

اخي الفاضل تفضل المرفق مع الشكر للاستاذ جمال الفار ابواحمد زر كود لعمل دائرة على الخلية النشطة.rar

اخي مجدي ما رايك بهذا الحل ابواحمد اخفاء المعادلة.rar

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

العفو منك اخي حاتم فلم اقم الا باقل من واجبي ارحب بك مرة اخرى بين اخوانك ابواحمد

اخي جو11 شكراً لمرورك اخي ommare شكراً لمرورك ابواحمد

اخي حاتم استبدل الكود التالي Private Sub CommandButton2_Click() KH_A End Sub بالكود التالي Private Sub CommandButton2_Click() KH_A TextBox2.Value = Application.WorksheetFunction.Text(Now(), "yyyy/mm/dd") End Sub وكذلك قم بتعديل هذا الكود (زر التعديل) Private Sub CommandButton1_Click() Dim R As Integer, N As Integer, Endrow As Integer For R = 0 To 10 If Me.Controls(myCon(R)).Text = "" Then N = N + 1 Next Me.MousePointer = 11 With Sheets("info") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1 For R = 0 To 10 .Cells(Endrow, R + 1).Value = Me.Controls(myCon(R)).Value Next R End With KH_A ActiveWorkbook.Save Me.MousePointer = 0 MsgBox "تمت الأضافة بنجاح" 1 End Sub ليصبح Private Sub CommandButton1_Click() Dim R As Integer, N As Integer, Endrow As Integer For R = 0 To 10 If Me.Controls(myCon(R)).Text = "" Then N = N + 1 Next Me.MousePointer = 11 With Sheets("info") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1 For R = 0 To 10 .Cells(Endrow, R + 1).Value = Me.Controls(myCon(R)).Value Next R End With KH_A ActiveWorkbook.Save Me.MousePointer = 0 MsgBox "تمت الأضافة بنجاح" TextBox2.Value = Application.WorksheetFunction.Text(Now(), "yyyy/mm/dd") 1 End Sub والله اعلم ابواحمد

ايش ها الرموز يا ابا الحارث هههههههههه تقبل مروري *ملاحظة (استخدم الدالة OFFSET لعمل القائمة المنسدلة)

ما شاء الله عمل مميز واقول ما قاله الاستاذ نارت ابواحمد

اخي جمال الفار نشاط ملحوظ وردود مبدعة سلمت يمينك ابواحمد

اخي حاتم محمد عماد الدين اهلاً وسهلاً بك بين إخوانك تفضل المرفق بعد التعديل عليه ابواحمد 9.rar