زياد عبد الجليل

شكرا لك استاذ عمر و بارك الله فيك على هذا العمل الرائع و القيم

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

اخي الكريم فيما يخص كيف جعل الاستاذ عمرو محمد الليست بوكس من اليمين الى اليسار ...هو ان تعمل كليك على الفورم ثم تذهب الى الخاصية right to left و تعمل لها false اما فيما يخص شرح الكود فكلنا منتظرين الاستاذ عمرو ليكرمنا بشرحه...و شكرا

كنت متأكد من هذا استاذ ياسر ...بارك الله فيك يا استاذ وشكرا على هذه الاكواد الرائعة التي تعلمنا منها الكثير ...دمت ودام هذا الصرح عملاقا بعمالقته

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

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

شكرا لك استاذ ياسر بارك الله فيك

السلام على جميع الاخوة الافاضل ..عندي ملف به 9 صفحات بكل صفحة قائمة اريد عمل زر يقوم بترتيب ابجدي لكل القوائم من الصفحة 1 الى 9 عللى ان يكون الترتيب على اساس اللقب ....ولكم مني كل الشكر و التقدير ترتيب ابجدي لكل الصفحات.rar

استاذ ياسر اثراءا للموضوع اذا امكن كيف يمكن ترتيب ابجدي لاكثر من ورقة مثلا 10 صفحات و اردنا عمل زر لترتيب ابجدي لمحتوى كل الصفحات ما العمل هل نستبدل Sheets("Sheet1") ب وورك بوك والله لا اعلم ارجو تعليمنا انا عندي زر ارتب قائمة ترتيب ابجدي من b9 حتى i40 بدلالة c9 واليكم الكود التالي 'Sélection de la plage à trier Range("b9:i40").Select 'Lancement du tri, basé sur les données de la colonne A en ordre croissant Selection.Sort Key1:=Range("c9"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal TextChange End Sub كما اني جربت و ضع الكود التالي قبل ادراج الكود السابق و لكن لم يعمل For sh = 1 To 10 Sheets(sh).Range("b9:b48").select Next ولكن انا عندي 10 صفحات اريد ترتيب ابجدي لكل الصفحات بزر واحد و ليس لصفحة بذاتها ما العمل في هذه الحالة ....ولكم منا كل الحب و الشكر و التقدير

بارك الله فيك اخي ابو عيد وجزاك الله خيرا

السلام على جميع لااساتذة الافاضل ...اطلب من احوتي الجزائريين ان امكن برنامج التقريري العام لتسيير المؤسسة التربوية (RGF) ولكم مني جزيل الشكر

شكرا لك اخي ياسر الرجاء شرح ماجاء في الاخير حول تحميل بعض الفيديوهات القصيرة و حول مجانية هذا الموقع ان امكن ومتى يتكون المحاضرة الثانية كل شئ موجود في هذا الموقع ولكن لا اعلم ان كان مجاني ام لا: https://www.excelcampus.com/enroll/#enroll

اخي جنون قانون المنتدى يفترض كتابة الاسم باللغة العربية التمس منك تغيير اسمك للغة العربية ان تفضلت لانه ميثاق و قانون المنتدى اما فيما يخص كود تفعيل زر الطباعة جرب وضع الكود التالي في زر الطباعة . Feuil1.Range("A1:R26").PrintOut

شكرا اخي ياسر على مرورك العطر

عمل مميز مشكورين على هذا ...عندي طلب للاخوة الجزائريين ان امكن برنامج التقرير العام لتسيير المؤسسة (RGF)..برنامج خاص بالمؤسسات التربوية

بارك الله فيك استاذ ابو حنين غاية في الروعة

بارك الله فيك اخي عمل ممتاز و رحم الله استاذنا و اخونا عماد الحسامي و اسكنه جنات النعيم يا رب

رجاء هل يمكن مساعدتي في اتمام المطلوب و شكرا

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

السلام على جميع الاساتذة الافاضل رجاء لقد قمت بتحويل معادلة و اعطاني الكود التالي "=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")" وانا اريد ربط هذا الكود مع لابل لتصبح بهذا الشكل : label23.caption = "=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")" اي اريذ اضهار مجموع الذكور في label 23 من خلال هذا الكود المحول ولكن عند وضعه لا تظهر القيمة و لكن يظهر الكود رجاء سا عدوني اين الخلل كما اني لم افهم اين انسخ الكود ولكم مني كل الشكر

الاكسيلانس لديه الحل لكل المشاكل بارك الله فيك يا استاذ ياسر يا دكتور الاكسيل

كم انت كبير يا ابن الصحراء....ما هذه الروعة اخي ابو حنين و الله روعة لاتوصف و اكواد وكانك تاتي بها من السماء الله يبارك فيك اخي ...بقي بعض الاشياءدفقط ان لبيتها اكون شاكرا لك لاني عملت كود و يعمل و لكن عند التسجيل الجديد يقع اختلال ...الطلب يكمن في : 1- عند الضغط على الليست بوكس تنتقل البيانات الى التاكس بوكس وهنا عند الضغط على موافق للتسجيل اي ادخال جديد يمكن ان يحدث تكرار نفس التلميذ في القائمة انا اود وضع كود تاتي من خلاله رسالة تقول لا يسمح بتكرار تسجيل نفس التلميذ في نفس القسم مثل (كود نقل تلميذ الى قسم لا يسمح بنقله الى نفس القسم) مع اسمه و لقبه و قسمه .هاهو الكود الذي و ضعته و لكن حدثت هناك مشاكل لاني لازلت مبتدئ في الاكواد. 2- وهل يمكن اضافة مثلا تاكس بوكس فيه مجموع التلاميذ المسجلين في كل الاقسام ثم 2 تاكس بوكس منهم ذكور في واحد و اناث في تاكس بوكس 2 ..ثم المعيدون كذلك المجموع في تاكس بوكس ثم 2 تاكس بوكس منهم ذكور معيدون في واحد و اناث في تاكس بوكس 2. ...المهم استاذ ابو حنين ارجو ان تكون قد و صلت الفكرة وان كان هناك اضافات جمالية ارجو اضافتها مثل تلوين الاقسام في كومبوبوكس كل مستوى بلون مختلف ...المهم حتى وان لم يكن لديك الوقت الكافي للاجابة على استفساراتي فانا اتفهمك لان الموضوع معقد نوعا ما و لكن رائع و يستحق البحث وهذا ما دفعني للحرص في محاولة فهم كل اسراره و اكواده . وفي الاخير اجدد لك شكري و اعجابي باعمالك ...تقبل مني اصدق عبارات الشكر و التقدير ...بارك الله فيك ومع الف سلامة اخي . Private Sub CmdSaveN_Click() Dim x As Range If TextBox2 <> "" Then Set x = Range("A:A").Find(TextBox2, , xlValues, xlWhole, , , False) If Not x Is Nothing Then MMS = "åÐÇ ÇáÊáãíÐ ãÓÌá " & vbNewLine & ListBox1.List(ListBox1.ListIndex, 3) & " " & ListBox1.List(ListBox1.ListIndex, 4) & _ " Ýí ÞÓã " & ComboBox2.Value & _ " åá ÊæÏ ÊßÑÇÑ äÝÓ ÇáÊáãíÐ" TI = " ÍÐÝ ÊáãíÐ " NN = vbInformation + vbMsgBoxRight + vbYesNo If MsgBox(MMS, NN, TI) = vbNo Then For ii = 3 To 11 Me.Controls("TextBox" & ii) = "" Next Exit Sub End If End If

شكرا لكل من اراد مساعدتي لقد اقتبست الكود من كود الاستاذ ياسر وشكرا Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Column = 3 And Target.Row > 8 Then Application.EnableEvents = False If Not IsEmpty(Target) Then LR = Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Range(Cells(9, 1), Cells(LR, 1)) Target.Offset(, 7).Value = "????777" End If Application.EnableEvents = True End If End Sub

استاذ ياسر رجاء يا دكتور ساعدني : عندي حالة اخرى وهي اريد ان اكتب عبارة مثلا في الخلية j و لتكن مثلا "مرحبا بكم في المنتدى" بمجرد كتابة اي شئ في الخلية c9 وليكن كل هذا في حدث الورقة ولكن بشرط ليس فقط الخلية j9 وانما كل ما ادرج قيمة في الخلية c اي ابتداء من c9 تكتب العبارة في الخلية j و هكذا. رجاء ان يكون مختصرا ولك مني جزيل الشكر . اعتذر لقد ادرجت الموضوع مرتين اعتذر من الجميع

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