رجب جاويش

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

تقبل الله منك وأدامك على طاعته عمرة مقبولة بإذن الله وتعود لنا بألف سلامة

بسم الله ما شاء الله ايه النشاط والإبداع دا كله

وألف مليون مبروك الترقية المستحقة لشخصك الكريم أخوك / رجب جاويش

الأخ الفاضل / محمد مصطفى جزاك الله كل خير على مواضيعك المميزة ألف تحية من أخوك / رجب جاويش

أخى الفاضل علامتى السالب هما لإجبار البرنامج على تحويل القيم المنطقية ( true و false ) الى قيم رقمية لأنه لا يمكن ضرب الكلمة true او false فى أى رقم من المصفوفة الأخرى (2,2,2) وبالتالى يتم تحويل true الى الرقم 1 وتحويل false الى الرقم صفر حتى يتم ايجاد مجموع حاصل ضرب المصفوفتين معا وعلى فكرة علامة الضرب ( * ) تعمل نفس عمل علامتى السالب

أخى الكريم / محمد مصطفى أحبك الله الذى أحببتنا فيه وجزاك الله كل خير وأنا أشاركك فى حب جميع أساتذة المنتدى الكرام اللذين تعلمنا وما زلنا نتعلم منهم فجزاهم الله عنا خير الجزاء

الأخ الفاضل / محمد يحياوى ألف شكر وجزاك الله خيرا

الأخ الفاضل / الأستاذ محمد يحياوى صاحب الجديد والمفيد دائما الف تحية على هذه الفكرة الرائعة والتى تعلمت منها معلومات جميلة والتى استغرقت منى وقت لانجاز قائمة مثلها موجودة فى الملف المرفق فجزاك الله كل خير ولكن لى طلب بسيط بعد إذنك فى الكود المستخدم أرجو توضيح السطرين الاول والثانى والمتعلقين بتحديد المتغيرين yah و med ولماذا تم التعبير عنهما بهذه الطريقة ( private ) Private yah As String Private med As String Private Sub TextBox1_Change() yah = TextBox1.Text Call yah_med End Sub Sub yah_med() Dim i As Integer i = 3 ListBox1.Clear While Cells(i, 3).Value <> Empty med = Cells(i, 3).Value If UCase(Left(med, Len(yah))) = UCase(yah) Then ListBox1.AddItem Cells(i, 3) End If i = i + 1 Wend End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call yah_med End Sub فلترة حسب الطلب تجربة.rar

تفضل أخى Book2.rar

الأخ الفاضل / العيدروس ( أبو نصار ) ما شاء الله كود رائع وجميل ويعمل بشكل ممتاز بارك الله فيك

أخى الفاضل / عباس السماوى ألف شكر على كلامك الرقيق وجزاك الله كل خير

أخى الفاضل / عباس السماوى تفضل المرفق أرجو أن يكون كما تريد أما كود الدوائر الحمراء فهو من إعداد الأستاذ الكبير / عبد الله باقشير نتائج الطلاب بالتفصيل.rar

البقاء لله أستاذ أحمد

الأخ الفاضل / أحمد فضيلة تسلم ايديك وبعد اذنك تم تعديل الكود ليأخذ عدد الصفحات المطلوب طباعتها من التكست بوكس مباشرة بدلا من نقل العدد الى خلية اخرى ثم استدعائه بعد ذلك Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox ("áÇÈÏ ãä ÇÏÎÇá ÚÏÏ äÓÎ ÇáØÈÇÚÉ") TextBox1.SetFocus End If If TextBox1.Value <> "" Then Range("A1:M15").Select Selection.PrintOut Copies:=TextBox1.Value, Collate:=True Unload UserForm1 End If End Sub

الأخ الفاضل / طارق محمود فكرة جميلة ورائعة تم تنفيذها وهى فكرة ممتازة عن طريق تسمية مدى ديناميكى باستخدام دالة أوفست =OFFSET(Sheet1!$B$2;COUNTA(Sheet1!$B$2:$B$997)-7;;7) تسلم أفكارك

بعد إذن الأخ الفاضل / بن عليه قمت بتعديل شرط درجة المادة فى المعادلة الى ( اكبرمن أو يساوى ) النهاية الصغري اتركه فارغ =IF($D8="";"";IF(AND(Formule>=E$7;Formule<>"غ");"";Formule)) حتى لا تقوم المعادلة باحضار درجة الطالب اذا كانت مساوية لدرجة النهاية الصغرى وتكتفى فقط باحضار الدرجات الاقل من النهاية الصغرى أى درجات مواد الدور الثانى فقط اسماء ودرجات الدور الثانى فقط لاغير2.rar

بعد إذن أخى الفاضل / عبد الله المجرب قمت باضافة الحالة ( دور ثانى ) داخل الكود الرائع للأستاذ أبو أحمد تلبية لطلب الأخ فضل اسماء ودرجات الدور الثانى فقط لاغير.rar

الأخ الفاضل / بن عليه معادلات رائعة وجميلة سلمت يداك

الأخ الفاضل / أبو أحمد بسم الله ما شاء الله بجد والله العقل احتار من متابعة هذه الأكواد الرائعة التى تدل على عبقرية فريدة فى التعامل مع الأكواد ربنا يزيدك من علمه وتمتعنا بالمزيد من الأعمال الرائعة حتى نتعلم ونستفيد

أخى الفاضل / عبد الله المجرب جزاك الله خيرا تم تعديل الكود الخاص بى بحيث يقوم بتنفيذ الملحوظة التى أشرت اليها وهى توزيع نفس الأرقام الموجودة فى العمود مع عدم التكرار فى نفس الصف كود يمنع تكرار رقم فى نفس السطر مرتين - رجب2.rar

بعد أذن أخى / عبد الله المجرب بعد أن تعلمت منك ومن أساتذة المنتدى العظيم أساسيات الأكواد قمت بتنفيذ هذا الكود لمنع تكرار رقم فى صف مرتين وذلك بطريقتين الأولى : تغير الأرقام الموجودة فى العمود الثالث فقط لمنع التكرار كما فى المشاركات السابقة الثانية : تغير جميع الأرقام الموجودة فى الأعمدة الثلاثة ومع ذلك لا يحدث أى تكرار لأى رقم فى نفس الصف أرجو القاء نظرة عليها وابداء رأيك الذى أعتز به كود يمنع تكرار رقم فى نفس السطر مرتين - رجب1.rar كود يمنع تكرار رقم فى نفس السطر مرتين - رجب.rar

السلام عليكم تفضل أخى الفاضل بشرطين1.rar

السلام عليكم تفضل أخى الفاضل تسمية الشيتات 1.rar

الأخ الفاضل / عباس رضا الأخ الفاضل / دغيدى الأخ الفاضل / جمال الفار الأخ الفاضل / حسن الحاوى ربنا يبارك فيكم جميعا وجزاكم الله كل خير