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

السلام عليكم ورحمة الله وبركاته الاستعلام يُعتبر العمود الفقري لقواعد البيانات ، وكلما زادت معرفتنا به ، كلما يصبح البرنامج افضل واسرع 🙂 البحث/التصفية في الاستعلام من الطرق المهمة ، ولكن وللأسف الشديد ، ارى الكثير من المبرمجين لا يعرفون الطريقة الصحيحة في عملها ، فالطريقة الغير صحيحة قد تعطيك النتائج ولكن على حساب وقت تنفيذ الاستعلام 😞 الامثله هنا تقوم على انه يوجد لدينا نموذج اسمه frm_Main ، وبه حقل الاسم fName ، وحقل التاريخ:من Date_From ، وحقل التاريخ:الى Date_To ، والحقول في الاستعلام ، حقل الاسم fName ، وحقل التاريخ DateX . 1. اذا اردنا البحث عن اسم كامل (وليس جزء من اسم) ، فيجب ان يكون المعيار في الاستعلام: [forms]![frm_Main]![fName] 2. واذا كان حقل الاسم فارغا في النموذج ، ونريد ان نرى جميع الاسماء ، فالمعيار يصبح: iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) والشرح للتأكد بأن الحقل فارغ في النموذج، بدل ان نكتب IsNull([forms]![frm_Main]![fName]) or [forms]![frm_Main]![fName]=0 فإننا نختصر هذين الشرطين بشرط واحد len([forms]![frm_Main]![fName] & '')=0 iif(كان الحقل فارغ في النموذج,[fName] اعطنا جميع بيانات الحقل,[forms]![frm_Main]![fName]واذا كان الحقل به قيمة فاستعمل هذه القيمة) . 3. اذا اردنا البحث عن جزء من الاسم Like IIf(Len([forms]![frm_Main]![fName] & '')=0,"*","*" & [forms]![frm_Main]![fName] & "*") والشرح IIf(Len([forms]![frm_Main]![fName] & '')=0 نعم Like "*" لا Like "*" & [forms]![frm_Main]![fName] & "*") . 4. اذا اردنا البحث بين تاريخين بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null او طريقة استاذنا واخونا العود ابو خليل Between nz([forms]![frm_main]![Date_From];"01/01/1900") And nz([forms]![frm_main]![Date_To];"01/01/2100") . جعفر

جرب هذا الملف Std_6.xlsx

مع انك لم ترفع ملفاً للمعاينة اليك هذا الملف كنموذج =IF(N(A1)<=0,"",CHOOSE((0.5-MOD(A1,1)<=0)+1,FLOOR(A1,1),CEILING(A1,1))) takrib.xlsx

أهلا @محمد احمد لطفى أعتذر عن التأخير.. في مستعرض الصور: اضغط على علامة الزائد لإضافة سجل جديد.. قمت بإجراء بعض التعديلات على النسخة السابقة.. بالنسبة لعناصر HTML وتنسيقتها فقد وضعتها في الجدول CodeSnipping يمكنك إعادة تنسيق العناصر عن طريق الجدول دون الرجوع إلى الشفرة.. أتمنى أن تنال الإضافة إعجابكم.. Photo.zip

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود ترحيل الصفحة كامله بشرط واحد على سبيل المثال عندنا درجات الطلاب وفيهم طلاب ناجحون وطلاب دور ثان وطلاب راسبون هذا الكود يفصل الطلاب الناجحون في ورقة ويفصل الطلاب الذين لهم حق الدخول في الدور الثاني في صفحة أخرى ويفصل الطلاب الراسبون في صفحة أخرى وهكذا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر Sub KH_START()[/center] ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer, O As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A11:DZ1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents Sheets("رسوب").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 11: N = 11: O = 12 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf Cells(R, 113) = "رسوب" Then Range("A" & R).Resize(1, 115).Copy Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' لترك صف فارغ اعلا كل صف O = O + 2 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' وإذا اردت زيادة عدد الصفحات الطلوب نقل وترحيل البيانات اليها ... سهلة إن شاء الله ماعليك إلا أن تضيف هذه الجزئيه في الكود مع كتابة اسم الصفحة الجديده والمعيار الجديد ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ودمتم في حفظ الله ترحيل مفيد جدا كل الصفحة بشرط.rar

شكرا جزيلا على الخدمة

البرنامح يعمل حتى الصف 45 (ويمكن الزيادة اذا اردت وذلك بنسخ المعادلات الى اي عدد من الصفوف) اكتب فقط في الصفحة الرئيسية اسم الطالب وعلاماته وسوف تنتقل مباشرة الى حيث تريد

اتقضل اخى الحبيب الملف بعد التعديل عليه وعمل ترقيم تلقائى متسلسل للعمود A رئيس اللجنة.xlsm

وعليكم السلام 🙂 هذا يعتمد على طريقة عملك للبحث ، هل عن طريق الاستعلام ، او بالكود في النموذج مباشرة عن طريق Filter ، او بالكود وتغيير Recordset او تغيير RecordSource ، جعفر

السلام عليكم تم عمل المطلوب بالمعادلات وأعمدة مساعدة... الملف ثقيل قليلا لوجود معادلات صفيف... يمكن عمل ذلك بالأكواد وسأحاول معه لاحقا إن لم يتفضل أحد الأعضاء المتمكنين من إنشاء كود يسهل عمل الملف... ملاحظة: لقد تم تغيير الملف المرفق... بن علية حاجي بحث في كل الجدول.xlsm

بعد إذن العضو How To Excel تفضلوا البرنامج إقرار ضريبة القيمة المضاف 2.0.rar

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

وعليكم السلام ما اعرف شو المطلوب الآن؟ جعفر

تفضلي ..... test1.accdb

السلام عليكم ورحمة الله هذا ما فعلته في الملف عند إضافة الماكرو التي تحسب "إجمالي الواجب دفعه" (في العمود I) عند تغيير قيمة "الواجب دفعه" (العمود J للأقساط الشهرية) حسب كل صف... وكمثال لذلك قم بإعادة حجز المبلغ 300000 في الخلية J2 (الخاصة بالقسط الشهري للاسم "محمد") وستلاحظ مباشرة أن المبلغ 300000 في الخلية I2 (إجمالي الواجب دفعه أو إجمالي الأقساط المدفوعة) أصبح 600000 وهو المبلغ الذي يُحذف من المبلغ الإجمالي للقرض ليعطي المبلغ "المتبقي بالذمة" في الخلية K2 والذي سيكون في هذه الحالة 4400000... والله أعلم بن علية حاجي الرواتب.xlsm

فورم اضافة وبحث وحذف وتعديل واغلاق طباعة بدون ازرار شرح الفيديو

وعليكم السلام 🙂 شغلك كان تمام ، ولكنه يحتاج لبعض التعديل 🙂 ولا انصحك ابدا بأن تغير فإنك ستدخل في مشاكل وصعوبات جديده انت في غنى عنها ، فلا اعلم احد يستطيع حفظ الاسم الكامل لجميع الاطباء !! المقترحات: تغيير 1 و 2 و 3 الى مربعات نص ، . عمل كود لحدث بعد التحديث لإسم الطبيب ، ويكون فيه الكود التالي: me.t2= me.[الطبيب المعالج].column(1) me.n1= me.[الطبيب المعالج].column(2) me.f1= me.[الطبيب المعالج].column(3) . تغيير مصدر سجلات اسم الطبيب الى . وتعديل اعدادات الحقل الى . والنتيجة: . جعفر 1025.d1.accdb.zip

حيالله اخوي ابو الآء 🙂 هممم ، اذا قصدك تعمل جدول خاص للارقام ، وتكتب فيه الارقام 1 1.1 1.2 1.3 1.4 1.5 1.6 1.7 1.8 1.9 2 2.1 ... 100 وفي حقل آخر في الجدول تكتب النسبة لكل رقم ، ثم في استعلام تربط حقل رقم هذا الجدول بمعدل الطالب في الجدول الآخر ، ثم تعطيه على هذا الاساس النسبة ، فنعم ممكن 🙂 جعفر

تسلم اخي العزيز ahmed_bahmeed علي ردك وتم التجربه والحمد لله نجحت اشكرك مره اخرى

السلام عليكم ورحمة الله تفضل ساجدة.xlsm

وعليكم السلام جرب هذا sheets(2).activate Cells.Select Selection.Clear

السلام عليكم ورحمة الله راجع الملف المرفق لعل فيه بعض ما تريد... تم إضافة ماكرو في حدث الورقة لحساب قيمة الواجب دفعه التراكمي في عمود إضافي... بن علية حاجي الرواتب.xlsm

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

اخي بن علية لك كل الاحترام والتقدير و أحب أن اذّكر ان الأكواد التي أضعها(بكل تواضع) هي بتصرف كل شخص طالب للعلم وأحيّ فيك روح احترام حقوق النشر و المكليّة (بذكر اسم واضعي الاكواد) واخيراً بالاذن منك اخي بن علية أقدّم هذا الحل مع تحياتي أخوكم سليم Important.xlsm

السلام عليكم تم عمل المطلوب في الملف المرفق... بالنسبة لجلب الأسماء دون تكرار استعملت بعض الأوامر -بتصرف- من كود أخي سليم Get_Uniques (وأستسمحه في ذلك) والذي أدرجه في موضوع طريقة إظهار أكثر من نتيجة عند استخدام vlookup... بالنسبة لمبلغ آخر الرصيد وتاريخه لكل عميل استعملت معادلات صفيف (في 50 سطر من السطر 17 إلى السطر 66)... مع استعمال نطاق مسمى Rng وبعض التنسيقات الشرطية... بن علية حاجي مهم.rar

جرب هذا الملف example_سليم.xlsm

الأستاذ الكريم // ali mohamed ali جزاكم الله خير الخير #ExcelVBA التهيئة وإعدادات الأمان

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

احسنت بارك الله فيك عمل رائع وهذا هو ملف العمل لإكتمال الفائدة بالتأكيد طبعا بعد اذن استاذنا الكبير مجدى Print without Buttones.xlsm

أخي المحترم من محرر الفجوال القائمة tools اختر vbaproject properties الصفحة الثانية protection علم على lock project ثم اختر في الأسفل الباسوورد وحذار من النسيان أرجو أن أكون أفدتك

كود هذا هو DoCmd.ApplyFilter , "[mablagh]= forms!bahte!txtbahte"