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

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

تم الحل المشكلة كانت بتجميع الازرار ولكن لابد من اعادة النظر فى اماكن الازرار تبعا للصلاحيات وشئ من اتنين 1 تكون قادر تعمل 2 تنتظر @د.كاف يار لان أهل مكة ادرى بشعابها لان انا بصراحة صدعت بقالى يومين اخبط راسى بالحيط وابحث عن مشكلة برمجية بالاكواد وبصراحة فى الوقت الحالى مش قادر افكر تانى الدائن و المدين.zip

اتفضل قم بالاطلاع على المرفق الاتى يتم وضع الروتين العام فى موديول ويتم استدعاءه من خلال اسمه حسب الحاجة كالاتى getMyIP() GetLocalIP.mdb

أهلا بك.. كانت مدالخلتي في هذه المشاركة لكون اسمي ذكر فيها! والمرفق كانت لغرض محدد فقط وهو توضيح فكرة تجاوب مكونات HTML.. لتحويل الواجه من اليسار إلى اليمين، كل ماعليك هو تعديل بسيط على التابع WD ليصبح كالتالي Public Property Get WD() As HTMLDocument Set WD = Me.WebBrowser0.Document "WD.Dir = "rtl End Property

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة جهاز الباركود يعمل التالي: 1. يقرأ الباركود ، 2. ويضع قيمته في الحقل (او البرنامج، قد تكون فاتح الاكسل او Notepad) الذي هو فيه ، 3. ثم يعطي امر للإنتقال للحقل/السطر التالي (عن طريق الامر CR LF ، او كأنما تضغط على زر Enter) . فمشكلتك معناها ، انه هناك كود على حقل الباركود ، يعمل بعد ادخال الباركود ويفتح نموذج آخر ، فيجب تعديل هذا الكود 🙂 جعفر

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

ممكن هذا الموضوع راح يفيدك كثير

السلام عليكم ورحمة الله تفضل توزيع العاملين.xlsm

هذه الرسالة لا علاقة لها بالكود ، وانما هي بسبب اعدادات الوندوز لديك : جعفر

أخي الكريم @mrahmed671 أرجو أن تجد فيه الفائدة المرجوة =IF($B2="";"";IF($A2="";NOW();$A2)) يمكنك السحب نزولاً لكن العيب فيه هو تشغيل الحساب التكراري النتيجة كما يلي:

السلام عليكم ورحمة الله وبركاته ... فيه سؤال للأخ الرهوي في الرابط التالي يسأل عن البحث داخل مربع التحرير والسرد نفسه بمجرد الكتابة http://www.officena.net/ib/topic/66565-كيف-ابحث-في-مربع-سرد-بجزء-من-الكلمة-؟/ بحثت وحاولت ولم افلح ... وبعد بحث طويل وجدت المطلوب .. في الحقيقة لا اعلم ان كان هناك طرق اخرى ... ولكن بالنسبة لي لم اجد الا هذه الطريقة القوا نظرة على المرفق ان شاء الله يفيدكم .. هذا رابط المرجع ... http://www.tek-tips.com/faqs.cfm?fid=6295 وهذا الكود الأساسي مع الشرح قبل التعديل Private Sub Combo0_Change() ' Function Description: ' Filter a combo box list as the user types, similarly to how application ' launchers like Colibri, AppRocket and LaunchBar opperate. ' e.g. if the list contains the names of U.S. Presidents, and ' the user types "gw," then the resulting SQL WHERE clause will ' look like "Name Like '*g*w*'" and the resulting list ' will include George Washington, George H. W. Bush and ' George W. Bush, among others. ' The order is preserved, so that typing "wg" creates an SQL WHERE ' clause like "Name Like '*w*g*'" and the resulting list would ' include George Washington but not the Bushes. ' This is accomplished by grabbing the text typed by the user in the ' combo box's edit field, creating an SQL SELECT statement from it, ' and finally applying that SQL statement to the combo box's ' .RowSource property. ' Form design settings: ' Set AutoExpand to No ' Column Count 3 ' Keyed on column 1 (record primary key) ' Showing column 2 (user-readable data) column 2 width > 0 ' First and Second column width=0 Dim strText, strFind ' Get the text that the user has typed into the combo box editable field. strText = Me.Combo0.Text ' If the user has typed something in, then filter the combobox ' list to limit the visible records to those that contain the ' typed letters. ' Otherwise (if the field is blank), the user has deleted whatever ' text they typed, so show the entire (unfiltered) list If Len(Trim(strText)) > 0 Then ' Show the list with only those items containing the typed ' letters. ' Create an SQL query string for the WHERE clause of the SQL ' SELECT statement. strFind = "Name Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then ' When adding another character, remove the ' previous "*," otherwise you end up with ' "*g**w*" instead of "*g*w*." ' This has no apparent impact on the user, but ' ensures that the SQL looks as intended. strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" ' Create the full SQL SELECt string for the combo box's ' .RowSource property. strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName Where " & _ strFind & " ORDER BY SortOrder;" '' NOTE: to remove the order requirement, such that typing "wg" '' and "gw" return the same results, the SQL WHERE clause needs '' to look like "Name Like '*w* AND *g*'." '' The code above should be changed as follows: ''For i = 1 To Len(Trim(strText)) '' strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*' And " ''Next '' ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from tblApps Where " & _ ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder" ' Filter the combo list records using the new SQL statement. Me.Combo0.RowSource = strSQL Else ' Show the entire list. strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM tName ORDER BY tName.SortOrder; " Me.Combo0.RowSource = strSQL End If ' Make sure the combobox is open so the user ' can see the items available on list. Me.Combo0.Dropdown End Sub اتمنى من خبرائنا واعضاء المنتدى الكرام القاء نظرة على المرفق وعلى الكود كامل لو فيه اضافات او تعديلات . وبالتوفيق للجميع . Search_inside_Combo.rar

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

خالص الشكر والتقدير اخى الكريم استاذ عمر ضاحى بارك الله فيك استاذى الفاضل اخى الكريم ابو جودي سأنتظر استاذ @د.كاف يار احترامى وتقديرى اخوانى الافاضل الف شكر

بالفعل هو المطلوب فشكرا جزيلا اخى الكريم

=COUNTIF($A$2:A8;C5&"*?")

اتفضل Public Function getMyIP() Dim myWMI As Object, myobj As Object, itm Set myWMI = GetObject("winmgmts:\\.\root\cimv2") Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each itm In myobj getMyIP = itm.IPAddress(0) Exit Function Next End Function

النور بوجهك الكريم أخي الحبيب الغالي @hassona229 تقبل تحياتي العطرة😊

منور استاذنا الغالى ابو يوسف بارك الله فيك

مايكروسوفت اكسل لا يمكن إدراج خلايا جديدة لأنها ستدفع الخلايا غير الفارغة من نهاية ورقة العمل. قد تظهر هذه الخلايا فارغة ولكنها تحتوي على قيم فارغة أو بعض التنسيقات أو الصيغة. احذف عددًا كافيًا من الصفوف أو الأعمدة لإفساح المجال لما تريد إدراجه ثم حاول مرة أخرى. الجواب منقول من موقع إلكتروني:اتبع الرابط: قم بإزالة محتوى وتنسيق الصفوف / الأعمدة غير المستخدمة حدد كافة البيانات التي تم نسخها ابحث عن أداة الحذف في شريط الأدوات. افتح القائمة المنسدلة وحدد حذف التنسيقات. بعد اتباع هذه الخطوات ، يجب أن تكون قادرًا على لصق البيانات دون أي مشاكل أخرى. لتجنب مثل هذه المشاكل ، لا تلصق البيانات في جدول بيانات باستخدام Ctrl + V. بدلاً من ذلك ، قم بما يلي: انقر بزر الماوس الأيمن فوق المنطقة المفتوحة بورقة العمل. حدد لصق خاص. حدد القيم انقر OK القضاء على حماية الخلية يحتوي Excel على ميزة حماية الخلية المضمنة التي تتيح للمستخدم حماية بياناته وورقة العمل الخاصة به. إذا تم تطبيق الحماية على الورقة ، فقد يمنع Excel من إضافة خلايا جديدة للحفاظ على البيانات الموجودة. في هذه الحالة ، قد تؤدي إزالة حماية الخلية إلى حل المشكلة. اضغط على Ctrl + A لتمييز جميع الخلايا في ورقة العمل ، ثم انقر فوق تنسيق في علامة التبويب الصفحة الرئيسية ، ثم تنسيق الخلايا في القائمة المنسدلة. الآن انقر فوق علامة التبويب الأمان وقم بإلغاء تحديد المربع المقفل. انتقل الآن إلى علامة التبويب الإدارة وانقر على حماية الورقة أو حماية المصنف وأدخل كلمة المرور المطلوبة لإلغاء حماية الورقة أو المصنف. احفظ وأغلق الملف وافتحه مرة أخرى ومعرفة ما إذا كان يمكنك إدراج صفوف / أعمدة جديدة. تقصير مسار اسم ملف طويل مسار اسم الملف هو عنوان الملف في Windows. إذا كان مسار اسم الملف في Excel طويلاً جدًا ، فقد يمنع Excel من إضافة خلايا جديدة. في هذه الحالة ، يمكنك حل المشكلة عن طريق حفظ الملف في مكان لا يكون فيه مسار اسم الملف طويلاً للغاية. افتح ملف المشكلة. انقر فوق علامة التبويب ملف ، ثم انقر فوق حفظ باسم في الجزء الأيسر. انتقل الآن إلى الموقع المناسب في مربع الحوار "حفظ باسم" ، ويفضل أن يكون ذلك على سطح المكتب لديك للاختبار. أغلق Excel وافتح الملف المحفوظ في موقع جديد وتحقق من أنه يمكنك إدراج صفوف / أعمدة في ورقة العمل. فك تجميد الأجزاء تتيح لوحات التجميد للمستخدمين الحصول على نتائج أفضل من بياناتهم. إذا كنت تستخدم ميزة Freeze Panels في Excel ، فلن تتمكن من إدراج صفوف وأعمدة جديدة في ورقة العمل. يمكن أن تؤدي إزالة الجليد عن الأجزاء إلى حل المشكلة. انتقل إلى علامة التبويب عرض ، ثم إلغاء تجميد اللوحات. انقر الآن على إلغاء تجميد الأجزاء في القائمة المنسدلة. أحفظ وأغلق الملف. افتح الملف مرة أخرى ومعرفة ما إذا كان يمكنك إدراج صفوف / أعمدة جديدة.

اشكرك اخي جنت اجرب وما انتبهت لها صار ممنون منك جزاك الله كل خير

اخي نثغةثمسخبف هل تم طلبك ام مذا تريد

نعم اخي موسى ، وعادة نذكر ونساعد صاحب الموضوع لما ينسى ، طبعا اذا كنا متواجدين 🙂 جعفر

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

استاذى الفاضل @abouelhassan اولا تقبل منى هذه المداخله ثانيا مرفق الى حضرتك ملف يحتوي على نظام الصلاحيات كامل ما عليك غير انك تعدل اسماء الفورم فى الجدول وتوزع هذا الكود على جميع الفورم عندك فى حدث عند فى الحالي Me.Form.AllowAdditions = Forms!Home!AllowAdd.Value Me.Form.AllowDeletions = Forms!Home!AllowDelete.Value Me.Form.AllowEdits = Forms!Home!AllowEdit.Value صلاحية المستخدمين.accdb

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub فتح_ادخال_تذاكر_Click() DoCmd.Close On Error GoTo Err: DoCmd.OpenForm "تذاكر_ادخال" Err: If Err.Number = 3043 Or Err.Number = 3024 Or Err.Number = 3044 Or Err.Number = 3078 Then MsgBox "فشل الاتصال بالسيرفر يرجى ابلاغ المسؤول", vbExclamation, "حالة الاتصال بالشبكة" Exit Sub End If End Sub اثناء انقطاع الشبكة.rar تحياتي

ولدي العزيز ... لم التفت الى الزيادة لكن من اين جئت بتلك المعادلة ؟ [الموجود]-[الملاك]*0

استاذي العزيز موسى ... صاحب الموضوع هو اعرف من غيره بالحل

شكرا اخي جعفر دائما

اساتذة وخبراء هذا المنتدي الجميل جزاكم الله خيراً علي المساعادات التي تقدمونها لجميع هل توجد طريقة لنقل ملف اكسيل من فولدر الي فولدر اخر بشرط---- الشرط اذا كان a1 مكتوب فيها خالص يتم نقل الملف الي الفولدر الاخر جزاكم الله خيراً وجعله في ميزان حسانتكم الملف فواتير.rar

جرب هذا .... ba_11.accdb

الحمد لله الذي بنعمته تتم الصالحات

جرب كده ..... Usrse1.accdb

جزاك الله كل خير د.كاف يار ولكن لو تكرمت كود كيفيه ارسال مرفقات مع الرسالة

جراك الله كل خير اخي لايوجد طريقه لارسال مرفقات ؟؟

السلام عليكم تفضل الملف لعل فيه ما تريد... احتساب الحضور و الانصراف2.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد (إن كنت قد فهمت شرحك)... بن علية حاجي حضور وانصراف الموظفين.xlsx

المثال المرفق يشتمل على طريقة التحويل بين التاريخين باستخدام اكسس فقط وبدون جدول او وحدات نمطية ارفقت الوحدة النمطية داخل المثال لمن يريد الاستفادة منها وتوظيفها تبديل بين التواريخ.mdb

هذه الدالة يمكن تفيدك اذا اضفت اي بيانات في خلية مثلا a1 يتم تغيير التاريخ و الوقت الحالي في الخلية المطلوبة =IF(a1>0;TEXT(TODAY();"d/m/yyy")&" "&TEXT(NOW();"hh:mm:ss"))

اخي هناك الكثير من الطرق للتحايل على المستخدم بعدم الولوج الى مكان معين و على كل حال فالإخفاء و الاظهار يعتمد على السطرين التاليين CommandButton1.Visible = False CommandButton1.Visible = True

السلام عليكم أخي الكريم اعتقد انك تقصد في كل مرة يتم تغيير قيمة في العمود E مثلا يتم ظهور وقت التغيير حضرتك شوف الملف المرفق ان شاء الله يكون في المطلوب أي قيمة تدخلها في العمود E سيتم كتابه والوقت والتاريخ في العمود Time قمت باستخدام المعادلات التالية: =IF(E3<>"",IF(D3="",NOW(),D3),"") وتم تفعيل خاصية iterative calculation في أوفيس 2007 كالتلي : من أيقونة Ribbon Excel Options Formulas وتضع علامة صح في Enable iterative calculation والصورة التالية توضح طريقة تفعيل الخاصية بشكل أوضح vault register time.rar

السلام عليكم مينفعش الكل يشارك وأنا واقف أتفرج - معرفش غير أنزل الملعب وأقوم بدور راس حربة - تفضل المرفق التالي به دالتين : الدالة الأولى تقوم باستخراج الأرقام من ضمن النص ، وفيه تفصيل ليها بالملف المرفق ، والثانية تقوم بجمع الأرقام Digits والله المستعان .. Extract Number - Sum Digits Function.rar

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

السلام عليكم سؤال مهم فعلا و احب ان اضيف علاوة ما اضافة الاخوة الكرام السيد سليم و السيد عبدالله انه يمكن استخلاص الارقام من نص عن طريق الدالة SumProduct انظر المثال المرفق فكرة الكود هو ضرب عناصر مصفوفتين عن طريق الدالة sumproduct و من ثم جمع الناتج مثال: في الخلية A1 العبارة التالية: 250 كرتون حليب المصفوفة الاولى تمثل الارقام المستخلصة من النص و هى {0,5,2} المصفوفة الثانية تمثل المنزلة العشرية لكل رقم {1,10,100} و عند ضرب المصفوفتين و جمع الناتج نحصل على 250 هذا كود المعادلة لخلية A1 ممكن ان تحتوي على نص بطول 30 حرف SUMPRODUCT(MID(0&A1,LARGE(INDEX(ISNUMBER(--MID(A1,ROW($1:$30),1))* ROW($1:$30),0),ROW($1:$30))+1,1)*10^ROW($1:$30)/10) استخلاص الارقام من نص.zip

جرب الملف في المرفقات، ففيه عدة طرق لجمع النصوص والأرقام والتواريخ والأوقات.. أطيب المُنى، عبدالله،،، Text & Numbers.rar

السلام عليكم جرب الملف التالي sum of mix cell.xlsx