بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال الكود التالي: Sub PageBreak() Dim N As Long Dim J As Integer With Sheets("Feuil1") .Activate N = .Range("A65536").End(xlUp).Row .ResetAllPageBreaks .PageSetup.PrintArea = "A1:K" & N For J = 1 To N / 11 .HPageBreaks.Add Before:=Rows(12 * J + 3) Next J End With End Sub ملاحظة: العبارة 3 + في الكود تمثل "عدد الصفوف المكررة أعلى كل صفحة + 1"... إذا كان مثلا عدد الصفوف المكررة أعلى كل صفحة هو 5 فإن السطر العاشر من الكود يكون كما يلي: .HPageBreaks.Add Before:=Rows(12 * J + 6) أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم أبو أنس، قمت ببعض التغييرات على الملف دون المساس بشيت DATA عدا بعض التسميات الضرورية (عمود التصفية Colonne - ناحية الطباعة Data_Range) وإضافة المعادلة التي تم اقتراحها في موضوع سابق لك (عنوان التصفية)... وفي الورقة Sheet1 وفي العمود M تم إضافة قائمة لشروط التصفية التي اختيرت بوضع علامة X أمامها في الجدول وتمت تسمية هذا النطاق بـ Critere والتي استعملتها كشرط للتصفية في الأكواد... وتم أيضا تحضير كودين (بطيئين قليلا) أحدهما للتصفية فقط والآخر للتصفية والطباعة... أرجو أني قد وفقت في تلبية الطلب... ويمكن أن تجد في ردود إخواني الكرام حلولا أخرى تفي بالغرض أكثر... أخوك بن علية Suppliers Statment Normal.rar

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

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

السلام عليكم ورحمة الله أخي الحبيب أحمد حسب ما فهمت من المطلوب تريد أن يظهر أول ترتيب للمكرر دون كلمة "م" أو "مكرر" ولهذا نقوم بتغيير جزء من معادلات الترتيب في الأعمدة AC و AF و AI (معادلات الترتيب في الفصول) والتي تخص الدالة COUNTIF والتغيير يخص النطاقات الثابتة من السطر 8 إلى السطر 37 حسب ما يلي (في السطر 8): * في معادلة ترتيب فصل 1 نبدل الجزء COUNTIF(AB$8:AB$37;AB8)>1 بالجزء COUNTIF(AB$8:AB8;AB8)>1 * في معادلة ترتيب فصل 2 نبدل الجزء COUNTIF(AE$8:AE$37;AE8)>1 بالجزء COUNTIF(AE$8:AE8;AE8)>1 * في معادلة ترتيب فصل 3 نبدل الجزء COUNTIF(AH$8:AH$37;AH8)>1 بالجزء COUNTIF(AH$8:AH8;AH8)>1 وبعد ذلك نقوم بسحب كل هذه المعادلات إلى الأسفل (حتى السطر 37)... وإذا لم يكن هذا المطلوب فالرجاء شرحه أكثر... والله أعلى وأعلم

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

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على معادلات الترتيب في الملف المرفق وأستسمح أخي الكريم "الشهابي" في استعمال مثاله بالملف... أخوك بن علية تحليل النتائج الثاني عشر_2.rar

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

السلام عليكم ورحمة الله أخي الكريم هذا حل آخر بمعادلة صفيف في الملف المرفق... أخوك بن علية تصفية تلقائية3.rar

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

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة باستعمال عمود إضافي بدالة SUBTOTAL وباستعمال إحدى الدوال SUMPRODUCT أو SUMIF أو غيرها يمكن الحصول على المطلوب... أخوك بن علية Book2.rar

السلام عليكم ورحمة الله أخي الكريم، يكفي استعمال الدالة CONCATENATE أو & بين صيغتي الدالتين أو بين عنواني القيمتين (عنواني الخلايا)... أنظر الملف المرفق... أخوك بن علية Mean_SD.rar

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

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

السلام عليكم ورحمة الله أخي الكريم فضل، بالنسبة لكود حدث الورقة 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