بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم فضل، هذه محاولة للوصول إلى المطلوب بمعادلات وعمود إضافي بالملف المرفق... في انتظار حلول أخرى من الإخوة الكرام... أخوك بن علية عدد وقائمة أقسام مدرسة بالمعادلات.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

السلام عليكم ورحمة الله تقبل الله منا ومنكم... عيدكم مبارك وسعيد أعاده الله علينا وعليكم باليمن والخير والبركات.... أخي الكريم، هذه محاولة يمكن أن تفي بالغرض... استعملت دالة RANDBETWEEN لتحقيق النطاق والأرقام العشوائية مع كود صغير يقوم بتحقيق الشرط الثاني المتعلق بالمتوسط Average ... أنظر الملف المرفق الذي هو تابع لملف الأخ الكريم طارق.... أخوك بن علية reqired_hben1.rar

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

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

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

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة الصيام والقيام وصالح الأعمال وبلغكم الله ليلة القدر وجعلنا الله من العتقاء في هذا الشهر الكريم.... أخي الكريم بالنسبة لإضافة شركاء جدد فهذا ممكن جدا في الورقة Sheet1 ولكن شرط أن تكون بالتنسيق نفسه للشركاء الآخرين (3 أعمدة) وتكون هذه الأعمدة مدرجة قبل عمود "شرح العملية" أما فيما يخص معادلة "التحقق من الصحة" Data Validation التي وضعتها في الورقة Sheet2 فهي تعمل بطريقة آلية بمجرد إضافة شريك جديد في الورقة Sheet1 بالشروط التي ذكرتها يضاف اسمه آليا إلى القائمة المنسدلة (وهذا ما يفسر طول المعادلة المستعملة لإنشاء هذه القائامة).... أرجو أني وصلت الفكرة بهذا الشرح البسيط... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم هذه محاولة عملتها باستعجال وإن شاء الله يكون فيها المطلوب... أخوك بن علية ali\'s project.rar

السلام عليكم ورحمة الله Emmpl-Attendance_Calendar_V1.22.rar

السلام عليكم ورحمة الله أخي الكريم، إذا فرضنا أن العلامات الأربع موجودة في النطاق A2:D2 فالمعادلة المطلوبة (وهذا أحد الحلول) تكون كما يلي: =IF(COUNTIF(A2:D2,">=60")=4,AVERAGE(A2:D2),IF(COUNTIF(A2:D2,">=60")>=1,"منقول","راسب")) أخوك بن علية

السلام عليكم ورحمة الله تقبل الله منا ومنكم الصلاة والصيام والقيام وصالح الأعمال... أخي الكريم ، هذا حل آخر للمسألة... Book2.rar أو هذا الحل بمعادلات بسيطة : Book3.rar أخوكم بن علية

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

السلام عليكم ورحمة الله أخي الكريم، قمت بتحضير ملف تنفيذي يشرح العملية المطلوبة (على إكسيل 2007 بالفرنسية) لأنه ليس عندي أوفيس 2007 بالعربية أو بالإنجليزية... وأعتقد أن الخطوات هي نفسها بتتبعها وفق الملف التنفيذي المرفق... ملاحظة: بالنسبة لشرح الدوال المطلوبة يمكنك الاستعانة بملف المساعدة help وتعليمات الإكسيل للمعادلات فالشرح مستفيض مع أمثلة كافية... أخوك بن علية 123.rar

السلام عليكم ورحمة الله أخي الكريم لقد أعددت هذه الفقرة بالفرنسية ثم قمت بترجمتها إلى العربية والإنجليزية (إن شاء الله أكون قد وفّقت في ذلك) وذلك لشرح الخلل الذي وقع في الحسابات وطرق تفاديه... * بالفرنسية: Lorsque vous utilisez le format Comptabilité ceci affecte seulement l’affichage de la cellule. Le contenu de la cellule est toujours en double précision soit 15 chiffres après le point. Pourque EXCEL calcule avec l’affichage de la cellule et non le contenu, il est indisponsable d'appliquer l'une des deux méthodes suivantes: 1) Configurer Excel: Dans le menu Tools cliquez sur le sous-menu Options… puis dans la boîte de dialogue choisissez l’onglet Calculation puis cochez la case "Calcul avec la précision au format affiché". 2) Utiliser les fonctions : ARRONDI, ARRONDI.INF, ARRONDI.SUP ou autres. * بالعربية: عند استخدام العمليات الحسابية في الإكسيل هذا لا يؤثر سوى على عرض الخلية. وتنسيق محتويات الخلية تبقى بالدقة المزدوجة للأأرقام العشرية أي 15 رقم بعد النقطة (الفاصلة). وبالتالي لكي يقوم EXCEL بالحساب بعرض الخلية وليس بالمحتوى، نتبع إحدى الطريقتين التاليتين: (1) إعداد Excel: في القائمة "أدوات" ننقر على القائمة الفرعية "خيارات" ومن ثم في مربع الحوار حدد علامة التبويب حساب ثم اختيار "الدقة كما في العرض". (2) استخدام دالات التقريب : ROUNDDOWN، ٌROUNDUP، ROUND أو غيرها. * بالإنجليزية: When you use the accounting format this affects only the display of the cell. The contents of the cell is still in double precision is 15 digits after the point. Respectively EXCEL calculates with the display of the cell and not the content, it is indisponsable to apply one of the following two methods: (1) Configure Excel: On the Tools menu click on the Options submenu and then in the dialog box select the Calculation tab and check the Precision as displayed. (2) Use the functions: ROUND, ROUNDUP, ROUNDDOWN or others. والله أعلم

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

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

هذه محاولة في المرفق... Inquiry.rar