بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، لم يتم التعديل على الأكواد بل كان الخلل في ناحية الطباعة... وقد تم تصحيح الخلل أولا بإنشاء نطاق ديناميكي -متغير حسب البيانات التي تمت تصفيتها- بالتسمية Zone_Imp باستعمال الدالة OFFSET خاصة ويمكنك الاطلاع على معادلتها، ثم ثانيا ربط هذه التسمية بـ ناحية الطباعة... أرجو أن تنال إعجابك هذه التعديلات... أخوك بن علية المرفق : ناجح تصفية وطباعة.rar

وعليكم السلام ورحمة الله جرب المعادلة التالية (معادلة صفيف) =MIN(IF((A2:A36>=I2)*(K2>=A2:A36);$B$2:$B$36)) بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال المعادلة التالية كحل أول بدل معادلاتك.... =INDIRECT("A"&ROW()-1)+INDIRECT("C"&ROW())-INDIRECT("B"&ROW()) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر بالمعادلات وفيها تم مراعاة العلامة العشرية (فاصلة أو نقطة)، ضع المعادلة التالية في E4 واسحب إلى F4 ثم إلى الأسفل على طول البيانات: =ABS(SUBSTITUTE(SUBSTITUTE(B4;"*";"");".";",")) في هذه المعادلة يجب مراعاة "الفاصلة المنقوطة" و"الفاصلة" حسب تخصيصات الويندوز والأفيس... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم إيهاب، عليك استعمال الدالة CEILING بالوسيط 0.25 حسب معادلاتك: =CEILING(Value;0.25) أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تجد خاصية مشاركة المصنفات Sharing (في كلتا النسختين) في قائمة "مراجعة" أو "Review" يكفي في هده الحالة إلغاء المشاركة إدا لم تكن هده المشاركة محمية بكلمة سرية وفي هده الحالة يجب معرفة هده الكلمة أولا لإلغاء الحماية وثانيا لإلغاء المشاركة... وبعدها ستظهر كل الأكواد إن وُجدت... أرجو أني قدمت بعض المساعدة... أخوك بن علية

لك ما تريد في الملف المرفق وتجد فيه الملفين المطلوبين... بن علية المرفق : عملية قرعة لـ20 فريق_5 مجموعات.rar

السلام عليكم ورحمة الله أخي الكريم علي، تم التعديل على الملفات حسب المطلوب مع جعل القرعة عشوائية لكل الفرق على كل المجموعات... أخوك بن علية الملف الأول : عملية قرعة لـ24 فريق_6مجموعات.rar الملف الثاني : عملية قرعة لـ25 فريق_5مجموعات.rar

ما هي لغة و نسخة الإكسيل التي تعمل عليها ؟

السلام عليكم ورحمة الله أخي الكريم أبو البراء، أولا مبارك عليك الترقية الجديدة وأنت تستاهلها لكل ما تقدمه لأعضاء المنتدى ولكن أقول دائما إن الترقية ليست شرفا وإنما هي تكليف كبير لما يتطلبه من جهد أكبر وعمل جاد... وثانيا الرسالة التي وضعها أخونا في موضوعه تظهر عند محاولة فتح الأكواد وهي نتيجة للقيام بعملية "مشاركة المصنف" Sharing the WorkBook... فبمجرد القيام بمشاركة المصنف يقوم الإكسيل بإخفاء كل الأكواد ولا يسمح بفتحها أو تغييرها وتظهر تلك الرسالة... ويمكنك القيام بالعملية (مشاركة المصنف) على أي ملف سواء كان هدا الملف يحوي أكوادا أم لا، وعند إزالة المشاركة يزول المنع وعندئد يمكن فتح وعرض الأكواد (وتُطلب الكلمة السرية للأكواد إن تمت الحماية قبلا بكلمة سرية).... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم وجدت في النت ردا لعضو من أحد المنتديات أعطى فيه حلا لمثل هدا المشكل ولعله يكون حلا لمشكلتك ونص الرد (بالإنجليزية) يقول فيه: Have you tried Sharing then un-Sharing the workbook? If the file isn't shared, the code area locks and unlocks with the share. أرجو أن تفي الفكرة المقترحة لحل مشكلتك وأن لا نكون قد تعدينا حقوق غيرنا... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم علي، تم التعديل على الملف حتى يكون عدد الفرق 20 فريقا... (دون شرح ولكن أقول إنه تم تمديد نطاق عدد الفرق إلى 20 فريق، تم التعديل على النطاقات المستعملة في الأكواد حسب هذا العدد، أما الباقي فهو يعمل مثل الملفات المرفقة سابقا... واعذرني لعدم الشرح أكثر)... الملف المرفق : عملية قرعة لـ20 فريق_1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم محمد، تم التعديل على الملف حسب المطلوب... الملف المرفق : عملية قرعة لـ10 فرق_1.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، هذا تعديل على الملف بالمشاركة رقم 17 حسب المطلوب بالرسالة الخاصة "حذف زر الطباعة وربط الطباعة بكود إضافة تذييل الصفحة ونسخ البيانات مع رسالة تأكيد الطباعة"... أرجو أن يكون المطلوب... الملف المعدل للمشاركة 17 : جمع وتلحيق + 33_2.rar * وهذا التعديل نفسه على الملف المرفق بالمشاركة رقم 22... أرجو أن يفي بالغرض المطلوب... الملف المعدل للمشاركة 22 : جمع وتلحيق + 44_2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، تم تصحيح الخلل في معادلة المبالغ بالجنيهات بإضافة الدالة INT إذ أن المعادلة السابقة تحسب المبالغ بالقروش ثم تقوم بتفريب المبلغ إلى العدد الصحيح الأكبر مباشرة لذا تجد الفروقات بإضافة واحد جنيه في بعض الأحيان... أخوك بن علية الملف المرفق : SUMPRODUCT_444.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، تعديل آخر على المعادلات على أساس جمع مبلغي القروش و الجنيهات بالمعادلة ثم تطبيق التقريب على المبلغ وحساب النسبة ثم توزيع المبلغ الجديد على الخانتين... أخوك بن علية الملف المرفق : SUMPRODUCT_3.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، لست أدري إن كانت المعادلات المقترحة في الملف المرفق تفي بالغرض المطلوب، جربها في حالات أخرى... أخوك بن علية الملف المرفق : SUMPRODUCT_3.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، إن التعديل في معادلة الإجمالي بداية من الصف 7 في الصفحة الأولى ضروري جدا حتى وإن كان الصف يحوي رؤوس أعمدة الجداول لعمل الترويسة (وتأكد أن رؤوس العناوين وإن كانت نصا -المهم أن لا تكون قيما- لا يؤثر في المعادلة التي استُعمل فيها الدالة SUM بالصيغة التي كُتبت عليه) لأن الصف رقم 7 بعد عمل النسخ للكشف1 (الصفحة الأولى) لإنشاء الكشف2 أو ما بعده، سيكون مكانه صف مجاميع (التلحيقات) نتائج الكشف أو الكشوف السابقة، ولأجله يجب أن يشمل التلحيق الصف المعني... أرجو أني تمكنت من توصيل الفكرة، لضرورة دمج الصف رقم 7 في معادلات المجاميع لصف "الإجمالي" في الصفحة الأولى... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، بالنسبة للتفقيط قد تم التعديل على الكود حسب العمود W، بالنسبة لـ "عملية التلحيق التي لا يتم جمعها" هل تقصد أنه لا يجمع الإجمالي في الكشف2 مع نتائج الكشف1 ؟؟؟ فقد تم التعديل على معادلات المجاميع في الإجمالي بإضافة الصف أعلى جدول البيانات... والله أعلم أخوك بن علية المرفق الجديد : جمع وتلحيق + 44.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، قمت بالتعديل على كود التفقيط على أساس أن المبلغ المعني بالتفقيط موجود في العمود X من صف الإجمالي... أخوك بن علية الملف المرفق : جمع وتلحيق + 44.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، لقد عرفت سبب ظهور "وصفر قرشا لا غير" في التفقيط في حالة أن تكون قيمة القروش صفرا وهو خطأ في الكود PRINT_ALL الذي وضعته للتفقيط عند الطباعة والخطأ كان في السطر : If Cells(28, "AH") = 0 Then .Value = "فقط " & Texte1 & Stx1 & St2 Else _ .Value = Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 إذ أن شرط IF يبقى متعلقا بمضمون الخلية (الثابتة) من الصف رقم 28 من العمود AH أي يتعلق بالصفحة الأولى من الكشف حتى وإن قمت بعملية النسخ إلى كشوف أخرى... وقد تم تصحيح هذا السطر من الكود بالسطر التالي (والملف المرفق في ردي السابق يحوي هذا التصحيح): If Cells(lr, "AH") = 0 Then .Value = "فقط " & Texte1 & Stx1 & St2 Else _ .Value = Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب سعيد، بالنسبة للتسلسل في العمود B قد تم حله بالتعديل على الكود ما يوافق المسألة... بالنسبة للتفقيط في حالة أن يكون المبلغ (مثلا) 5176.00 هل تريد أن يكون التفقيط بالشكل "فقط خمسة آلاف وماثة وستة وسبعون جنيها لا غير" أو تريده أن يكون بالشكل "فقط خمسة آلاف وماثة وستة وسبعون جنيها وصفر لا غير"؟؟؟ لأن الكود في هذه الحالة يكتبها حسب الشكل الأول... أخوك بن علية المرفق : جمع وتلحيق + 33.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، في الحقيقة لم أفهم طلب العمود الإضافي، هل هو العمود B الذي أضفته في ملفك المرفق والملون؟ إذا كان كذلك فقد قمت بالتعديل على كود التفقيط وفق هذا العمود (التعديل على الكود كان وفق الملف المرفق)... إذا كان غير ذلك فالرجاء إرفاق ملف به العمود المضاف وبإذن الله يكون التعديل على الكود وفق هذا الملف... أخوك بن علية الملف المرفق المعدل : جمع وتلحيق + 33.rar

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

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