أبوســـارة1973 قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 السلام عليكم ورحمة الله وبركاته مع نهاية العام الدراسي 2009-2010 نحتاج إلى استمارات تقويم الأداء الوظيفي للمعلمين ومن خلال متابعتي لمواضيع هذا المنتدى العامر استطعت أن أقوم بتصميم برنامج متواضع لهذا الغرض ولكن أحتاج لبعض التعديلات ليكون متكاملاً المطلوب : في فورم ادخال درجات التقدير و فورم إدخال درجات معلم الرياضة يسمح بإدخال درجات لمعلم قد تم مسبقاً إدخال درجات له ، والمطلوب هو عدم السماح الإدخال لمعلم تم إدخال درجاته ، وفي هذه الحالة المطلوب إظهار رسالة تفيد بذلك ، ويعطي خياراً لتعديل درجاته أو اختيار المعلم التالي الذي لم تدخل له درجات التقويم . والسلام عليكم ورحمة الله abuzainab73_form.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 الأوراق محمية رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 9, 2010 الكاتب مشاركة قام بنشر يوليو 9, 2010 عذرا رقم الحماية :9224 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 بداية اختصرت كود الترحيل شوية Private Sub CommandButton2_Click() Sheets("ÇáßÔÝ2").Select Dim EndRow As Long EndRow = Sheets("ÇáßÔÝ").Range("a3").CurrentRegion.Rows.Count Sheets("ÇáßÔÝ2").Cells(EndRow + 3, 1).Value = ComboBox1.Value For i = 1 To 31 Sheets("ÇáßÔÝ2").Cells(EndRow + 3, i + 1).Value = Me.Controls("TextBox" & i).Value ComboBox1.Value = "" Next i For j = 1 To 34 Me.Controls("TextBox" & i).Value = "" Next j MsgBox Prompt:="ÊãÊ ÚãáíÉ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End Sub رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 السلام عليكم اخي كيماس انت انسان اكثر من رائع وبعيداً عن المجاملة فأنت من الذين نعتز بهم في هذا المنتدى وللفائدة : بما أنك عملت حلقة تكرارية للترحيل فذلك لا يمنع من مسح البيانات من textbox مباشرة بعد عملية الترحيل أو بصورة أوضح يمكنك وضع سطر مسح البيانات بعد سطر الترحيل داخل نفس الحلقة التكرارية مباشرة ولا يوجد من سبب لعمل حلقة تكرارية مستقلة واخراج سطر مسح بيانات ComboBox من الحلقة لان المسح يتم مرة واحدة فقط وليس على عدد مرات التكرار For i = 1 To 34 Sheets("C??O?2").Cells(EndRow + 3, i + 1).Value = Me.Controls("TextBox" & i).Value Me.Controls("TextBox" & i).Value = "" Next i ComboBox1.Value = "" رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 9, 2010 مشاركة قام بنشر يوليو 9, 2010 (معدل) و عليكم السلام ورحمة الله أخيرا حصلت على شهادة أعتز بها من أستاذى و معلمى بداية أرجو المعذرة لأن هذه الفكرة تعلمتها حديثا جدا من معلمى عماد الحسامى بارك الله فيه أما ما تفضلتم به من إدخال المسح مع اللصق بحلقة واحدة و هذا منطقى طبعا و قد هممت به ولكن منعنى منه اختلاف العدد فى المسح عنه فى اللصق أو هكذا هيىء لى أما إفراد ال combobox فلأنه نوع مختلف سيخل بالحلقة عند الربط ب & وقد سقط سهوا منى داخل الحلقة هل هذا عذر مقبول؟ بارك الله فيك تم تعديل يوليو 9, 2010 بواسطه kemas رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 10, 2010 الكاتب مشاركة قام بنشر يوليو 10, 2010 لقد جربت الكود الذي تفضل الأستاذ / kemas به علينا منفرداً مرة ومع تعديل الأستاذ / الحسامي مرة أخرى ولكنهما لا يفيان بالغرض حيث أن المطلوب هو : في حال اختيار معلم قد تم رصد دجات له مسبقاً من combobox1 يظهر رسالة تفيد بذلك ، ويعطي خياراً لتعديل درجاته أو اختيار المعلم التالي الذي لم تدخل له درجات التقويم . أعذروني إذا لم أستطع توصيل الفكرة ولكن عندما تجربون الملف بأنفسكم ستعرفون قصدي من المطلوب شاكراً استجابتكم وتفاعلكم في الموضوع أخوكم أبو سارة رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 10, 2010 مشاركة قام بنشر يوليو 10, 2010 الكود السابق ليس لتنفيذ ما طلبت بل هو لاختصار عدد سطور الكود الأسبق أما ما طلبت فلى سؤال من أين يأخذ مربع السرد القيم حتى نفهم سير البرنامج أكثر رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 10, 2010 الكاتب مشاركة قام بنشر يوليو 10, 2010 (معدل) نعم حتى لاختصار الكود الطويل الموجود في ملفي ، فإن الكود الجديد لا يفي بغرض الكود القديم ولكن المهم عندي الآن والمطلوب بصورة عاجلة هو ما أشرت إليه في مداخلتي السابقة تم تعديل يوليو 10, 2010 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 10, 2010 مشاركة قام بنشر يوليو 10, 2010 هناك خلط كبير جدا بهذا الملف بين الكشف الكشف2 و استخدام حدث التغيير مع مربع السرد هو أساس المشاكل لأنه يعوق عمل كود الترحيل رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 13, 2010 الكاتب مشاركة قام بنشر يوليو 13, 2010 المطلوب الآن هو عند اختيار معلم قد تم مسبقاً إدخال درجاته يعطي رسالة بذلك وإمكانية تغير درجاته أو إدخال درجات لمعلم آخر لم يتم إدخال درجاته . شكراً للجميع رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 17, 2010 الكاتب مشاركة قام بنشر يوليو 17, 2010 هل من مجيب ؟؟؟ رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 21, 2010 الكاتب مشاركة قام بنشر يوليو 21, 2010 up رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يوليو 29, 2010 الكاتب مشاركة قام بنشر يوليو 29, 2010 فيا من يرويني من عذب عيونها فقد ظمئت نفسي وعزّ شراب ؟ رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر أبريل 16, 2011 الكاتب مشاركة قام بنشر أبريل 16, 2011 هل يمكن أحد يساعدني في المطلوب ؟ جزاكم الله خير المطلوب : عند اختيار معلم قد تم مسبقاً إدخال درجاته يعطي رسالة بذلك وإمكانية تغير درجاته أو إدخال درجات لمعلم آخر لم يتم إدخال درجاته . رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر أبريل 18, 2011 الكاتب مشاركة قام بنشر أبريل 18, 2011 جزاكم الله خيرا في انتظار دعمكم رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر أبريل 21, 2011 الكاتب مشاركة قام بنشر أبريل 21, 2011 للرفع رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أبريل 24, 2011 مشاركة قام بنشر أبريل 24, 2011 السلام عليكم تم التعديل في UserForm1 عند اختيار معلم قد تم مسبقاً إدخال درجاته ستظهر بياناته امامك في الفورم وستظهر كلمة تعديل على الزر CommandButton2 عند اختيار معلم لم يتم مسبقاً إدخال درجاته ستظهر كلمة ترحيل على الزر CommandButton2 واذا لم تختار شيئا ستظهر كلمة اختر من القائمة على الزر CommandButton2 وقد تم اختصار الكود وفصل الاكواد حسب آلية عملها شاهد المرفق اكسل 2003 abuzainab73_form.rar رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر أبريل 28, 2011 الكاتب مشاركة قام بنشر أبريل 28, 2011 (معدل) أحسنت أستاذي بارك الله فيك برجاء تطبيق نفس الفكرة على الفورم الثاني الموجود في نفس الملف في ميزان حسناتك إن شاء الله تم تعديل أبريل 28, 2011 بواسطه abusarah73 رابط هذا التعليق شارك More sharing options...
صيام قام بنشر أبريل 29, 2011 مشاركة قام بنشر أبريل 29, 2011 السلام عليكم ورحمة الله وبركاتة استاذى الفاضل لقد جربت كثير من الاكواد التى تفضلت بها ولكن اجربها بدون فهم لذا ارجو منك ولو شرح مبسط عن الاكواد وشكرا رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر مايو 1, 2011 الكاتب مشاركة قام بنشر مايو 1, 2011 أحسنت أستاذي بارك الله فيك برجاء تطبيق نفس الفكرة على الفورم الثاني الموجود في نفس الملف في ميزان حسناتك إن شاء الله لقد اطلعت على الاكواد في الفورم الاول وطبقتها بنفسي على الفورم الثاني ألف شكر لك أستاذي الفاضل لقد تعلمت أشياء كثيرة من هذا الملف ومن غيره من اعمالك المتميزة رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر مايو 1, 2011 مشاركة قام بنشر مايو 1, 2011 جزاكم الله وجعل الله ذلك فى ميزان حسناتكم :clapping: رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر مايو 15, 2011 مشاركة قام بنشر مايو 15, 2011 السلام عليكم ما شاء الله عليك اخي خبور اقل ما يمكن ان يقال عن هذا العمل انه تحفة فنية بكل ما تحمله الكلمة من معنى تحياتي لك ولكل ابناء اليمن السعيد وكان الله في العون رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان