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

البرنامج مفتوح الاكواد للتعليم تفضلوا الاختبار الحاسوبي.xlsm

وعليكم السلام -يجب تغيير هذا السطر من الكود Label1.Caption = " " & NoToTxt(TextBox1.Value, " فلس", " درهم") على ان يصبح هكذا وتم التجربة بالفعل بالطابعة ويعمل كما تريد Label1.Caption = NoToTxt(TextBox1.Value, " درهـــمً", " فلــس") التفقيط1.xlsm

السلام عليكم ربما هذى المثال قد يفيدك من موقع اجنبي بالتوفيق إن شاء الله SignatureCapture (1).zip

اعرض الملف اضافة محتوى القائمة المنسدلة آليا السلام عليكم I needed to Autofill the validation dropdown list with specific values for a large number of cells For a cell corresponding to Row B and Column C , I wanted the drop down to show those values CCCC,CCC,CC,C,CB,B,BB,BBB,BBBB and so on for the rest of the matrix The First step was to prepare the dropdown required contents using equations as shown on the table to the right side السلام عليكم أردت ملء بيانات القائمة المنسدلة لعدد كبير من الخلايا ضمن مصفوفة بحيث يكون متوى القائمة المنسدلة عند تقاطع العمود المعنون ب حرف C مع الصف المعنون بحرب B كالتالي CCCC,CCC,CC,C,CB,B,BB,BBB,BBBB و عليه فالخطوة الاولي قمت بتجهيز المحتوى المطلوب عن طريق المعادلات فى الجدول على اليمين كما هو مبين فى الصورة التالية Next i prepare the following VBA code , which reads the values from the above table and add them to the dropdown list contents for all selection cells The code reads the values 11 cells to the left ,of the target cell , and you can change that of course based on your case و الخطوة التالية كانت اعداد الكود المطلوب لتنيذ العملية كما هو مبين أدناه حيث يقوم الكود بقراءة المحتوى من الجدول اعلاه و اضافته ضمن القائمة المنسدلة لكل الخلايا فى الجدول على اليمين و الكود تم اعداده ليضف فى محتوى القائمة المنسدلة لكل خلية فى الجدول القيمة فى الخلية على بعد 11 عمود الي اليمين فى الجدول السابق، و طبعا يمكن تعديل هذه القسمة بحسب الجدول السابق Sub FillDropDown() Dim myrow As Byte, mycol As Byte, TargetVal As String myrow = Selection.Rows.Count mycol = Selection.Columns.Count mycell = ActiveCell.AddressLocal For i = 0 To myrow - 1 For j = 0 To mycol - 1 Range(mycell).Activate ActiveCell.Offset(i, j).Activate '11 is the number of cells the source value exist to the right of the target cell TargetVal = ActiveCell.Offset(0, 11).Value With ActiveCell.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=TargetVal .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With Next j Next i End Sub To run the code , add it in a module in your file , and make sure the file is saved as macro-enabled excel file then select all the target cells in the left side table , Press Alt+F8 , then choose the code قم باضافة الكود لملفك، و تأكد من حفظ الملف بصيغة تفعيل الماكرو macro-enabled excel file ثم قم باختبار كافة الخلايا المستهدفة اضغط ALT+F8 شغل الكود You will find that all cells in the target table has now the required dropdown list contents as targeted ستجد أن كافة الخلايا التي تم اختيارها قتم تم اضافة قائمة منسدلة لها بالمحتوى المطلوب كما هو مبين فى الصورة The Reason behind developing this code was that i needed to fill the dropdown lists in 225 cell with variable contents in this example related to using Analytic Hierarchy Process (AHP) technique to compute relative weights for any evaluation criteria ملاحظة: أضفت المحتوى باللغة الانجليزية ايضا لدراسة تأثير ذلك على انتشار المشاركة كما يقولون الحاجة ام الاختراع ، فقط احتجت لهذا الأمر لملء 225 خلية بقوائم منسدلة ذات محتوى متغير فى هذا المثال الخاص بالأوزان النسبية لمعايير التقييم صاحب الملف محمد طاهر تمت الاضافه 19 مار, 2021 الاقسام قسم الإكسيل

وعليكم السلام 🙂 اتبع هذه الخطوات . . . . . . نعمل جدول tbl_Grades وفيه الحقول المطلوبة من ملف الجدول الذي استوردناه من الاكسل . والان نعمل استعلام الحاقي ، لنعبء به البيانات المطلوبة الى الجدول tbl_Grades ، ويجب ملاحظة الصورة اعلاه ، حيث نرى تسميات الجدولين . لنحصل على البيانات فقط ، يجب عمل معيار لأحد الحقول (الحقل الاسهل لي كان حقل obs) ، ونضع امر بإستبعاد السجلات التي لا نريد ان نلحقها في جدول tbl_Grades . والنتيجة نظيفة وجاهزة للإلحاق . . والنتيجة النهائية . جعفر import_from_Excel.zip

تفضل اخي الكريم تم اضافة معيار رقم الفاتورة forms!frm_search!txtsearch ليصبح الكود كاملاً كالتالي DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iAmount = [iAmount]*-1 WHERE (((tbl_Items.iAmount)>0) AND ((tbl_Items.iBill_Number)=[forms]![frm_search]![txtsearch]));" DoCmd.SetWarnings True MsgBox "تم تحويل جميع الارقام الموجبة الى سالبة", vbInformation DATA14.rar تحياتي

تفضل اخي الكريم DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbl_Items SET tbl_Items.iAmount = [iAmount]*-1 WHERE (((tbl_Items.iAmount)>0));" DoCmd.SetWarnings True MsgBox "تم تحويل جميع الارقام الموجبة الى سالبة", vbInformation DATA14.rar تحياتي

تفضل هذا مفعل البرنامج كامل ومرفق به فولدر إسمه (K) يحتوي على ملفات يرجى وضعها داخل ملف البرنامج بعد تسطيبه في Program Files والموافقة على الاستبدال إذا لزم الأمر (طبعاً بعد غلق البرنامج بعد تسطيبه) . وسيكون كامل بإذن الله تعالى ، والكمال لله وحدة من قبل ومن بعد اللغة يمكنك اختيارها بعد التسطيب ولكم جزيل الشكر Kutools وهذا رابط اخر على ميديا فاير Kutools.for.Excel.16.50

للعلم: انا لا اوصي بإستخدام المادة 3 من طريقة عملي ادناه ، فقد تسبب بطئ في برنامجك !! لما تحتاج الى حقول في الاستعلام ، طريقة العمل هي كالتالي: اعمل الاستعلام (مثلا qry_1) وفيه حقول الجدول ، بالاضافة الى بقية الحقول المحسوبة التي ستحتاج اليها خقول محسوبة اخرى ، ثم اعمل استعلام (مثلا qry_2) ، ويكون مصدر الاستعلام هو qry_1 ، وتضع فيه بقية الحقول المحسوبة ، وستبقى بعض الحقول الغير موجودة في الاستعلام ، ولكننا نحصل على نتيجتها من الدالة في الوحدة النمطية ، فعليه ، ننادي هذه الدالة بدل اسم الحقل ، كمل هو موضح في الصورة: . وتشير في الدالة التالية الى هذا الاستعلام الاول : Function make_rst() Set rst = CurrentDb.OpenRecordset("Select * From qry_1") End Function وننادي الاستعلام هكذا: Private Sub cmd_qry_ALL_Click() Call make_rst DoCmd.OpenQuery "qry_2" End Sub جعفر 1364.1.حسابى معدل.accdb.zip

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

استاذ Ali Mohamed Ali جزاك الله خيراً حل ممتاذ شكراً علي المساعدة

انا نظرت في هذه الدالة فقط ووجدت ام جميع الحقول باللون الوردي غير موجودة في الجدول ، فكيف تتوقع نتيجة منها !!

وعليكم السلام-تفضل =IFERROR(INDEX(التحميل!$B$2:$B$9224,MATCH((F2&"*"&G2&"*"&D2&"*"&E2),التحميل!$H$2:$H$9224&"*"&التحميل!$C$2:$C$9224&"*"&التحميل!$F$2:$F$9224&"*"&التحميل!$G$2:$G$9224,0)),INDEX(مستودع!$B$2:$B$4000,MATCH((F2&"*"&G2&"*"&E2),مستودع!$F$2:$F$4000&"*"&مستودع!$C$2:$C$4000&"*"&مستودع!$E$2:$E$4000,0))) معادلة مزدوجة1.xlsm

هذه هي الخطوة الاولى ، وهي عزل الحقول من الجدول والحصول على النتيجة الصحيحة ، والخطوة التالية ، هي ان تبدأ تأخذ الحقول الى الاستعلام ، حقلا حقلا ، وتحذف الدالة لهذا الحقل من الوحدة النمطية ، وتُبقي الحقول اللي تعمل مشكلة في الاستعلام 🙂 جعفر

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

جرب هذا الشيء With Sheet1.Range("F5:F34,F50:F79,F95:F124") .NumberFormat = "General" .Value = .Value End With

تم حذف Sheets("login").Select وتم إضافة Sheets("login").Visible = 1 Sheets("login").Activate في بداية الكود وتم لإضافة Sheets("login").Visible = 2 في نهاية الكود لأن Sheets("login") يجب أن يكون مرئي عند عمل الكود وتم إخفاء مرة أخرى بعد تشغيل الكود جرب هذا ربما يفي الغرض الملف المراد اصلاحة.xlsb

[الجديد في التحديث 5.10]: 1- في قائمة إزالة، تم إضافة خاصية لحذف المسافات البيضاء الزائدة نهاية الفقرات. 2- في الفهرسة الآلية، في نافذة (فهرسة الآيات القرآنية)، تم إضافة خيار لإدراج الأقواس التي تريدها ضمن الآيات في الفهرس النهائي. 3- في الفهرسة الآلية، تحسينات في كود (فهرسة الآيات القرآنية) وكود (فهرسة النصوص).

نفس الكود السابق استبدل wb.ActiveSheet.Range("F10:F11") = a بـ wb.ActiveSheet .Range("D4") = Range("C2") Range("C2").ClearContents

أخى الفاضل / هذا الملف لأحد الزملاء افتحه قد يفى بالغرض منع فتح الملف إذا تم نقله أو تغيير إسمه ومنع حفظه بإسم جديد.rar

وين؟