بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب طارق مع شرحه المستفيض، أقدم هذا الحل باستخدام خواص رؤوس المربع والمثلث مع استعمال إحداثيات نقط في معلم... يمكنك رسم هذه المربعات والمثلثات بتغيير قيمة الزاوية (بالدرجات degrees) بالنسبة لأحد رؤوس هذه الأشكال (الرأس A بالنسبة للمربع الكبير ABCD ، الرأس E بالنسبة للمثلث الكبير EFG ، الرأس H بالنسبة للمربع الصغير HIJK والرأس L بالنسبة للمثلث الصغير LMN)، ويكون هذا التغيير في الخلايا الملونة بالأصفر في شيت Sheet1... أرجو أن يفيدك هذا الملف... أخوك بن علية الملف المرفق : ccc.rar

السلام عليكم ورحمة الله في المرفق تجد ملف فيه تطبيق لما ذكرته في ردي السابق... وهو إنشاء قوائم منسدلة ديناميكية (مطاطية) دون تكرارات (ودون فراغات) باستعمال المعادلات... في شيت Feuil1 تم إنشاء القائمة List1 بمعادلة صفيف وفي شيت Feuil2 تم إنشاء القائمة List2 بمعادلات عادية مع عمود إضافي... أرجو أن يكون الحل مفهوما ويفي بالغرض المطلوب... ويبقى استعمال التسميتين List1 و List2 في خاصية "التحقق من الصحة" Validation في أي خلية كانت من الملف... بطبيعة الحال يمكن أيضا استعمال الأكواد في هذا، مثل الكود الذي اقترحه أخي الكريم الجموعي من موضوع "المشروع الكبير للأكواد" جازاه الله خيرا وكل القائمين والمشاركين في هذا المشروع... أخوك بن علية الملف المرفق : قوائم منسدلة دون تكرار ودون فراغات.rar

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

السلام عليكم ورحمة الله أخي الكريم مختار، تم التعديل على الملف بإضافة التسمية Formula بالدالة EVALUATE مع قائمة منسدلة لرموز العمليات الأربعة (+ ، - ، * ، /) في الخلية B2... أرجو أن يفي بالغرض المطلوب... أخوك بن علية ملاحظة : تم تغيير الملف المرفق لخلل في التسمية Formula رابط الملف : http://www.mediafire.com/download/1cvivgc5yc1crkj/معادلة_من_عدة_شروط.rar رابط التحميل من المنتدى : معادلة من عدة شروط.rar

السلام عليكم ورحمة الله ماشاء الله عندي إستفسار أستاذي في مرفقك الحل الأول في خلية ظهور التفقيط بالكتابة أدرجت هذه المعادله لماذا؟ =TRIM(Monitize(F7)) كان بإمكانك ترك المعادلة السابقة =Monitize(F7) أخي الكريم الجموعي، استعملت الدالة TRIM فقط لحذف الفراغات الزائدة من نص التفقيط (لملاحظتي أنه توجد فراغات كثيرة بين الكلمات)... أخوك بن علية

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم، إن كنت قد فهمت المطلوب؟ ضع هذا الكود في حدث الشيت، وهو كود يقوم بوضع علامة صح في أي خلية من النطاق C5:L1000 بمجرد النقر عليها نقرا مزدوجا... أرجو أن يكون المطلوب... الكود : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([C5:L1000], Target) Is Nothing Then Target.FormulaR1C1 = "P" With Selection .Font.Name = "Wingdings 2" .Font.FontStyle = "BOLD" .Font.Size = 18 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With End If Target.Offset(1, 0).Select End Sub أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر فيه كل الشروط المطلوبة (الشرط الثالث -البحث بأوائل الأحرف- جعلته بالمعادلات ولأجل ذلك قمت ببعض التعديلات على الملف: تنسيقات + إضافات أعمدة مساعدة + تعديل معادلة القائمة المسماة Names2)... أرجو أن ينال إعجابك إلى أن يجب أحد الأعضاء حلا للشرط الثالث أبسط من الحل الذي وضعته... أخوك بن علية الملف المرفق : Tamer Sabry3.rar

السلام عليكم ورحمة الله أخي الكريم، تم عمل الجزء الأكبر من المطلوب ويبقى الشرط الأخير "وكمان عايز ااقدر اعمل سيرش باول حرف يجبلى بيانات لانها بتعلق معايا" الذي لم أتناوله في التعديلات... بالنسبة للمشكل الأول تم التعديل على الكود حسب المطلوب حيث إذا قمت بالبحث عن صنف ليس له بيانات في Sheet1 يترك البيانات المرحلة سابقا ويستبدل حتى اسم الصنف الذي تبحث عنه في الخلية P9 باسم الصنف المرحلة بياناته سابقا... بالنسبة لقائمة الأصناف المسماة Names و Names2 قمت بتعديل معادلاتها بطريقة ديناميكية (لا تحوي سوى الأصناف الموجودة أو المضافة دون الفراغات)... بالنسبة للشرط الأخير سأفكر فيه لاحقا إن لم يضع حله أحد الإخوة المتمكنين في المنتدى... أخوك بن علية الملف المرفق : Tamer Sabry2.rar

السلام عليكم ورحمة الله أخي الكريم، هذا النوع من الخطأ في الوورد يعني "خطأ نحوي" وليس خطأ إملائيا... والخطأ النحوي في هذه الحالة هو وجود فراغ بين الكلمة والفاصلة التي تليها (والملاحظة نفسها إذا كانت الكلمة متبوعة بـ نقطة أو نقطة فاصلة أو نقطتين أو غيرها من العلامات مثل : ... أو ؟ أو نقطة التعجب...) لذا يجب تبديل كل " ،" (فراغ + ،) بفاصلة في كل المستند (ونفسها بالنسبة للعلامات الأخرى)... والله أعلى وأعلم.... أخوك بن علية

السلام عليكم ورحمة الله شكرا لكم اخواني على الرد و الاهتمام بمشاكلنا بالنسبة للدالة تعملي خطأ في الصيغة " =INDEX(E11:E15,MATCH(M8,G11:G15,0)) " أخي الكريم "كريم تواتي"، ربما تستعمل في جهازك النسخة الفرنسية للإكسيل، لذا يجب تبديل اسم الدالة MATCH بالاسم EQUIV أو ربما هو مشكل الفاصلة و الفاصلة المنقوطة، جرب أن تبدل الفاصلة "," بالفاصلة المنقوطة ";"... أرجو أن تعينك هذه الملاحظات... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تعلم أن التصفية (الفلترة) لا يمكن أن تتحقق في جداول غير متصلة (حسب معرفتي)، لذا يجب التحايل معها مثلما فعل أخي الحبيب طارق جازاه الله خيرا، وحل آخر أقدمه لك في الملف المرفق (بالفكرة نفسها) أي بالاستعانة بعمود إضافي (وقد جعلته العمود A في المرفق -ويمكن أن يكون أي عمود آخر-) بمعادلة شرطية... ثم تتم التصفية وفق هذا العمود... أرجو أن يفي بالغرض المطلوب... أخوك بن علية الملف المرفق : New 3.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حلي أخوايا الكريمين أبو تراب وطارق جازاهما الله خير الجزاء وبارك فيهما، يمكنك الاستعانة بالدالة المستحدثة VLOOK2ALL (لأخينا أبو ثامر حفظه الله ورعاه) المعدلة في موضوع الأخ أحمد مرجان الذي عنوانه "هل يمكن جعل دالة Vlook2all تعمل بشكل عكسي؟؟؟" والذي رابطه http://www.officena.net/ib/index.php?showtopic=58136&hl أو يمكنك الاستعانة أيضا بالدالة المستحدثة الأخرى VLOOKAnyCol لأخينا أبو ثامر أيضا (تجدها في مدونته)... أخوكم بن علية

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

السلام عليكم ورحمة الله أخي الكريم أبو صلاح، يكفي أن تستبدل في الكود العبارة xlPasteValues بالعبارة xlPasteFormulas حتى يتم ترحيل القيم والمعادلات (سواء كانت المعادلات في العمود W أم في غيره)... والله أعلم أخوك بن علية

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

السلام عليكم ورحمة الله هذا حل آخر بمعادلات بسيطة في العمود A (تم الاستغناء عن معادلات الصفيف والمعادلات الإضافية في النطاق H7:J1000 تم تبديلها بمعادلات بسيطة في النطاق H7:J7 فقط)... أرجو أن يفي بالغرض المطلوب... بن علية . الملف المرفق : مشكل7.rar

السلام عليكم ورحمة الله هذا حل باستعمال معادلات صفيف ومعادلات في أعمدة إضافية (للترقيم التسلسلي)... ممكن أن تجد حلولا أبسط بالمعادلات أو بالأكواد... بن علية الملف المرفق : مشكل7.rar

السلام عليكم ورحمة الله تم التعديل على كود الدالة VLOOK2ALL -حسب ما فهمت من طلبك- بإضافة وسيط جديد (الثالث في الترتيب) سميته "عمود_البحث" وهو العمود الذي من خلاله تتم عملية البحث... أتمنى أن يكون هذا المطلوب ويفي هذا التعديل بالغرض المنشود... بن علية الملف المرفق : دالة Vlook2all.rar

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

السلام عليكم ورحمة الله أخي الكريم، أرجو أن تذكر متى تظهر هذه الرسالة، إذا كانت عند فتح ملف معين فالرجاء إرفاق الملف الذي به هذه المشكلة... أخوك بن علية