عبدالله باقشير

السلام عليكم الاستاذ القدير / نادر ___________-حفظه الله دائما اجد عندك التبشير بالخير وهذا بدوره يعطي نفسية ايجابية لصاحب العمل ويحفز على الاستمرار اكرمك الله وهذه ملاحظة في محلها لان البرنامج لن يعطيك ما تريده لوحده وانما يجب ان تحاول عدة مرات وتساعده الى ان يعطيك النتائج المطلوبة تقبل تحياتي وشكري

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

السلام عليكم الاخ الفاضل / آيسم ابراهيم --------جفظه الله انا كنت منتظر ردك من زمان ولكن اظنك مشغول مع بداية العام الدراسي نعم هذا الذي اريده بارك الله فيك يسرها قدر المستطاع الله ييسر امورك دنيا وآخرة تقبل تحياتي وشكري

السلام عليكم اخي الحسامي مشكور على الدعم المعنوي وحسن التشجيع اخواني الكرام دغيدي / قصي / نادر / khhann وكل من شارك ولو بكلمة واحدة كل ما ذكرتموه من ملاحظات إن شاء الله حتكون في الحسبان ان استطعنا ذلك هذه محاولة لازدواجية الحصص لكن لم اتاكد من صحتها بعد واظنها اخلت ببعض شروط الكود (جدول الحصص المغلقة في كل الايام) لكن اريد ان اعرف منكم هل هذه الازدواجية هي ما تريدونها يعني نحن قربنا من المطلوب ؟؟ ام عصدنا الموضوع اكثر من اللازم ؟؟؟؟؟؟ تقبلوا تحياتي وشكري الخطة الاتوماتيكية7.rar

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

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

السلام عليكم المسالة بسيطة جدا بس لم تخطر على بالك في خاصية في خصائص الفورم وهي righttoleft قم بتعيينها true هذا حل اللغز وانت كنت اهلا له ولكن لم يخطر على البال ودمتم في حفظ الله

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

اللهم آمين اللهم آمبن

السلام عليكم اقدم اليكم التجربة الاولى ارجو ان اكون على الطريق الصحيح نفضلوا الملف التجارب ستجرى في ملف منفصل عن ملف الجدول المدرسي وعند الانتهاء ستطبق على الاصلي تفضلوا المرفق الخطة الاتوماتيكية3.rar

السلام عليكم استخدم الكود التالي: Sub kh_Add_Formula() On Error Resume Next Dim Last As Integer Dim R As Integer Last = Range("A1000").End(xlUp).Row Range("F2:F" & Last).ClearContents For R = 2 To Last If IsEmpty(Cells(R, "A")) Then GoTo 1 Cells(R, "F").Value = "='" & Cells(R, "A") & Cells(R, "B") & "[" & Cells(R, "C") & "]" & Cells(R, "D") & "'!" & Cells(R, "E") 1 Next On Error GoTo 0 End Sub

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

الاخ الفاضل/ هشام كوكب __________حفظه الله الاخ الفاضل/ ابو عبدالله __________حفظه الله الاخ الفاضل/ جلال __________حفظه الله الاخ الفاضل/ الجزيرة__________حفظه الله جزاكم الله خيرا تقبلوا تحياتي وشكري الاخ الفاضل/ قصي__________حفظه الله في الكود : ادخالك اسم ورقة البيانات ليس صحيحا وايضا ادخالك عمود الناجحين ودور ثاني ليس صحيحا خبور خير

======================== الاخ الفاضل / نادر ======================== و

======================== الاخ الفاضل / احمد ======================== و

السلام عليكم الجواب موجود في رابط الموضوع

السلام عليكم الشكر واصل لجميع المشاركين ========================================= هنا في هذا الكود Private Sub UserForm_Activate() Dim sh As Worksheet Comb_Find.AddItem "بحث في جميع اسماء القائمة" For Each sh In ActiveWorkbook.Sheets If Not sh.Visible = xlSheetVisible Then GoTo 1 If IsError(Application.Match(sh.Name, Array("aaa"), 0)) Then Comb_Find.AddItem sh.Name End If 1: Next Comb_Find.ListIndex = 0 End Sub في هذه الجزئية ممكن تضيف اسماء الاوراق التي لا تريدها Array("aaa") لو فرضنا ثلاث ورق Array("aaa", "sss", "mm") شاهد المرفق فورم بحث1.rar

السلام عليكم Private Sub CommandButton1_Click() Dim n As Long n = ComboBox1.ListIndex If n = ComboBox1.ListCount - 1 Then _ ComboBox1.ListIndex = 0 Else _ ComboBox1.ListIndex = n + 1 End Sub تفضل المرفق Change Text List.rar

السلام عليكم لم نفهم طلبك اي نص تريده ان يظهر من القائمة الاول او الثاني او --------

السلام عليكم غير هنا '****************************************************** ' اسم ورقة البيانات Const Sh_MyDate As String = "بيانات اساسية" '------------------------------------------------------ ' رقم صف رؤوس الاعمدة Const lrow As Integer = 5 '------------------------------------------------------ ' عدد الاعمدة التي تريدها ابتداءا من العمود الاول Const lcol As Integer = 28 '****************************************************** تفضل المرفق اعداد تقارير مدرسية.rar

======================== الاخ الفاضل/ احمد ======================== عمل رائع جداً جداً سلمت يداك و

السلام عليكم توزيع الفصول على نصفي الورقة غير اعدادات الكود حسب طلبك من هنا '*********************************************** '*********************************************** ' اسم نطاق البيانات Private Const NRng As String = "myDate" ' رقم عمود الاسماء Private Const cName As Byte = 2 ' رقم عمود النوع Private Const ColumnSex As Byte = 3 ' معيار البحث عن الاولاد في عمود النوع Private Const SBoy As String * 3 = "ولد" ' معيار البحث عن البنات في عمود النوع Private Const SGirl As String * 3 = "بنت" ' رقم عمود الفصل Private Const ColumnClass As Byte = 16 ' رقم عمود الدرجات Private Const cDegree As Byte = 15 '*********************************************** '*********************************************** ' اسم ورقة الفصول Private Const ShName As String = "فصول" ' عدد اعمدة الطباعة Private Const CountColumn As Byte = 13 '*********************************************** '*********************************************** توزيع الفصول على نصفي الورقة.rar