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

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة =IF($A2="أربيل",0,IF(AND($C2>=DATE(2022,6,1),$A2="حلة"),10000,5000)) تعديل على معادلة العمولة1.xlsx

وعليكم السلام-تقضل وكما ترى الفورم بفتح ويعمل بكل كفاءة Searchable Dropdown Settings Example.xlsm

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

ممتاز استاذ مجدى جزاك الله خير الثواب

وعليكم السلام-تفضل 1الاحصاء.xlsx

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

متابع... اود معرفة الهدف من ذلك ...

Jehad.93 لما كل هذا التأخر فى الرد بعد 11 يوم ... كان يجب غلق المشاركة !!!!

فورم بحث عن اية فى سورة طه وسورة محمد والتفسير وقراءة الايات الفيديو رابط الملف اسفل الفيديو على اليوتيوب

وعليكم السلام-لابد من رفع الملف نفسه لوضع المعادلة تماماً فى المكان المخصص لها وتجنباً لإهدار الوقت ... ويمكن هذا بمعادلة Date ... ,وبما انك لم ترفع الملف فيمكنك وضع المعادلة بنفسك فى المكان المخصص لها طبقا لملفك والخلايا المعلومة لك والمجهولة بالنسبة لنا =Date(Year,Month,Day)

وعليكم السلام-بما انك لم تقم برفع ملف ... فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك . فبها طلبك , تفضل : print listbox وهذا أيضاً فيديو للشرح وهذه مواقع لكاتب الأكواد https://www.patreon.com/posts/47615393 http://vbawriter.com/vba/

أخي أبو عبدالله .. للتحكم بالنموذجين في نفس الوقت تأكد أنك حاط المودل = No أما بالنسبة لفتح النموذج أكثر من مرة فحسب علمي فيه طريقة متقدمة بالأكواد يمكن تعمل كذا .. ولكن ما تعمقت فيها .. 🙂

جميعا بإذن الله

وعليكم السلام ..جرب واعلمنا النتيجة خذ بالك من ال parameter Public Function RcNumQ1(mID As Variant, fldName As String, MyQuery As QueryDef) As Variant Dim RstClone As Recordset Dim Fld As Field Dim i As Long RcNumQ1 = Null If IsNull(mID) Then Exit Function Set RstClone = CurrentDb.QueryDefs("MyQuery").OpenRecordset If RstClone.RecordCount = 0 Then Exit Function Set Fld = RstClone.Fields(fldName) With RstClone .MoveFirst Do Until .EOF i = i + 1 If Fld = mID Then Exit Do .MoveNext Loop End With RstClone.Close RcNumQ1 = i End Function

شكرا لكلماتك الطيبة بالنسبة لشرح المعادلة ستجد أنها تتكون من 4 أجزاء الجزء الأول =IFERROR(...................,"") وهو لجعل الخلية قارغة إذا حدث خطأ في ناتج المعادلة .............. والجزء الثاني INDEX($A$3:$A$10,SMALL(IF(C$3:C$10="ح",$A$3:$A$10),ROW()-12)) وهو لجلب رقم المسلسل من العمود a في حالة كون العمود c وما بعده عند السحب يسارا يساوي "ح" ولأن المعادلة في الصف 13 استعملنا row()-12 وتعني 1 والجزء الثالث &" "& للربط بين معادلة المسلسل ومعادلة الاسم الجزء الرابع INDEX($B$3:$B$10,SMALL(IF(C$3:C$10="ح",$A$3:$A$10),ROW()-12)) وهو لجلب الاسم من العمود B في حالة كون العمود c وما بعده عند السحب يسارا يساوي "ح" ولأن المعادلة في الصف 13 استعملنا row()-12 وتعني 1 بالتوفيق

فى الvba code editor من tools ثم references ثم الاتى:

جزاك الله خيرا دكتور..ربي يبارك فيك

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

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

هذا المثال فى الملف المرفق اعددته بناء على طلب أحد الزملاء ،ليقوم بعد الخلايا التي لها لون معين و أطرح هنا مثالين فيما يلي : الأول يقوم بعد الخلايا فى مجال معين و التي لها نفس لون الخلية التي بها الدالة و هو يحتاج لمتغير واحد وهو المجال المطلوب عد الخلايا فيه CountByCellColor2.rar و طبعا عند التجربة و تعديل لون الخلية يحب تحرير الخلية لاعادة تفعيل الدالة و ذلك عن طريق F2 ثم Enter يتم تطبيق الدالة فى المثال الاول كما يلي =countmycolor2(coloredarea) اذا كان المجال له اسم مثل coloredarea او مباشرة كما يلي =countmycolor2(E7:J17) و الدالة فى المثال الاول هي Function countmycolor2(Myrange As range) Dim Mycolor As Integer Mycolor = activecell.Interior.ColorIndex Dim Myrow As Long, MyCol As Long Myrow = Myrange.Rows.Count MyCol = Myrange.Columns.Count Mycells = Myrange.Cells.Count Dim colorcounter As Integer, counterx As Integer For i = 0 To Myrow - 1 For j = 0 To MyCol - 1 counterx = counterx + 1 If Myrange.Cells(counterx).Interior.ColorIndex = Mycolor Then colorcounter = colorcounter + 1 End If Next j Next i countmycolor2 = colorcounter End Function المثال الثاني و الثاني هو يقوم بعد الخلايا الملونة بلون معين فى نطاق محدد باستخدام الكود، و يحتاج الي متغيرين الأول هو المجال المطلوب عد الخلايا بداخله و الثاني هو كود اللون المطلوب عد الخلايا التي تم تلوينها به CountByCellColor.rar و يتم تطبيق الدالة فى المثال الثاني كالتالي: مثال =countmycolor(coloredarea,3) اذا كان المجال له اسم مثل coloredarea او مباشرة كما يلي =countmycolor(E7:J17,8) Function countmycolor(Myrange As range, Mycolor As Integer) If IsNull(Mycolor) Or Mycolor > 56 Or Not IsNumeric(Mycolor) Then MsgBox " choose a number between 0 and 56" End If Dim Myrow As Long, MyCol As Long Myrow = Myrange.Rows.Count MyCol = Myrange.Columns.Count Mycells = Myrange.Cells.Count Dim colorcounter As Integer, counterx As Integer For i = 0 To Myrow - 1 For j = 0 To MyCol - 1 counterx = counterx + 1 If Myrange.Cells(counterx).Interior.ColorIndex = Mycolor Then colorcounter = colorcounter + 1 End If Next j Next i countmycolor = colorcounter End Function و هنا سنحتاج لمعرفة اكواد الالون لذا اضفت دالة لسردها و جدير بالذكر أن طلب صاحب الملف لا يشتمل ألوان متغيرة ، و لكن الألوان لديه ثابتة لذا يحتاج لمعرفة اللون مرة واحدة فقط ، مثلا الاحمر كوده 3 و لمعرفة اكواد الالون شغل الدالة التالية مع وقوف المؤشر فى عمود خالي و سيسرد لك البيانات و الوانها Sub Listcolors() ActiveCell.Offset(0, 0).Value = "ColorIndex" ActiveCell.Offset(0, 1).Value = "Color" For i = 1 To 56 ActiveCell.Offset(i, 0).Value = i ActiveCell.Offset(i, 1).Interior.ColorIndex = i Next i End Sub

السلام عليكم اخي الحسامي و انت ايضا فكرتك رائعة كعادتك التي نتمني ان لا نحرم منها ابدا و اسمح لي باضافة بسيطة تحياتي COLOR.rar

السلام عليكم ورحمة الله وبركاته استاذنا العزيز محمد طاهر عمل مبدع وصنع دالة لهذا الغرض لهو عمل كبير ومبدع وجزاك الله خيرا اخي عادل حنفي عمل متميز كعادتك وهنا مشاركة مني فقط عند اختيار لون بواسطة المؤشر يقوم بالعد ووضع الناتج واللون CountByCellColor-hosami.rar

السلام عليكم و اسمح لي ايضا استاذنا لسهولة الوصول للون خلية معينة مباشرة عند تحديد خلية معينه و الضغط علي زر تظهر رسالة تعطي درجة لون الخلية و ان كان ليس بها ايلون تظهر رسالة اخري تفيد بانها XLNONE اي بدون لون خالص تحياتي و تقديري Book1.rar