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

عليكم السلام عادة نستخدم الدوران على مجموعة السجلات ثم ننتقل للسجل التالي بــ MoveNex.

تفضل : مدة الخدمة على أكسس 2010.rar

عاجز عن شكرك اخى تسلم ايدك

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

الله يرضى عليك سهلت عليه العمل جزيت خيرا هو المطلوب

جرب هذه المعادلة =IF(A2="","",A2+INDEX($L$2:$L$100,MATCH(A2,$J$2:$J$100))) اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتصبح هكذا =IF(A2="";"";A2+INDEX($L$2:$L$100;MATCH(A2;$J$2:$J$100)))

هذا الماكرو Option Explicit Sub Give_Months() Dim lr%: lr = Cells(Rows.Count, "E").End(3).Row Dim My_text$ Dim i% For i = 2 To lr If Application.CountIf(Range("e2:e" & i), _ Range("e" & i)) = 1 And Range("e" & i) <> "" Then My_text = My_text & Range("e" & i) & " ," End If Next Range("H2") = Mid(My_text, 1, Len(My_text) - 2) & " ." Columns(8).AutoFit End Sub الملف مرفق 2019_salim.xlsm

السلام عليكم محاولة عسى ان تحقق طلبك تحياتي تصفية.xlsm

بارك الله فيكم ولكم وشكرا احبتي على الدعوات الطيبات

بعد اذن استاذنا الكبير سليم هذه معادلة أخرى لإثراء الموضوع أوفيسنا.xlsx

جرب هذه المعادلة =CHOOSE((F2="")+(I2="")+1,CHOOSE((I2="")+1,I2),F2,C2) اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتبصح هكذا =CHOOSE((F2="")+(I2="")+1;CHOOSE((I2="")+1;I2);F2;C2)

من فضلك لو ممكن التوضيح على الملف بالصور لأنى مش فاهم انت عايز ايه بالضبط

من فضلك يمكنك التوضيح اكثر على الملف فى اى خلية تريد وضع هذه المعادلة ؟ وعلى اى عمود يتم العمل عليه واخذ بنود المعادلة منه فالأمر غير واضح فهناك عدة أعمدة ؟!!!!!!!!!!!!!!!

بارك الله فيك وجزاك الله كل خير على كلمات حضرتك الرقيقة والحمد لله الذى بنعمته تتم الصالحات

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

وعليكم السلام لك ما طلبت بالعربى والإنجليزى تفقيط عربى وانجليزى.xlsm

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

تفضل اصلا لا يوجد Label 40 فقط يوجد 41 تفضل الكود هيكون هكذا Private Sub CommandButton2_Click() 'Beep DataBase1.CommandButton2.Visible = False DataBase1.CommandButton3.Visible = False DataBase1.Label41.Visible = False DataBase1.Label54.Visible = False DataBase1.PrintForm DataBase1.CommandButton2.Visible = True DataBase1.CommandButton3.Visible = True DataBase1.Label41.Visible = True End Sub وهذا هو ملفك هنا nw11 قاعدة بيانات الطلاب.rar

وعليكم السلام -اهلا بك اخ كريم بالمنتدى كان عليك من البداية استخدام خاصية البحث فى المنتدى فهذا الموضوع تكرر كثيرا ويتم باداة Solver https://www.officena.net/ib/topic/85879-معادلة-جمع-بعض-الارقم-التى-تحقق-ناتج-معين/?tab=comments#comment-544481 https://www.get-digital-help.com/2010/01/05/identify-numbers-in-sum-using-solver-in-excel/ https://www.officena.net/ib/topic/69588-ايجاد-قيمة-ثلاثة-مجاهيل/?tab=comments#comment-452852 https://www.officena.net/ib/topic/56398-مساعدة-فى-عمل-معادلة-جمع-تلقائى-لايجاد-مجموع-تشكيلات-لرقم-معين/?tab=comments#comment-435133 https://www.officena.net/ib/topic/7520-الوظيفة-الإضافية-solver/?tab=comments#comment-33991 https://www.officena.net/ib/topic/37745-جدول-توزيع-مواد-على-مجموعات-اريد-المساعدة-مع-الشكر/?tab=comments#comment-203888 او يمكنك تجربة هذا بالدالة المعرفة GetCombination Number.xlsm

الأخوة الكرام خبراء المنتدى سبق أن طلبت المساعدة في هذا الموضوع وقد أجاب عدد من الأخوة جزاهم الله خيراً ، وكان الحل الذي قدموه يبدو كافيا ، ولكن عند الاستخدام تبين عدم جدوى الطريقة الموضوع بسيط لدي جداول درجات تلاميذ لعدة أشهر ، يتم استخراج المعدل لهذه الأشهر ثم تقريب الناتج ، والتعامل مع الناتج الجديد في العمليات الحسابية اللاحقة على أساس العدد بعد تقريبه يصبح عددا صحيحا بلا كسور ، ولكن هذا متعذر مع دوال التقريب المعروفة ، لان اكسل يبقى يتعامل مع العدد بعد تقريبة مع كسوره حتى ولم لم تظهر تلك الكسور مما يضطرني الى نقل بيانات يدويا ( العمود D الى العمود E في المثال المرفق ) ، وهذه الطريقة مرهقة جدا لكثرة البيانات ولإحتمال الخطأ ... الرجاء مساعدتي للحاجة الملحة مع جزيل الشكر وفائق التقدير المعدل.xlsx

تفضل كرت دوام.xlsx

الأخ الفاضل هذا الشرح يحتاج لبعض التوضيح مثل Range("RN").AutoFilter أي ان اتصفية تكون في النطاق A3:D75 الذي سميناه RN RN كيف يتم تحديده داخل الكود ورجاءاً ممكن شرح الطريقة خطوة بخطوة حتي يتسني لنا فهم كيفية عمل مثل هذا البحث أخي الفاضل أ.محمود الموضوع ببساطة كالتالي أولاً : نحدد النطاق الذي سنعمل عليه ومن مربع الاسم الموجود على يسار شريط الصيغة نكتب اى اسم نريده وليكن كما تفضل ابو حنين RN ونضغط انتر .. وهناك طريقة اخرى لعمل ذلك بأن نذهب الى القائمة صيغ Formulas ثم نختار ادارة الأسماء Name Manager واختيار جديد New ثم نكتب الاسم الذي نريده للنطاق ونحدد خلايا هذا النطاق من Refers to ونضغط موافق في هذه الخطوة حددنا النطاق الذي سنعمل عليه وهو مثلا من A5:D75 واعطيناه اسما وليكن كما في المثال RN .... تمام ثانيا : نذهب الى المطور Developer ونختار ادراج Insert ونحدد مربع نص TextBox ونضيفه بداخل الورقة عن طريق السحب والإفلات .. تمام كده جددنا النطاق وأضفنا مربع النص اللى هنكتب فيه معيار البحث .. وطبعا يفضل انك تضع مربع النص اعلى العمود اللى هيتم فيه البحث .. تمام نيجي على الورقة بتاعتنا تحت نضغط Right-Click ونختار اظهار التعليمات البرمجية او View Code ومن اعلى اليسار نفتح القائمة المنسدلة ونختار اسم مربع النص بتاعنا ونتاكد ان المربع على اليمين مكتوب فيه Change بمعني ان الكود هيتنفذ في حالة تغير مربع النص وهيكون شكلها في البداية كده Private Sub TextBox1_Change() End Sub تبدأ بقي تقف بالماوس في وسط ال sub دي وتكتب الكود بتاعك اللى هو ايه .. اللى هو ده If TextBox1 = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=2, Criteria1:=TextBox1.Text End If معناه ايه ده في السطر الاول بنقول لو مربع النص بتاعى فاضي ايه اللى يحصل السطر الثاني نقوله الغي الفلتر خالص .. علشان كل البيانات تبقي ظاهرة وواضحة طالما لم نكتب شئ في مربع النص الخاص بالبحث طب لو مش فاضي والمستخدم كتب فيه اى حاجة نقوله النطاق اللى اسمه RN ده اللى احنا سمناه في الخطوة الأولى اللى هو من A5:D75 اعمل فلتر ليه كويس بس النطاق ده اكثر من عمود هيعمل فلتر على اساس اى عمود نقوله Field:=2 ويبقي الفلتر بتاعك على العمود الثاني في النطاق .. تمام طب لو انت عاوز العمود الأول غيرها خليها 1 لو عاوز العمود الرابع غيرها خليها 4 وهكذا طب شرط التصفيه او الفلتر ايه نقوله النص المكتوب في مربع النص بتاعنا Criteria1:=TextBox1.Text ونفس الكلام بقي على الاربع مربعات نص الموجودين في ملف الأستاذ أبو حنين أرجو انى اكون وفقت .. تحياتي

السلام عليكم مرفق ملف مضغوط به خطوط عثمانية وملف وورد به مثال (سورة الفاتحة) أرجو إنزال الخطوط أولا في مجلد Fonts داخل الويندوز ثم فتح ملف الوورد أتمنى الإفادة للجميع OthmanyFonts.rar

صديقي العزيز ما هكذا تورد الابل يجب عليك مراجعة محاسب متخصص بالمفردات المحاسبية على العموم في حقل محسوب ضع الكود التالي [daen]+[ojlah]-[madeen]+[ojalih]