هشام شلبى

السلام عليكم =========== الاخ اشرف شاهد المرفق الجمع بشروط من عدة شيتات.rar

السلام عليكم ========== بارك الله فيك ورحمك اخى ابو العقاب شاهد المرفق ابو العقاب1.rar

السلام عليكم =========== اخى ابو البراء اخى kemas بارك الله فيكما الاخ ابو العقاب ولاثراء الموضوع شاهد المرفق ابو العقاب.rar

السلام عليكم ========== الاخ الحبيب واستاذى احمد يعقوب بارك الله لك فى صحتك وادام الله عليك نعمة العطاء الاخ الحبيب يوسف هذه محاولة منى لاثراء الموضوع *اضفت لك ثلاث شيتات داخل نفس الملف للترحيل اليهما واذا احببت ان تغير اسامى الشيتات فيجب تغيرها داخل الكود *اضفت لك زر ترحيل فى صفحة النتيجة فى اعلى العمود AC بالضغط عليه سيتم المراد ان شاء الله بشكل اسرع الى حد ما * بعد الترحيل ستجد الترتيب التلقائى كما طلبت فى الشيتات المرحل اليها البيانات شاهد المرفق اتمنى ان ينال الاستحسان برنامج كونترول الدور الثانى ثانية من إعداد يوسف عطا2.rar

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

السلام عليكم ============ شاهد المرفق الجمع.rar

السلام عليكم =========== شاهد المرفق لكن ماذا تريد ان يكون فى الخلية c13 الجمع.rar

السلام عليكم =========== اخى العزيز انا الى كنت فى انتظار التقسيمة التى تريد عموما خير نسخة من Xl0000002.rar

السلام عليكم =========== شاهد المرفق Sum Date Range.rar

السلام عليكم =========== الاخ قصى يمكن ذلك باضافة السطر Worksheets("الرئيسية").ScrollArea = "a1:a1" Range("a1").Select على كود اخى ايسم بارك الله فيه شاهد المرفق فورم الدخول.rar

السلام عليكم =========== اخى يوسف طاب مساءك على حسب ما فهمت هناك امران الزر العادى او CommandButton شاهد المرفقان JOOOOOO.rar JOOOO2.rar

السلام عليكم =========== اخى الحبيب ايسم نادنى كما كنت تنادينى سابقا " اخى هشام" فنحن اخوة من زمن الان فهمت قصدك تعنى ان المشكلة عامة وليس فى الاوائل اذن جارى البحث والتنقيب زالتجربة انا وانت حتى نصل لحل وسنصل ان شاء الله

السلام عليكم =========== الاخ joma شاهد المرفق به شرح فيديو لكيفية الاظهار اظهار.rar

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

السلام عليكم =========== الملف ظاهر وواضح يبدو ان المشكلة الاساسية انك استخدمت اللغة العبرية فاصيب الملف بالعفاريت مش عبرية دى ولا ايه انا امزح فقط استخدم ما تود استخدامه test.rar

السلام عليكم =========== فى اطار نفس الموضوع وقبل الانتقال الى موضوع اخر اود اضافة بعض الاوامر المرتبطة ب CommandButton1_Click() هذا زر امر طباعة Private Sub CommandButton1_Click() ActiveWorkbook.PrintOut End Sub هذا زر اختيار ورقة معينة ولتكن ورقة4 Private Sub CommandButton1_Click() Sheets(ورقة4").Select End Sub امر حفظ Private Sub CommandButton1_Click() ActiveWorkbook.Save End Sub امر خروج Private Sub CommandButton4_Click() ActiveWorkbook.Close End Sub امر كتابة تاريخ اليوم فى خلية محددة Private Sub CommandButton1_Click() Range("A1") = Now End Sub امر معاينة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview End Sub امر اظهار فورم Private Sub CommandButton1_Click() UserForm1.Show End Sub امر تحديد مدى معين Private Sub CommandButton1_Click() Columns("D:D").Select End Sub امر تحكم فى عرض عمود معين Private Sub CommandButton1_Click() Columns("D:D").ColumnWidth = 2.50 End Sub امر اخفاء عمود Private Sub CommandButton1_Click() Columns("F:F").Select Selection.EntireColumn.Hidden = True End Sub امر تحديد صف Private Sub CommandButton2_Click() Rows("8:8").Select End Sub امر تحديد عرض صف Private Sub CommandButton2_Click() Rows("16:16").RowHeight = 2.24 End Sub

السلام عليكم =========== مش عاوز منك اكتر من كده ده كده يبقى انجزت معايا جدا فى انتظارك

السلام عليكم =========== شكرا اخى يوسف واود واتمنى ملاحظات الجميع او فكرة جديدة للتطوير حتى نخرج به بشكل يليق بمنتدانا الغالى. والدعوة لابداء الافكار للجميع الاخ ابو الاء شكرا على مرورك الكريم هل وجدت اى شئ غير ذلك واذا كان فلابد وانه سهو اعلمنى لفكه اذا كنت تعمل بالمرحلة الابتدائية ياريت وهذا رجاء تصميم شيتات للصفوف الاول والثانى والرابع والخامس ضرورى جدا للعمل عليهما

السلام عليكم =========== مبدئيا تم عمل الطلبة العشرة الاوائل كما تريد ولكن حذفت الرقم السرى للدخول مؤقتا حتى تنتهى من العمل "لاحتياجى فتح الملف وغلقه كثيرا" طلب خاص ======= اعتقد والله اعلم ان هذا الشيت للصف السادس فما الدلالة على ذلك فى الشيت اذا كنت تملك تفاصيل الصف الاول والثانى والرابع والخامس الابتدائى اتنى به من فضلك قصى1.rar

السلام عليكم =========== تمام يا عمدة وهذا البديل لها الذى ارفقته فى الكود خاصتى If ActiveCell.Value = "" Then ActiveCell.Interior.ColorIndex = 0

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

السلام عليكم =========== اخى kemas ان شاء الله لا مشاكل لطالما نبحث عن الجديد بس ما زالت المشكلة موجودة لان اللون الابيض هو لون ولا كلامى غلط بس ممكن للتغلب على مشكلة المسح باتغيير الاتى بالكود واتمنى ان تجربه Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then If Target.Value < 15 Then Target.Interior.ColorIndex = 3 Else Target.Interior.ColorIndex = 0 End If End If If ActiveCell.Value = "" Then ActiveCell.Interior.ColorIndex = 0 End If End Sub اليك المرفق عند كتابة العدد ستتلون الخلية وعند المسح سوف تكون بلا لون كيماس.rar

السلام عليكم =========== اخى عادل حياك الله اقرأ المشاركة رقم 2 ولكن الحمد لله توصلت للحل وسارفقه بعد قليل تحياتى لك

السلام عليكم =========== اخى kemas الكود لا يعمل بكفأة ولا حاجة وهذا الدليل طبعا انت شايف من المرفق عند المسح لا يتم الغاء اللون KEMAS.rar New ورقة عمل Microsoft Excel (2).rar

السلام عليكم =========== اعمل للملف save as