بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كان ما في الملف المرفق هو المطلوب.... استعملت فيه معادلة صفيف للأخ يحيى حفظه الله لجلب قائمة دون تكرارات مع بعض التغييرات على المعادلة وعلى الملف... أخوك بن علية Book2.rar

السلام عليكم ورحمة الله أخي الكريم إليك الملف المرفق وبه المطلوب قمت بإضافة أعمدة جديدة للترقيم (يمكنك إخفاؤها) وتغيير طفيف على المعادلات.... وكحل آخر يمكنك ترك المعادلات المرفقة بالملفات السابقة وتمديد الجدول الذي يلخص الإجازات إلى الأسفل. أخوك بن علية الاجازات 2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل أول للمسألة وإن شاء الله يكون هذا من المطلوب... أخوك بن علية Book1.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر باستعمال معادلة صفيف لتنويع الإجابات.... أخوك بن علية الاجازات.rar

السلام عليكم ورحمة الله أخي الكريم، بفضل الله تعالى تم إظهار كل أوراق العمل في الملف ... تجد هذه التغييرات في الملف المرفق... أخوك بن علية ssss1.rar

السلام عليكم ورحمة الله إخواني الكرام إن خاصية "استبدال الكل" كفيلة بالتعويض مهما تعددت التكرارات (لكن بتطبيقها عدة مرات)... لذا إذا أردنا استبدال علامات الفقرة p^p^ (فقرتين متتاليتين) بعلامة الفقرة p^ (فقرة واحدة) واخترنا خاصية "استبدال الكل" فإنه يتم استبدال كل علامتي فقرتين بعلامة فقرة واحدة وتعاد العملية لتكملة كل الاستبدالات... وقبل الاستبدال يجب معرفة العلامة المراد استبدالها، مثلا في الأسطر الفارغة يمكن أن تكون هذه الأسطر منشأة بواسطة "علامة الفقرة" أو بواسطة "فاصل الأسطر اليدوي"، ويقدم الوورد عدة خيارات في عملية الاستبدال نجدها في خاصية : استبدال/أكثر/خاص... أرجو من الأخ Toumi إعادة الشرح بأكثر دقة لأني والله لم أفهم شيئا مما كتبه... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، في انتظار ردود أخرى من الإخوة الكرام، أقدم لك هذا العمل المتواضع واستعملت فيه المعادلات وتجد ذلك في الملف المرفق ... أخوك بن علية الصف الثانى.rar

السلام عليكم ورحمة الله أخي الكريم، في الحقيقة لقد قام أحبتي باللازم وزيادة وأردت أن أشارك بهذا الحل باستعمال المعادلات أرجو أن يعجبك... يكفي وضع رقم 1 في العمود C من ورقة "الفرز" والمعادلات الموضوعة في ورقة "الجدول" تقوم بتحويل الاختيارات من الورقة "الفرز" إلى ورقة "الجدول"... أخوكم بن علية Q.rar

السلام عليكم ورحمة الله أخي الكريم، إن القوائم المنسدلة المنجزة بوساطة التحقق من الصحة Validation يجب أن تكون عناصرها من سطر واحد أو من عمود واحد ولا يمكن أن تكون من نطاقات مختلفة حتى وإن تم توحيدها بالدالة Union في VBA.... وإن كان ولا بد يجب جمع كل عناصر القائمة المنسدلة في سطر واحد أو في عمود واحد (ويمكن أن تكون من الورقة نفسها أو من أوراق مختلفة) ثم إنشاء القائمة الجديدة بتحديد النطاق أو بوساطة التسمية ثم تطبيق خاصية التحقق من الصحة عليها... ولا أرى طريقة أخرى لذلك... أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم أعتقد أن هذه الميزة غير متوفرة في إكسيل إلا عن طريق الدمج... والفكرة الوحيدة التي أقترحها عليك هي استعمال ميزة "إطار نص" ... ولا أعرف حيلة أخرى... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، قد تم تغيير المعادلة في العمود المضاف C ووضع الحل الرائع الذي قدمه أخي الحبيب يحيى (وكنت متأكدا من ذلك) في الملف المرفق.... أخوك بن علية عدد وقائمة أقسام مدرسة بالمعادلات33.rar

السلام عليكم ورحمة الله معذرة أخي الكريم، وجدت مشكلة في إرفاق الملف بردي السابق وهذه محاولة أخرى لذلك في الرابط بالأسفل.... أخوك بن علية http://www.mediafire.com/file/2th7b1i778w8vev/image.rar

السلام عليكم ورحمة الله أخي الكريم، هذه الطريقة نستعمل فيها أمرين اثنين فقط (وفق ملفك): 1- إدراج اسم مثلا Image بالمعادلة : =INDIRECT("'Images'!$A$"&Feuil1!$H$5) 2- ندرج مربع صورة باستعمال شريط "مربع أدوات التحكم" ثم في شريط الصيغ نكتب المعادلة : =Image وتجد العملية كلها في الملف المرفق... الصور في ورقة Images لا يشترط فيها أن تكون كبيرة (فقط أن تكون داخل الخلايا في العمود A كما في ملفك)... ملاحظة : إن لم تكن العملية مفهومة يمكن تحضير ملف شرح على شكل ملف تنفيذي في نسخة إكسيل 2003 (بالعربية أو بالفرنسية) .... أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم هذه محاولة في تغيير الكود وإن شاء الله يكون هذا المطلوب.... وأرفق لك الملف بالكود الذي تم تغييره (في حالة ما لم تظهر الكلمات المكتوبة بالعربية)... Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim DADA As String Dim MYSH1 As Worksheet Dim MYSH2 As Worksheet Dim PASSWORD As Integer On Error Resume Next PASSWORD = InputBox("الرجاء ادخال الرقم المصرح لك به لاتمام العمليه", "إدخال تصريح لحذف موظف مع جميع بياناته") If PASSWORD <> "1234" Then MsgBox "تم الغاء الامر" Else If MsgBox(":لقد طلبت حذف البيانات التالية" & vbNewLine & "" & vbNewLine & "إسـم المـوظف: " & TextBox3 _ & vbNewLine & "" & vbNewLine & "رقم الحساب: " & TextBox2 & vbNewLine & "" & vbNewLine & "" _ & vbNewLine & "فهل تود الإستمرار؟", vbYesNo + vbQuestion, "تأكيد الحذف") = vbYes Then A = Application.WorksheetFunction.Match(ListBox1, RNG1, 0) Application.ScreenUpdating = False MsgBox " تم حذف السجل الخاص ب" & ListBox1 & " بنجاح", vbInformation, "تم الحذف" Application.ScreenUpdating = False DADA = ListBox1.List(ListBox1.ListIndex, 8) Set MYSH1 = Sheets("فترة صباحية") With MYSH1 .Application.Range(DADA).Rows.Select .Range(DADA).EntireRow.Delete Application.ScreenUpdating = True End With Set MYSH2 = Sheets("فترة مسائية") With MYSH2 .Application.Range(DADA).Rows.Select .Range(DADA).EntireRow.Delete Application.ScreenUpdating = True End With End If End If ListBox1.Clear TextBox4.Text = "" TextBox4.SetFocus End Sub أخوك بن علية حذف_اسم.rar

السلام عليكم ورحمة الله أولا : لا يمكن البتة عمل ذلك بدالة حسب الشروط المطلوبة ، وبالكود الذي وضعته يمكنك تكرارها في أي مكان... ثانيا : خانة Required هي خانة يدوية والشروط المعمولة في الكود تعتمد على قيمتها... ثالثا: الأرقام يجب أن فيها تكرارات باعتبار أنك تطلب 31 رقما في نطاق صغير جدا من 13 إلى 17... وما تطلبه إذا مستحيل... أخوك بن علية

السلام عليكم ورحمة الله إخواني الكرام تبسيطا للكود الذي وضعه أخي الحبيب جمال أضع بين أيديكم الكود التالي (الفرز لثلاثة أعمدة):[ Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("AY6"), Order1:=xlAscending, Key2:=Range("AP6"), _ Order2:=xlDescending, Key3:=Range("C6"), Order3:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _ xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal End Sub أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم يمكن ذلك باستعمال (مثلا) التنسيقات الشرطية وفي الملف المرفق تطبيق لهذه الطريقة... أخوك بن علية Date1.rar

السلام عليكم ورحمة الله أخي الحبيب جمال، استبدل الكود في الملف Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("C5"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C6:AY1000").Sort Key1:=Range("AP5"), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub بالكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) Range("C6:AY1000").Sort Key1:=Range("C5"), Order1:=xlAscending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("C6:AY1000").Sort Key1:=Range("AP5"), Order1:=xlDescending, Header:= _ xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub والمشكل كان في الجزء Header:= xlGuess من الكود واستبدلته بـ Header:= xlNo أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، محاولة بمعادلات أخرى (نتائجها باللولن الأحمر) في الملف المرفق... أخوك بن علية Year From Date1.rar

السلام عليكم ورحمة الله عيدكم سعيد وكل عام وأنتم بألف خير... هذا حل آخر باستعمال الدالتين INDEX و MATCH بمعادلة صفيف في الملف المرفق... أخوكم بن علية ملف2.rar