نجوم المشاركات

من المعروف ان الدالة Match تعطينا أول صف تراه في الجدول لكن بحيلة بسيطة يمكننا التغلب على هذه الدالة لتعطينا كل الصفوف (كل ذلك دون أخطاء N/A#) شاهد هذا الملف Multi_Match.xlsx

السلام عليكم ورحمة الله حل آخر في الملف المرفق... بن علية حاجي تحويل الكميات من الكيلو إلى الشكارة.xlsx

جرب هذا الماكرو Option Explicit Sub Give_Uniques() Application.ScreenUpdating = False Dim d As Object, i As Long Dim Mysh As Worksheet: Set Mysh = Sheets("قائمة جرد المكتبة ") Dim lr As Long: lr = Mysh.Cells(Rows.Count, "C").End(3).Row Dim mysh2 As Worksheet: Set mysh2 = Sheets("المطلوب") Set d = CreateObject("system.collections.arraylist") For i = 4 To lr If Mysh.Cells(i, 3).Value <> vbNullString And _ Not d.contains(Mysh.Cells(i, 3).Value) Then _ d.Add Mysh.Cells(i, 3).Value Next With mysh2 .Range("a2", Range("A1").End(4)).ClearContents .OLEObjects("Combobox1").Object.List = _ Application.Transpose(d.toarray) .Range("a2").Resize(d.Count - 1) = _ Application.Transpose(d.toarray) End With d.Clear Application.ScreenUpdating = True End Sub الملف Claseur_salim.xlsm

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

حياك الله 🙂 السؤال خارج عن الموضوع، ويمكنك عمل موضوع خاص به ، وهذا الرابط سيفيدك جعفر

عليك السلام ورحمة الله وبركاته تفضل لعله يفي بالغرض تحويل الكميات من الكيلو الى الشكارة.xlsx

ما اعرف ، ولكن انت قلت: لهذا السبب طلبت منك . على العموم ، بما ان الحقل الثالث نص ، فالكود يجب ان يكون: Dim rst As dao.Recordset dim myWhere as string Set rst = Form.RecordsetClone myWhere = "[ID]=" & me.Text1 myWhere = myWhere & " And [Code]=" & me.Text2 myWhere = myWhere & " And [City]='" & me.Text3 & "'" rst.FindFirst myWhere If Not rst.EOF Then me.Bookmark = rst.Bookmark جعفر

بالتوفيق اخي

اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False

1. رجاء ارفاق رسالة الخطأ ، 2. بالنسبة الى الحقل الجديد ، شو نوع الحقل (نص ، رقم ، او تاريخ) ؟ جعفر

وعليكم السلام 🙂 حياك الله 🙂 نعم ، وزيادة ، والطريقة هي السعي لقضاء حاجة اخوانك ، وخصوصا اللي في المنتدى 🙂 اما بالنسبة لي انا ، فكما يقول الله عز وجل: وَمَا أُوتِيتُم مِّنَ الْعِلْمِ إِلَّا قَلِيلًا جعفر

اخي الفاضل الدكتور اللي يقدر يوصف لك العلاج عن بُعد ، وبمجرد انك تخبره انك مريض وبس ،فهذا عملة نادرة 🙂 اما انا فلا. جعفر

تفضل لك ما طلبت SUMIF2.xlsx

السلام عليكم ورحمة الله بارك الله فيك أخي سليم، إبداع ما فوقه إبداع... وأقترح تبسيطا (اختصارا) للمعادلة في الخلية E2 (ثم سحبها نزولا): =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100;$E$1);"";MATCH(E$1;OFFSET($B$2;SUM(E1);0;ROWS($B1:$B$100)-SUM(E1));0)+SUM(E1)) أو =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100,$E$1),"",MATCH(E$1,OFFSET($B$2;SUM(E1),0,ROWS($B1:$B$100)-SUM(E1)),0)+SUM(E1)) بن علية حاجي

السلام عليكم تفضل أرجو أن يكون هذا ما تريد db2.mdb