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

أنت لا تجد حلا لسؤالك لأن سؤالك غير مفهوم البتة أو ينقصه شرح مستفيض... وهو السؤال نفسه الذي طرحته في 4 مواضيع أخرى وطالبك الإخوة الكرام الذين شاركوا هذه المواضيع بوضع ملف يمثل الحالة التي تريدها ولكن دون رد منك... وفي هذا الموضوع (طلبك الأخير) لم تذكر متى تتغير قيمة الخلية A (تواتر تغير القيمة؟) ثم تقول "عندما تزيد قيمة الخلية A عن 2 فأكثر"، تزيد عن ماذا؟ هل تزيد عن قيمة ثابتة معينة أم عن قيمة لها سابقة وفي هذه الحالة أين هي القيمة السابقة للخلية A (أي هل يجب تخزينها في خلايا أخرى حسب تواتر تغيير قيمة هذه الخلية)؟ ننتظر توضيحاتك...

رائع يا ابن مصر متمكن من التنسيقات بشكل هائل بارك الله فيك .. تقبل تحياتي

اخى الفاضل سبحان الله انا سألتك على التنسيقات قبل ما ابدا .. انت الذي لم ترد لى خبر .. عامة مرفق الملف بالتنسيقات التى تريدها تحياتي Combinations Scenario For Values Summation.rar

السلام عليكم ورحمة الله أخي الكريم الجموعي، هذا حل باستعمال المعادلات... أخوك بن علية الملف المرفق : حل ترجمة بالمعادلات.rar

بارك الله فيك أخي الحبيب أبو تراب فقد أثريت المكتبة بشكل هائل ومفيد جدا تمت إضافة الكود الأخير بحمد الله واعذرني لأنني لا أضيف للمكتبة كود إلا بعد تجربته وتأكدي من أنه يعمل تماماً.. وجزيت خيراً على الإيضاح الرائع تقبل تحياتي القلبية ... ولا حرمنا الله من إبداعاتك المتميزة

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

اكواد التعامل مع التعليقات او Comments للتوضيح اكثر ارفق مثال Sub btnA1Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A1].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If cmt Is Nothing Then ' اضف تعليق و عين المرجع Set cmt = [A1].AddComment cmt.Text Text:="هذا تعليق في الخلية A1" & vbCrLf & vbCrLf & "تعليق في سطر جديد" End If End Sub Sub btnA1EditComment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A1].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If Not cmt Is Nothing Then 'افتح التعليق في وضع التحرير [A1].Select SendKeys "+{F2}" End If End Sub Sub btnDeleteA1Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A1].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If Not cmt Is Nothing Then ' احذف التعليق cmt.Delete End If End Sub Sub btnHideAllComments() Dim cmt As Comment For Each cmt In ActiveSheet.Comments cmt.Visible = False Next End Sub Sub btnDeleteAllComments() Dim cmt As Comment For Each cmt In ActiveSheet.Comments cmt.Delete Next End Sub Sub btnA2Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A2].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If cmt Is Nothing Then ' اضف تعليق و عين المرجع Set cmt = [A2].AddComment cmt.Text Text:="هذا تعليق في الخلية A2" End If ' اظهر التعليق و اختاره cmt.Visible = True cmt.Shape.Select End Sub Sub btnA3Comment() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A3].Comment ' اذا كان لا يوجد تعليق للخلية ..اضف تعليق If cmt Is Nothing Then ' اضف تعليق و عين المرجع Set cmt = [A3].AddComment cmt.Text Text:="تحذير" & vbCrLf & "هذا تعليق في الخلية A3" ' تنسيق التعليق With cmt.Shape.TextFrame ' تنسيق الخط .Characters.Font.Name = "Times New Roman" .Characters.Font.Size = 11 .Characters.Font.Bold = False .Characters.Font.ColorIndex = 0 'تلوين السطر الاول من التعليق .Characters(1, 5).Font.Color = vbRed .Characters(1, 5).Font.Bold = True End With End If End Sub Sub btnCPI() Dim cmt As Comment ' عين مرجع للكائن تعليق للخلية Set cmt = [A4].Comment If cmt Is Nothing Then Set cmt = [A4].AddComment With cmt .Text Text:="" ' اضافة صورة .Shape.Fill.UserPicture ThisWorkbook.Path & "\CPI.jpg" .Visible = False End With End If End Sub Comments.zip

اخى الفاضل لا أستطيع أن لا أنفذ طلبا لأستاذي وجزاك الله خيرا على تذكيري بالموضوع .. مرفق الملف بعد إضافة بعض التنسيقات وشرحها بالكود حتى يتسنى لك تغييرها ان اردت تحياتي Combinations Scenario For Values Summation.rar

تفضل أخي لعله المطلوب حذف خلية من الكمبو بكس.rar

السلام عليكم ورحمة الله وبركاته مقدمه هامه عن الصيغ نتعلم في هذه المقدمة كيفية ادخال الصيغة العوامل المختلفة في الصيغ المراجع النسبية والمطلقة الاقواس المختلفه ملاحظة تم عمل هذا الموضوع بناء على طلب احد الاخوه الاعضاء http://www.officena.net/ib/index.php?showtopic=58104#entry370104 لاتبخلو علينا بمقتراحاتكم وارائكم حتى نصل الى الافضل رجاء لاتنسونا بصالح دعاؤكم مكتبة دوال ومعادلات.rar

أخى ابن مصر : أرجوا منك أن تسامحنى على عدم ردى عليك بخصوص التنسيقات فلقد كان عندى مشكلة بالشبكة أدت إلى تأخرى فعذراً أخى فأنا أشعر أننى قد أغضبتك وجزالك الله خيرا على ما قدمته لى ولكل من سيطلع على الموضوع

الأخ العزيز حسين انا قصدي اذا وضعت التنبيه يكون علي كلا من التااريخ الهجري والتاريخ الميلادي ، بحيث اذا فتحت البرنامج يظهر رسالة تنبيه بإنتهاء المستندات التالية ،و يكون ( للهوية بالتاريخ الهجري ، والجواز بالتاريخ الميلادي) فما هي الطريقة المناسبة ، وكيف يتم ( وضعت Date() ( i هو لتاريخ اليوم +30 فهل يقراء اي التاريخين وشكرا علي سعة صدرك وذوقك اريد ان افهم هذا الجزء وكيف يتم ( وضعت Date() ( i هو لتاريخ اليوم +30 فهل يقراء اي التاريخين .

كود لعرض الاسم كاملا لمستخدم الويندوز الحالي مرفق مثال Sub btnGetFullUserName() Dim Accounts As Object, User As Object Dim ComputerName As String ' الجهاز الحالي ComputerName = "." ' احصل على مرجع لحسابات الويندوز Set Accounts = GetObject("WinNT://" & ComputerName & "") ' فلتر الحسابات حسب الاسماء Accounts.Filter = Array("user") ' افحص جميع الاسماء For Each User In Accounts ' تأكد ان المستخدم هو المستخدم الحالي للنظام If User.Name = Environ("Username") Then ' اعرض الاسم كاملا اذا وجد MsgBox "مرحبا " & User.FullName, vbInformation + vbMsgBoxRtlReading End If Next End Sub Get Full user name.zip

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

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

بعد اذن اخى الحبيب بن مصر جزاه الله خيرا هذه طرق عمل الدوائر الحمراء بالصور بالطرق العاديه ayman.rar

السلام عليكم ورحمة الله وبركاته موضوع اليوم هو دالة sumif دالة sumif.rar مكتبة دوال ومعادلات.rar

يالا ورينى الهمه عايز تعمل المطلوب وتبعت الملف اشوفه تقبل تحياتى

آمين ولك مثل ذلك

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

اخى الكريم المفروض لو انت فهمت الشرح المسبق تقدر تعمله ده لوحدك بس انا هديك الخطوط اللى تمشى عليها او بمعنى ادق الفكرة انت شفت ازاى عملنا if مرتين لو شيك او نقدا هيكون نفس الشئ بس مع with هنعمل with تانى بس مع شيت العملاء with Sheet3 وفى النهاية طبعا end with يالا شغل الجمجمه ورينى الهمه تقبل تحياتى

الاخوة الكرام اليوم ان شاء الله سنكمل كيفية عمل الترحيل بشروط لو رجعنا الى المشاركة رقم 1 ونظرنا على شكل كود الترحيل النهائى كان كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End With End Sub طبعا الكود فى شرط واحد وهو هذا السطر ( يعنى لا ينفذ الكود لو كان فى خليه من الخلايا المذكور فارغه ليس بها بيانات If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub طيب انا عايز اعمل شرط لو نوع السند بالخليه G6 نقدى ينفذ الكود ولو مش نقدى مش ينفذ كل اللى هنعمله هنستخدم if If [G6] = "نقدى" Then السطر قاعدة if ده هيكون مكانه فين فى الكود أعلاه هيكون بعد هذا السطر Lr = .Cells(.Rows.Count, "D").End(xlUp).Row وطبعا طالما فتحنا if أذن لابد من قفلها ب end if قبل هذا السطر من الكود End With وهيصبح الكود بشكل النهائى كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[1]" End If End With End Sub وبكدا الكود اصبح فى شرطين الشرط الاول وهو عدم ترك الخلايا فارغه لو فى خلية فارغه يطلع من الكود وميكملش طيب لو كل البيانات مكتوبه ينتقل للشرط التالى وهو والشرط الثانى وهو اذا كان السند نقدى يتم الترحيل غير كدا لا ميرحلش طيب عايز اعمل شرط ثالث لو كان G6 شيك هيكون بهذا الشكل If [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" End If هنا عملنا قاعدة if جديده لو كانت الخلية G6 شيك نفذ التالى طيب الشرط ده هيكون فين موقعه من الكود بتاعنا الاصلى هيكون كالتالى Sub ترحيل() Application.ScreenUpdating = False If [G7] = "" Or [d8] = "" Or [d10] = "" Or [d11] = "" Then MsgBox "الرجاء ادخال جميع بيانات السند": Exit Sub With Sheet4 Lr = .Cells(.Rows.Count, "D").End(xlUp).Row If [G6] = "نقدى" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "G") = [d11] .Cells(Lr + 1, "E") = "=R[-1]C+RC[2]-RC[ End If If [G6] = "شيك" Then .Cells(Lr + 1, "A") = [d8] .Cells(Lr + 1, "B") = [G7] .Cells(Lr + 1, "D") = [d10] .Cells(Lr + 1, "i") = [d11] .Cells(Lr + 1, "j") = "=R[-1]C+RC[-1]-RC[-2]" End If End With End Sub يعنى الكود هيروح لاول شرط ملئ جميع البيانات لو تمام هينتقل للشرط الاخر وهو لو الخلية G6 نقدى هينفذ سطور التالية ولو شيك هينفذ السطور التالية وطبعا قفلنا if بعد كل مره يوجد ملف مرفق للتجربه وفى النهاية تقبلوا منى وافر الاحترام والتقدير خزينة.zip

أخى الكريم سيف الدين حسام اولا يجب عمل قائمة منسدله فى الخلية G6 للاختيار منها اذا كان السند نقدى او شيك انظر الملف المرفق علشان نبدء نشتغل على كيفية الترحيل الى نقذا والترحيل لو شيك تقبل تحياتى خزينة.zip

اخى الفاضل تفضل الملف المرفق,, تمت اضافة الدالة الرائعة DrawOvals بعد التعديل عليها قليلا لتناسب طلبك .. ستجد في الخلايا F5 .. H5 >>>>الخ صيغة الدالة بهذا الشكل =DrawOvals(F8:F33,"دون") تستطيع تغيير النطاق الى أى نطاق تريده تحياتي ayman.rar

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

انا البارحة رايت الموضوع و اليوم رايت صفحة الرد اعتبرني طالب معااااااااااااااااكم

ما شاء الله تبارك الله رررررررررررررررائع و الاروع الروح العالية طلبات يا باشا 1- ان تجعل بجانبك اخوك الصغير او ابنك الصغير وتقوله ابغي اعلمك ...................... ليه اخلي ابنك الصغير بجانب ..؟؟ لان الاطفال يسالون عن اشياء لا تخطر لك على بال ... وقد تكون بديهية جدا لك ولكنها كبيره امام اعينهم اعتبرني اخوك الصغير او ابنك اللعاااااااااااب وبطلب او ل طلب ان تسهب في التفصيل المملك لكل فقرة ... ان تدعم المشاركة بمقاطع متحركة + صور ثابته شكر لك وبارك الله في وقتك وعلمك

انظر التعديل ان كان يوافق طلبك فأكمل على النسق نفسه student8.rar

بارك الله فيك يا ابن مصر تنسيقات في منتهى الروعة ..أهكذا اكتمل العمل أخي هشام؟؟ هل لديك أقوال أخرى غير الدعاء لابن مصر ولي؟!!

تفضل student7.rar

في هذه الحالة لا بد ان تستخدم الاستعلام الفرعي ويمكنك جلب هذه النتيجة من الاستعلام الرئيس في اي مكان من مشروعك بواسطة Dco sa4.rar

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

للرفع

الأستاذ الفاضل / ضاحي الغريب الأستاذ الفاضل / شوقي ربيع السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على هذه الإبداعات الرائعة أسأل الله العلي القدير أن يزيدكم من فضله ويجعل جميع اعمالكم في ميزان حسناتكم. لكم كل التحية والتقدير. وأن يجعله نورا لكم .............

جزكام الله خيرا على ذلك ودمتم في عز ورفعة

هلا باخي ساهر يمكنك استخدام الدالة NetworkDays لهذا الغرض... لا تنسى ضبط اعدادات الويندوز على ان اول ايام الاسبوع هو الاحد للتوضيح اكثر انظر الصورة ملاحظة ====== الدالة ايضا يمكنها ان تخصم الاجازات اذا مررت لها مدى الاجازات في الوسيط الثالث للدالة

الحل بالمعادلة without camma.rar

أفضل من المعادلات أخى ظلل كامل العمود الذى يحتوى على هذه الأرقام وأضغط " CTRL+H " وفى " FIND " ضع "." نقطة بدون أى شئ مجرد نقطة وفى "REPLACE " لاتضع شئ ثم أضغط " REPLACE " سيتم إلغاء علامة الديسميل من كامل العمود تقبل تحياتى

أستخدم هذه المعادلة =0+SUBSTITUTE(A1,".","") تقبل تحياتى

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

جزاك الله خير

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

شكرا لجميع الإخوة المشاركين في الموضوع وللعلم تم تحديث المشاركة الأولى وتحديث الملف المرفق لتلافي بعض المشكلات برجاء إعادة تحميله

لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح يرجى من السادة المشرفين حذف هذا السطر بعد تحديث المشاركة الأولى بمضمون هذه المشاركة وبإذن الله سيتم رفع فيديو لشرح كيفية استعمال الأداة MasNoPass.rar

أرفق لكم هذا البرنامج والذي إنتهيت منة اليوم بناء على طلب من أحد الزملاء في منتدى خاص بالمحاسبة فأرت أن أضعه بين أيديكم لعل أحد الزملاء أن يستفيد منه راجياً من الله أن يتقبل هذا العمل خالصاً لوجه الكريم برنامج بسيط لشئون الموظفين وإليك صور البرنامج البسيط ( برنامج المراد ) يا رب ينال إعجابكم جميعاً البرنامج على الرابط التالي : http://amonshare.com/zdlga5xw33nw/SALARY.xls.html أخوكم وائل مراد SALARY.rar

هذا البرنامج شكله جميل جدا يا اخي الفاضل ولكن عند تحميل البرنامج تظهر رسالة End Help وعند الضغط على End لا يعمل البرنامج ما ادري ما الخطا اي لا يعمل البرنامج ولكن من شكل البرنامج انه برنامج قيم وجميل الرجاء اخباري ما المشكلة حتى استطيع التعامل مع البرنامج SALARY (1).rar

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

السادة اعضاء ومشرفي قسم الاكسل لدي مشكلة وهي تتلخص في ان لدي رقم اريد ان اعرف ان كان يمكن الحصول عليه بتجميع عده ارقام اخرى ام لا مثال لدي ارقام 1 و 5 و 8 و 15 و 1.3 و 7 مثلا هل توجد معادلة تخبرني ان الرقم 9.3 هو ناتج جمع 8+1.3 هل يمكن التوصل الى اي صيغة تحل هذا اللغز علما بان هذا مثال مبسط لكني احتاجه مع عدد كبير من الارقام ولعديد من الحالات وليس بهذه البساطة ارجوا ان يكون الشرح والاستفسار واضح ارجوا لمن يعرف حلا ان يراسلني على الايميل m.gamalin@medstar-misr.com

احاول اوضح اكثر المشكلة بفرض انه ورد الي مبلغ محول من عميل 105012 مثلا واريد ان اعرف هذا المبلغ يسدد اي فواتير له وكانت مبالغ الفواتير كما يلي 4012 1000 5000 10000 100000 اريد دالة او معادلة تبحث في احتمالات التباديل لتعطيني احتمالات المجاميع ليكون الاجابة مثلا في المثال اعلاه ان المبلغ يمكن ان يكون مجموع 4012 +1000 + 100000

اخي ibrteeb اضف الكلمة Distinct بعد الامر Select في مصدر الصف لمربع التحرير والسرد . مع الشكر والتقدير للاخ حامل المسك. وهذا المف بعد التعديل db7.rar