أبوســـارة1973 قام بنشر مايو 23, 2014 قام بنشر مايو 23, 2014 السلام عليكم ورحمة الله وبركاته المطلوب أخواني تصميم فورم متعدد الصفحات ( لكل ظرف صفحة ) بحيث يقوم بتدوين محتوى خلية الرقم السري في اليبل والدرجة في التكست بوكس لترحيل الدرجة ، وفي حال أن الدرجة مدخلة مسبقاً يعرض الدرجة ويتحول زر ( الإدخال ) إلى ( تعديل ) أرجو أن اكون قد وفقت لشرح المطلوب مساؤكم عسل marks.rar
أبوســـارة1973 قام بنشر مايو 24, 2014 الكاتب قام بنشر مايو 24, 2014 السلام عليكم لقد أضفت الفورم المطلوب ولكن بدون أكواد أرجو ممن له القدرة أن يساعدني في بناء الأكواد marks2.rar
شوقي ربيع قام بنشر مايو 24, 2014 قام بنشر مايو 24, 2014 السلام عليكم صراحتا لم افهم السؤال او الطلب جيدا لاكن صممت لك فورم ديناميكي حيث تكون اليبل او التكسات لكل ضرف مهما كان عددها ديناميكيا وزر للتعديل او الاضافة معا ارجو ان يلبي طلبك رصد الدرجات.rar 1
أبوســـارة1973 قام بنشر مايو 26, 2014 الكاتب قام بنشر مايو 26, 2014 الأستاذ الفاضل / شوقي ربيع شكراً لك على هذا المجهود الرائع في ميزان حسناتك إن شاء الله هذا هو المطلوب بالضبط ، ولكن لو تسطيع ان أن تضيف عليه : 1- التكست بوكس يقبل فقط الدرجات من ( 0 - 100 ) أو ( غائب ) فقط 2- زر الإدخال يكون فقط عندما تدخل الدرجات لأول مرة وعندما يتم تغيير الدرجة يتحول إلى (تعديل ) شكراً لك مرة أخرى فورم الدرجات1.rar
أبوســـارة1973 قام بنشر يونيو 8, 2014 الكاتب قام بنشر يونيو 8, 2014 السلام عليكم الأستاذ شوقي ربيع شكرا لك على تعاونك مازال الملف بدون التعديل المطلوب التكست بوكس يقبل فقط الأرقام من (0 ) إلى (100) , أو ( غائب )
أبوســـارة1973 قام بنشر يونيو 11, 2014 الكاتب قام بنشر يونيو 11, 2014 السلام عليكم هل يمكنكم مساعدتي في المطلوب ؟
أبوســـارة1973 قام بنشر يونيو 11, 2014 الكاتب قام بنشر يونيو 11, 2014 (معدل) كيف سيكون التعديل على الكود إذا كنت أريد أن أحدد فقط الخلايا لحد الصف رقم 33 مثلاً بدلاً من كونه حالياً حتى آخر صف في االشيتLr = Cells(Rows.Count, "B").End(xlUp).Row تم تعديل يونيو 11, 2014 بواسطه أبوســـارة1973
أبوســـارة1973 قام بنشر يونيو 12, 2014 الكاتب قام بنشر يونيو 12, 2014 (معدل) للرفع تم تعديل يونيو 12, 2014 بواسطه أبوســـارة1973
أبوســـارة1973 قام بنشر يونيو 13, 2014 الكاتب قام بنشر يونيو 13, 2014 كيف سيكون التعديل على الكود إذا كنت أريد أن أحدد فقط الخلايا لحد الصف رقم 33 مثلاً بدلاً من كونه حالياً حتى آخر صف في االشيت Lr = Cells(Rows.Count, "B").End(xlUp).Row
شوقي ربيع قام بنشر يونيو 13, 2014 قام بنشر يونيو 13, 2014 احذف هذا الكود Lr = Cells(Rows.Count, "B").End(xlUp).Row واين تجد عبارة lr استبدلها ب الرقم الذي تريده
أبوســـارة1973 قام بنشر يونيو 13, 2014 الكاتب قام بنشر يونيو 13, 2014 شكرا لقد عدلت الكود وهو يعمل 100% جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.