عامر ياسر قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 أساتذتي الكبار والمبدعين الملف يحتوي على جدول دروس اسبوعي فيه الشرح ثقتي بكم عالية للوصول الى طريقة في مساعدتي في اكمال الجدول جزاكم الله كل خير على كل ما تقدموه لنا من علم وخبره بارك الله فيكم داعيا لكم المولى عز وجل ان يجعل هذه الاعمال يأرب في ميزان حسناتكم وكم تعلمنا من هذا المنتدى العظيم دائما نطمع زيادة في اثراء الموضوع حبا منا لكم وحبا في هذا المنتدى العظيم وزيادة في العلم فمن يستطيع ان يقدم لنا الحل بالكود فخير ونعمه. اكرر شكري وامتناني لكل الأساتذة الكرام جزاهم الله كل خير ومحبه وتوفيق وشكرا جدول الدروس الاسبوعي 2015-2016.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 أخي الكريم عامر ياسر كل عام وأنت بخير اطلعت على الملف ولم أقهم المطلوب بشكل جيد .. هلا أوضحت الخلايا المطلوب جلب البيانات منها والخلايا المطلوب جلب البيانات إليها (اضرب مثال أو مثالين لتتضح الفكرة) رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر يوليو 10, 2016 الكاتب مشاركة قام بنشر يوليو 10, 2016 استاذنا الكريم ياسر خليل أبو البراء في شيت جدول توزيع الحصص بيانات ثابته للمعلمين وحصصهم والدروس التي يقومون بتدريسها حسب كل صف وشعبة اسم الشعب أ و ب ............... في جدول الدروس الاسبوعي تجلب المواد الدراسية مع رقم المعلم بحيث لا يتكرر رقمه في الدرس مثلاً الاول ليوم الاحد ارجو ان الشرح واضع وعذرا للتأخير في الاجابة ............اتمنى ان لا اكون ثقيلاً عليكم بأسئلتي ارجو المعذره رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 ممكن مثال أو مثالين للتوضيح ..والأفضل أن تتكلم بلغة الإكسيل ..أي مثلاً تقول النتيجة المتوقعة في الخلية كذا هي كذا .. وذلك بناءً على المعطيات الموجودة في الورقة كذا والخلية كذا أرجو ألا أكون أثقل عليك بإلحاحي بالتوضيح والتفصيل رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر يوليو 10, 2016 الكاتب مشاركة قام بنشر يوليو 10, 2016 عذرا للتاخير بعض التعديلات اتمنى ان يكون الشرح واضح ( الشرح داخل الملف ) جدول الدروس الاسبوعي تعديل.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 أخي الكريم صدقني ما زال الموضوع غامض بالنسبة لي .. أخبرتك أن تتحدث بلغة الإكسيل .. ما هي ورقة العمل المطلوب العمل عليها؟ ما هو النطاق المراد جلب البيانات منه؟ ما هو النطاق المراد جلب البيانات إليه؟ وهل المطلوب جلب بيانات من جدول لجدول ؟ أم أن المطلوب توزيع الحصص حسب جدول ما؟ وإذا كان الطلب توزيع للحصص فما هي شروط التوزيع بالتفصيل؟ الموضوع يحتاج لمزيد من الشرح (بلغة الإكسيل) رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر يوليو 10, 2016 الكاتب مشاركة قام بنشر يوليو 10, 2016 استاذنا الكريم ياسر خليل أبو البراء تم طرح السؤال بطريقة مختلفة ارجو ان تكون واضحة والشرح موجود داخل الملف عذرا لقد اتعبتكم وازعجتكم في سؤالي ولكن طمعي بكرمكم فأنتم اهل لذلك جدول الدروس الاسبوعي المعدل.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 أخي الكريم عامر ياسر يبدو لي أن الطلب مختلف تماماً عما قمت بتوضيحه من قبل عموماً حسب الملف المرفق الأخير ..قم بوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C8:AD40")) Is Nothing Then If IsNumeric(Target) And Application.WorksheetFunction.CountIf(Range(Cells(Target.Row, 3), Cells(Target.Row, 30)), Target.Value) > 1 Then MsgBox "No Way. Duplicate!", 64 End If End If End Sub 1 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر يوليو 10, 2016 الكاتب مشاركة قام بنشر يوليو 10, 2016 شكرا شكراشكرا شكراشكرا شكراشكرا شكراشكرا شكراشكرا شكرا اخ كريم ( استاذ ياسر خليل أبو البراء) على سرعة الاستجابة وهذا حقا ما اريده.... يجعله الله فى ميزان حسناتكم 1 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر يوليو 10, 2016 الكاتب مشاركة قام بنشر يوليو 10, 2016 ابدعتم في اجابتكم استاذنا الكريم ( ياسر خليل أبو البراء) بقى سؤال هل يمكن اذا وجد الرقم مكرر يقوم البرنامج بعدم ادراجة في الخلية ..... ارجو ان يكون السؤال واضح ... ربنا يحفظكم بحفظه انه سميع الدعاء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 جرب التعديل التالي ليناسب طلبك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C8:AD40")) Is Nothing Then If IsNumeric(Target) And Application.WorksheetFunction.CountIf(Range(Cells(Target.Row, 3), Cells(Target.Row, 30)), Target.Value) > 1 Then Application.EnableEvents = False Target.ClearContents MsgBox "No Way. Duplicate!", 64 Target.Activate Application.EnableEvents = False End If End If End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان