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

أخى الفاضل / أحمد غانم تفضل شرح تفصيلى للمعادلة وعذرا من أساتذتى لأى خطأ علمى أو سهو شرح المعادلة.rar

السلام عليكم ورحمة الله ويركاتة اقدم لكم برنامج ثوابى الاصدار الاول للمخازن وحسابات العملاء والموردين البرنامج مفتوح المصدر لكى يستفيد منه الجميع وتحياتى الى كل الاخوا الكرام اعضاء ومشرفين تم تبديل المرفق بالنسخة الأخيرة بحسب طلبك منتدى اوفسنا "جرجس" مصر محافظة بورسعيد girgis_girgis22@yahoo.com

الشرح في المرفق فورم معلومات Ali (version 1).rar

السلام عليكم كما اشار استاذ رجب هذه معادلة صفيف . بعد كتابة المعادلة تضغط ctr+shift+enter بدلا من enter فقط . و ان لم تعمل معك فارفق الملف . تحياتي

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

أخى الفاضل / أحمد تسلم ايديك ولاثراء الموضوع حل آخر معادلة صفيف =IF(ROWS($B$2:B2)>COUNTIF(X!$C$2:$C$26;"X");"";INDEX(X!$B$2:$B$26;SMALL(IF(X!$C$2:$C$26="X";ROW(X!$C$2:$C$26)-1);ROWS($B$2:B2)))) Classeur1.rar

السلام عليكم جزاكم الله كل خير ولاثراء الموضوع حل آخر =SUMIF($A:$A;">="&$E2;$B:$B)-SUMIF($A:$A;">"&$F$2;$B:$B) ملف5.rar

شكرا استاذ حمادة هذا حل بالمعدلات تحياتي Classeur1+.rar

السلام عليكم الاخ الكريم / احمد عبد الناصر الف مبروك علي الترقية المستحقة ونشاط معهود والي الامام دائما جزاك الله خيرا

السلام عليكم جرب هذا الكود sheets("x").Range("c:c").SpecialCells(xlCellTypeConstants).Offset(0,-1).Copy sheets("y").[b1] ملاحظة : يعتمد علي ان العمود C لا يحتوي كتابة الا في حالة النجاح . تحياتي

السلام عليكم اليك الملف بعد التعديل ملف4.rar

السلام عليكم جرب المرفق =SUMPRODUCT(--($A:$A>=$E2),--($A:$A<=$F2),B:B) تحياتي ملف4+.rar

شكراً لمرورك استاذ مجدي حياك الله اخي الكريم وارجو منك زيارة هذا الرابط http://www.officena.net/ib/index.php?showannouncement=21&f=89

السلام عليكم بداية نرجو الالتزام بقواعد المشاركة 1. العنوان غير مناسب 2. توجيه السوال لمجموعة محددة (يفهم منه التحدي وصعوبة السؤال) ============ هذه دالة معرفة لما تريد Function SplitNim(Cel As Range) As String Dim Tt As String, RR As String, i As Integer, MyNum As String For i = 1 To InStr(Cel, " ") - 1 Tt = Tt & RR & Mid$(Cel, i, 1) RR = " " Next MyNum = Mid$(Cel, InStr(Cel, " ") + 1, Len(Cel) - InStr(Cel, " ")) SplitNim = Tt & RR & String(4 - Len(MyNum), "0") & MyNum End Function شاهد المرفق (لابد من وجود مسافة بين الحروف والارقام) ارقام سيارات.rar

السلام عليكم الاخ الكريم / abdoullah لتنفيذ طلبك هناك طريقتين لعمل ذلك عن طريق نفس الكود ايضاً وهو ان يكون مكان الخلية b1 في الكود يكون b1:b10 كما في الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1].Value <> "" Then Exit Sub If Not Application.Intersect(Target, Range("b2:b10")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub الطريقة الثانية : قم اخي الكريم بتسمية النطاقات التي تريدها باسم معين وليكن اسم النطاق هو myrange عبارة عن النطاف من b1 الي b10 ليكون الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Me.[a1].Value <> "" Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub واي شئ آخر كلنا معك باذن الله جزاك الله خيراً

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

جزاكم الله كل خيـــر والله شرح أكثر من رااااااااااااااائع

السلام عليكم بعد إذن أخي عبدالله (أبا أحمد) الدالة SUBTOTAL تحل محل (أو تؤدي وظيفة) دوال أخري وهي التي أشار إليها أخونا الحبيب أبا أحمد في ملفه ولكن الفارق الرئيسي بينها وبين الدوال الأخري التي تحل محلها أنها تقوم بوظيفة تلك الدوال في حالة إخفاء بعض بياناتها (عن طريق الفلتر) وتكون صياغتها ، تتبع بقوسين بينهما عنصرين يفصل بينهما كومة أو كومة منقوطة حسب تجهيز الويندوز عندك كالتالي =SUBTOTAL (n,Range) أو =SUBTOTAL (n;Range) حيث: n رقم صحيح ويأخذ قيم من 1 إلي 11 Range هو النطاق الذي به البيانات إذا كانت n= 1 فهي تحل محل الدالة AVERAGE و إذا كانت n= 2 فهي تحل محل الدالة COUNT و إذا كانت n= 3 فهي تحل محل الدالة COUNTA و إذا كانت n= 4 فهي تحل محل الدالة MAX و إذا كانت n= 5 فهي تحل محل الدالة MIN و إذا كانت n= 6 فهي تحل محل الدالة PRODUCT و إذا كانت n= 7 فهي تحل محل الدالة STDEV و إذا كانت n= 8 فهي تحل محل الدالة STDEVP و إذا كانت n= 9 فهي تحل محل الدالة SUM و إذا كانت n= 10 فهي تحل محل الدالة VAR و إذا كانت n= 11 فهي تحل محل الدالة VARP لاحظ أن الرقم الصحيح n هو التي يحدد الدالة التي تحل محلها دالة SUBTOTAL وأشهر استخداماتها مع الرقم 9 (الجمع) في مثال أخي عبدالله (أبا أحمد) في الخلية B10 من ورقة شرح تجد المعادلة =SUBTOTAL(9,$A$2:$A$12) وبجوارها معادلة الجمع العادية =SUM(A2:A12) ونتيجتهما واحدة 66 لو عملت فلتر (تصفية) واخفيت بعض الصفوف غير الـ 9 ستجد نتيجة SUBTOTAL تتغير والأخري لاتتغير ملحوظة أخري إذا أضفت 100 للمعامل n بمعني 101 بدلا من 1 و 102 بدلا من 2 و 103 بدلا من 3 و 104 بدلا من 4 و .... هكذا سيؤدي نفس دور الدالة الأخري ، أي سيأخذ بالإعتبار الصفوف المخفية بالفلتر

اخي الفاضل اليك حل اخر كما قال الاستاذ يحي الى ان نصل الى التخصيص نختار هذة العلامة @ ونضيف اليها الصفر بين علامتي اقتباس هكذا "0"@ ثم موافق ، هذا الطريقة تزيد الصفر في اي اتجاه تريد حسبما تضعه يسار او يمين ولمرة واحده فقط ، بمعني لو كان الرقم مكون من ثلاثةارقام سيزيد صفر على اليسار فيصبح الرقم رباعي ، هكذا ، وختى لو كتبت اسم ايضا سيزيد صفر جرب واختار ما يناسبك تحياتي

السلام عليكم إضافة لحلول الأخوة يمكنك استخدام تنسيق الخلايا لتحقيق ذلك ========== لو افترضنا انك تريد ادخال الرقم 0797003299 سيظهر في الاكسيل 797003299 بدون الصفر و الحل قم بتحديد الخلية ثم رايت كليك و اختر تنسيق الخلايا ثم اختر تخصيص و ضع أصفار بعدد ارقام الهاتف مع الصفر في مثالي اعلاه سا أضع 0000000000 ثم اختر موافق و هذا التنسيق يعني ان مكان كل صفر يستبدل برقم و في حال عدم ادخال االرقم كامل سيظهر الصفر مكان الرقم المفقود 0079700329هنا ظهر صفرين لاني لم اكمل ادخال الرقم كاملاً و في حال كتابة الرقم 1 في هذه الخلية سيظهر 0000000001 ==================== الفرق بين الطرق ان طريقتي الاخوين عامر و اكسيلجي تعيد الرقم كنص في حين ان طريقتي تبقي الرقم كرقم ==================== أتمنى أن اكون وفقت في توضيح الصورة

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