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

odate = Dlookup("your filedDate name","your table name") بدلا من odate = #3/28/2021# باعتبار your filedDate name هو اسم حقل التاريخ في الجدول و your table name هو اسم الجدول

اخي الفاضل : الطريقة الصحيحة للحصول على رقم جديد للفاتورة ، هي عن طريق استعمال حقل رقم ، ثم في النموذج تزيد هذا الرقم ، لماذا ؟ هل ستحتاج الى ان يبدأ هذا الرقم من جديد في كل سنة ، او تجعل كل فرع من فروع الشركة يكون له التسلسل الخاص به ، او .... لذا حقل "ترقيم تلقائي" هو الحقل الخطأ لإستعماله في حالتك !! ابحث في المنتدى ، فهذا من المواضيع الكثيرة التداول ، واليك مثال : ترقيم تلقائي يتجدد كل سنة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

تم عمل المطلوب بمعادلة المصفوفة (Ctrl+Shift+Enter) بصفحة بحث =IFERROR(INDEX(Sheet1!$A$2:$A$2000,SMALL(IF(Sheet1!$B$2:$B$2000=$A$1,IF(Sheet1!$C$2:$C$2000="مفتوح",ROW(A$2:A$2000)-ROW(A$2)+1)),ROWS($A$3:A3))),"") اومر التوريد1.xlsx

فيه طريقة اخرى خطرت على بالي ، بحيث نرجع الى اول مرفق ، ونجعل جميع الحقول المحسوبة في وحدة نمطية ، تكون هناك دالة واحدة رئيسية وفيها جميع الحقول والمعادلات (وهذا سيعطينا المجال ان نفكك معادلات iif الى if ... then مما يجعلها اسرع) ، وهي تنادي Recordset الجدول ولمرة واحدة فقط لكل ID ، وتضع نتائج جميع هذه الحقول في اعلى الوحدة النمطية ، في متغير TempVar (او حتى في متغير عادي متوفرة قيمته للوحدة النمطية) ، في الاستعلام ، هذه الحقول تنادي الدوال الخاصة بها ، والدوال تتأكد من مطابقة ID : فاذا كان جديد ، فيشغل الدالة الرئيسية حتى تعطي جميع النتائج الى المتغيرات ، اذا كانت نفسها ، فالدالة تعطي قيمة المتغير مباشرة الى الاستعلام. فهم الكلام اصعب من فهم الموضوع نفسه 😁 جرب ، واعطنا النتيجة والكود لوسمحت ، وخلينا نستفيد من الكود 🙂 جعفر

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

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

وعليكم السلام-تفضل =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

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

وعليكم السلام -أهلاً بك فى منتدانا , يمكنك استخدام هذه المعادلة لتلبية طلبك =SUMPRODUCT(SUMIF(INDIRECT("'"&$B9&"'!"&"C9:C19"),C$7,INDIRECT("'"&$B9&"'!"&"D9:D19"))) Boo2.xlsx

اجعل تنسيق الشهر كتاريخ كما تم عمله فبالفعل ان كاتب فى خلية الشهر مثلاً يناير 01/01/2021 وجعلت تنسيق الخلية ان يظهر اسم الشهر فبالتالى كما تريد يصبح هذا البحث بأول الشهر وباقى جزء المعادلة "<="&EOMONTH(C$1;0) يعنى أقل من أو يساوى أخر نفس هذا الشهر فمثلاً لو وقفت على الخلية التى بها اسم الشهر لوجدت ما أود توضيحه لك فيظهر فى شريط الصيغة انه تاريخ ... وشكراً

تفضل بيان تجميعى1.xlsx

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى قبل رفع المشاركة-تفضل , ملفك به مشكلة فى التحميل اضافة سطر بنفس التنسيق والمعادلات

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT((WEEKDAY($A$2:$A$32,2)<>6)*(WEEKDAY($A$2:$A$32,2)<>7)*(B2:B32="")) مثال1.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة المصفوفة (Ctrl+Shift+Enter) عذراً أستاذى سليم فلا أرى رد حضرتك بارك الله فيك =INDEX(DATA!$D$2:$D$19,MODE(IF(DATA!$A$2:$A$19=$A2,MATCH(DATA!$D$2:$D$19,DATA!$D$2:$D$19,0)))) Thanks1.xlsx

تفضل لك ما طلبت كل ما عليك فعله هو تغيير الرقم الموجود بالخلية M1 ... لما تريد 1رواتب.xlsm

وعليكم السلام -تفضل تم ضبط الملف كما تريد 2.xlsb

تفضل لك ما طلبت دبل كليك1.xlsm

حلك هذا يعطيك الشهر للتاريخ الحالي الصحيح حسب سؤالك هو : Year([اسم الحقل])

السلام عليكم أولا- جربت المرفق علي أوفيس 2016 ولا توجد أي مشكلة ثانيا- جرب هذا المرفق أجريت بعض التعديلات أرجو أن تنهي المشكلة لديك سجل دورات الموظفين-2.accdb

بواسطة المعادلات لا يمكن عمل هذا الشيء لانه مجرد ان تغير الأرقام يتم مسح كل شيء من الصفحة شهري و يبقى فقط اليوم المسجل في اليومية تفيير اسماء الصفحات الى Daily و Montghly لحسن نسخ الكود ولصقة الكود Option Explicit Sub From_Daily_to_Monthly() Dim D As Worksheet, M As Worksheet Dim F_rg As Range, Find_what, RO%, n%, Answer As Byte Set D = Sheets("Daily") Set M = Sheets("Monthly") Find_what = D.Range("O4") Set F_rg = M.Range("M3:M35").Find(Find_what, lookat:=1) If F_rg Is Nothing Or Find_what = vbNullString Then MsgBox "in range " & M.Range("M3:M35").Address & Chr(10) & _ "I can't find your data " & Find_what, 64 Exit Sub End If RO = F_rg.Row n = Application.CountA(M.Range("C" & RO).Resize(, 10)) If n Then Answer = MsgBox("This data Already Exit " & Chr(10) & _ "Do you want to Replace It", vbYesNo) If Answer <> 6 Then Exit Sub End If M.Range("C" & RO).Resize(, 10).Value = _ D.Range("C6").Resize(, 10).Value End Sub dr_ahmed.xlsm

السلام عليكم ورحمة الله استخدم هذه المعادلة =IFNA(VLOOKUP($A2;التحميل!$A$2:$B$1000;2;0);VLOOKUP($A2;مستودع!$A$2:$B$1000;2;0))

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

هذا الملف يقوم بادراج كل الفصول في القائمة المنسدلة اوتوماتيكياً (بدون تكرار) Ragheb.xlsm

يجب ادراج القصول التي قمت باضافتها في القائمة المنسدلة

تفضل (بعد ازالة الحلابا المدمجة) Ragheb.xlsx

جزاك الله خيرا..

السبب استخدامك للحروف العربية في الكود مع الابقاء على المسافات الخالية مثال2.accdb

بارك الله فيك أستاذ محمد وزادك الله من فضله

اعرض الملف اضافة محتوى القائمة المنسدلة آليا السلام عليكم 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 الاقسام قسم الإكسيل

أحسنت استاذ محمد بارك الله فيك

اصبر فطلبك ليس بالسهل أو الهين !!!!

ربما ينفع هذا الماكرو Option Explicit Sub My_macro() Dim D As Worksheet, RO_A%, i%, m% Dim T As Worksheet Dim arr(), it, MX, Cret, ky Dim Dic As Object Set D = Sheets("DATA") Set T = Sheets("TEST") RO_A = D.Cells(Rows.Count, 1).End(3).Row arr = Array("A", "B", "C") For Each it In arr Set Dic = CreateObject("Scripting.Dictionary") For i = 2 To RO_A If D.Cells(i, 1) = it Then Dic(D.Cells(i, 4).Value) = _ Dic(D.Cells(i, 4).Value) + Val(D.Cells(i, 3)) End If Next i MX = Application.Max(Dic.Items) For Each ky In Dic.Keys If Dic.Item(ky) = MX Then Cret = ky Exit For End If Next ky T.Cells(m + 2, "E") = Cret m = m + 1 Dic.RemoveAll Next it Set D = Nothing: Set T = Nothing Erase arr: Set Dic = Nothing End Sub الملف مرفق Hashem_Dict.xlsm

وعليكم السلام-اجعل المعادلة هكذا =IF($G6>$J$2,$J$2,$G6) الدرجة1.xlsx

وعليكم السلام-لك ما طلبت قوائم الفصل 2.xlsm