بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم فضل، بالنسبة لكود حدث الورقة 2 يعطي خطأ في حالة إدخال رقم التسلسل غير موجود ولتصحيح الخطأ يمكن إضافة السطر التالي في بداية الكود: ON ERROR RESUME NEXT ويمكن إضافة رسالة خطأ "الرقم التسلسلي غير موجود" في الكود لإعطائه صفة جمالية... وكود التعديل يمكن تبديله بالكود التالي المبسط: Sub Modif() Dim J As Integer lig = Application.WorksheetFunction.Match(Worksheets("sheet2").Range("A2"), Worksheets("sheet1").Range("A:A"), 0) For J = 1 To 4 Worksheets("sheet1").Cells(lig, J) = Worksheets("sheet2").Cells(2, J) Next J End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم فضل، أستسمح أخي الكريم طارق لأضيف الملف المرفق وبه كودين كود في حدث الورقة لاستدعاء التسلسل وآخر لتطبيق التعديل على بيانات التسلسل المستدعى في الورقة الأخرى... أخوك بن علية كود تعديل بيانات.rar

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

السلام عليكم ورحمة الله أخي الكريم، عمل جميل ورائع جزاك الله عنا ألف خير وبارك الله فيك وفي علمك...آية في سورة الغاشية غير موجودة في الورقتين المخفيتين وهي الآية "لَيْسَ لَهُمْ طَعَامٌ إِلاَّ مِنْ ضَرِيعٍ" في السطر 6060... وقد قمت بتصحيح الخطأ مع بعض التغييرات على الملف (المعادلات، القائمة المنسدلة للبحث في أرقام الآيات للسورة المختارة بحيث جعلتها ديناميكية بحيث لا تحوي إلا أرقام السورة المختارة وقد ذكر أخي الجبيب عبد الله هذه الملاحظة)... أخوك بن علية محاولة.rar

السلام عليكم ورحمة الله أخي الكريم، إن بطء عمل الملف راجع إلى حجمه نظرا للعدد الكبير للمعادلات المستعملة وكثرة التنسيقات... وأقترح عليك حلا من حلين : الأول تحاول أن تقلل التنسيقات وأن تستبدل المعادلات بأكواد (ماكرو) تقوم مقامها، والحل الثاني إذا كان لديك أوفيس 2007 أو 2010 أن تقوم بحفظ الملف بصيغة xlsb. الذي يقوم تلقائيا بضغط ملفات أوفيس 2003 إلى ما يقارب العشر من حجمها والملفات لا تعود تشتغل إلا في أوفيس 2007 أو 2010 وهذه الصيغة تقبل الملفات التي تحوي أكوادا وتعمل فيها جيدا... ليس لي فكرة أخرى... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، أستسمح أخي الكريم رجب في تعديل بسيط على معادلاته في العمودين الأخيرين في الجدول (الإجمالي) حتى يتم التعامل مع إجمالي العلب في كل سطر... أخوك بن علية كمية المبيعات بالكراتين والعلب 2.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، لم يكن المشكل في المعادلة إنما كان في خطأ حجز البيانات (اختلاف البيانات) فمثلا : كلمة CUCUMBER قمت بحجزها بشكلين مختلفين مرة "CUCUMER" ومرة "CUCUMBER " أي بإضافة فراغ المسافة في نهاية الكلمة... وقمت بإضافة الدالة TRIM إلى المعادلات لحذف هذه المسافات وإلغاء الاختلافات في الحجز وتكون المقارنات متماثلة وتكون نتائج المعادلات صحيحة... عليك بمراقبة العمل في الملف المرفق لئلا تكون أخطاء أخرى قد غفلت عليها... أخوك بن علية Week 11 VS مشكله.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، المعادلات المستعملة في الملف صحيحة كفكرة، ولكن فيها أخطاء تتمثل في خلط أعمدة الشروط بين شيت "Forcast VS Actual" وشيت "DB" لهذا المعادلات مرة تجلب البيانات ومرة لا تعطي النتائج الصحيحة... وقد تم تصحيح الأخطاء في الملف المرفق... ويمكن حل المسألة بواسطة كود... أخوك بن علية Week 11 VS.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال دالة الصفيف التالية: =INDEX($2:$2;SMALL(IF($A:$C=$G$6;COLUMN($A:$C));1)) ولا تنسى تأكيدها بالضغط على CTRL+SHIFT+ENTER أخوكم بن علية وتطبيق للمعادلة في الملف المرفق : TEST.rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك استبدال المعادلات المكتوبة بمعادلة واحدة تضعها في الخلية H11 ثم يتم سحبها إلى الأسفل وإلى اليسار... والمعادلة هي : =IF(COLUMN(A$1)<=$G11;$F11/$G11;IF(COLUMN(A$1)<=3*$G11;$F11/(2*$G11);"")) وتطبيقها تجده في الملف المرفق.... أخوك بن علية توزيع.rar

السلام عليكم ورحمة الله أخي الكريم، إذا كنت تعمل في إكسيل 2007 أو 2010 فهتاك طريقة في ضغط الملفات وتقليص حجمها وذلك بحفظ الملفات بالامتداد xlsb.* ولا ارى طريقة أخرى إلا بحذف جميع التنسيقات في المصنف في جميع أوراقه ثم إعادة التنسيقات اللازمة فقط... وربما أيضا تبديل معادلات الصفيف إذا كانت كثيرة بمعادلات بسيطة تعمل عملها... أخةك بن علية

السلام عليكم ورحمة الله أخي الكريم، دائما لتعدد الحلول هذا كود آخر يمكن استعماله: Sub trheel2() R = Sheets("1").[B1500].End(xlUp).Row + 1 Table = Sheets("ورقة1").Range("C4:C9").Value Sheets("1").Cells(R, 2).Resize(1, UBound(Table)) = Application.WorksheetFunction.Transpose(Table) MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "حالة الترحيل" End Sub أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، يستحسن عند التعامل بالفراغات أو بالنصوص في الجمع والطرح أن نستعمل الدالة SUM فمثلا : B8 + H8 نكتبها : (SUM(B8;H8 وَ B8 - H8 نكتبها : (SUM(B8)-SUM(H8 حتى نتجنب الخطأ في النتيجة... وفي الملف المرفق تركت تقريبا كل المعادلات على حالها وقمت بتغيير المعادلة التي تظهر الخطأ... أخوك بن علية Empolyee Form.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حلول إخوتي الأعزاء الجميلة، هذا حل آخر في الملف المرفق... أخوكم بن علية تحليل النتائج.rar

السلام عليكم ورحمة الله أخي الكريم، بالتأكيد كل ذلك ممكن ولكن باستعمال المعادلة التالية في الخلية B3 : =B$2*$A3 تلاحظ أخي أنه قد تم وضع العلامة $ أمام حرف A فقط في A3 $ (لتثبيت العمود A عند الانتقال أفقيا وتغيير السطر 3 عند الانتقال عموديا) وأمام الرقم 2 في B$2 (لتغيير العمود B عند الانتقال أفقيا وتثبيت السطر 2 عند الانتقال عموديا) المعادلة السابقة يتم سحبها إلى اليسار إلى آخر عمود في الجدول ثم إلى الأسفل إلى آخر سطر... وفي الملف المرفق تجد تطبيق كل ذلك... أخوك بن علية Book1لالالالالا.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن أن يكون هذا عمل الدالة COUNTIF واستعمالها يكون (حسب مافهمت) كما يلي: =COUNTIF($A:$A,Number) حيث : Number يمثل رقم السجل أو عنوان الخلية التي تحوي هذا الرقم والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حل أخي الحبيب طارق حفظه الله إليك الكود التالي : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Target.Offset(0, -1).Value = Now End Sub الذي يضيف التاريخ والوقت الحليين في العمود A بمجرد إدخال أي معلومة في العمود B في السطر نفسه... أرجو أن يفي الكود بالغرض المطلوب... وتطبيق الكود على الملف الذي قدمه أخي الحبيب طارق في الملف المرفق... أخوكم بن علية تجميد الوقت في عمود حسب عمود آخر.rar