بن علية حاجي

السلام عليكم ورحمة الله شيت "إحصاء الفصل الدراسي الثاني" غير موجود في الملف المرفق... بن علية حاجي

سلام عليكم جرب تغيير اسم الشيت "Sheet1" إلى اسم آخر (في الكود وفي المصنف -الملف-)... بن علية حاجي

في هذه الحالة يكفي استبدال الأمر For I = 6 To m في الكود بالأمر 34 For I = 6 To كما في الملف المرفق... بن علية حاجي ترقيم_2.rar

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق والكود يتم تنفيذه بواسطة زر "ترقيــم"... بن علية حاجي ترقيم.rar

ضع ملفا للتطبيق عليه حتى نعرف من أين تريد أن يبدأ هذا الترقيم...

السلام عليكم في الملف المرفق تم إدراج حلين... بن علية حاجي 222.rar

السلام عليكم ورحمة الله يمكن استعمال المعادلة التالية (بداية من الخلية A2) : =IF(OR(B2<>"";S2<>"");MAX($A$1:$A1)+1;"") إذا أردت أن تبدأ من الخلية A6 فتكون المعادلة كما يلي: =IF(OR(B6<>"";S6<>"");MAX($A$5:$A5)+1;"") وهكذا... بن علية حاجي

السلام عليكم ورحمة الله هذا حل آخر لتجنب معادلات الصفيف... أرجو أن يفي الغرض المطلوب... ملاحظة: هذه معادلة أخي العزيز سليم مختصرة في الخلية B15 مع تأكيدها بـ CTRL+SHIFT+ENTER ثم سحبها إلى باقي خلايا الجدول =SUM(IF($G$4:$G$12&" "&H$4:$H$12=$A15;C$4:C$12;0)) بن علية حاجي x.rar

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... تعديل المعادلات تم في كل من شيت "شيت" (في العمودين BA و BC ملونين بالأخضر) وفي شيت "كشوف مناداة الدور الثاني" (كل الأعمدة الملونة بالأخضر) مع ملاحظة أنه تم إدراج عمود جديد (العمود W) خاص بتوزيع رقم اللجان للطلبة المعنيين بالدور الثاني في هذا الشيت... أرجو أن تكون هذه التعديلات موافقة لما تصبو إليه... ملاحظة: بالنسبة لأرقام الجلوس فقد استعملت أرقام الجلوس الأصلية المسندة للطلبة في الشيت المسمى "شيت" بن علية حاجي الصف الأول الإبتدائي.rar

السلام عليكم ورحمة الله يمكن هذه المعادلة في AV10 ثم سحبه إلى الأسفل على طول خلايا العمود في الجدول: =IF($AQ10="";"";INDEX($CG$4:$CG$100;SUMPRODUCT(($CD$4:$CD$100=$AS10)*($CE$4:$CE$100=$AT10)*($CF$4:$CF$100=$AU10)*(ROW($4:$100)-3)))) بن علية حاجي

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

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

السلام عليكم ورحمة الله من المفروض أن تختار "تنسيق خلايا" ثم من خاصية محاذاة "أفقيا" نختار آخر خاصية من القائمة "توزيع" (على ما أعتقد لأني أقوم بالترجمة من الفرنسية)... المشكل الوحيد أن السطر الأول أيضا يقوم بتمديده على عرض الخلية.. تجد ذلك في الملف المرفق... بن علية حاجي 21-6-2017.rar

السلام عليكم جرب المرفق وفيه الحل بمعادلات... بن علية حاجي 21-6-2017.rar

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمان، حسب ما فهمت من المطلوب تريد أن يأخذ الجزء المراد طبعه ملء الصفحة A4 أي لا تكون هوامش بيضاء كبيرة عند الطباعة أو المعاينة، لهذا حل ما الحلين التاليين: الحل الأول : تحجيم الورقة (في خاصية Page Setup) لأكثر من النسبة 100% حتى تتناسب مع هوامش الصفحة (وقد جربت عندي النسبة 130%).. الحل الثاني : تغيير عرض الأعمدة المراد طبعها مثلا (جربته عندي) - عرض العمود A جعلته 8 - عرض الأعمدة W، Q، M، B، جعلته 13 - عرض العمود F جعلته 35 والله أعلم

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمان، بالنسبة للمشاكل التي ظهرت معك أحاول بإذن الله تناولها الواحد تلو الآخر مع اقتراحات للحلول: المشكل الأول : "فكلما غيرت الــ normal size الى 100% ومع تجربة الطباعة يتغير الــ normal size الى 31% مع ظهور هذة المرة هوامش الصفحات" ---------> هذا من المفروض يمكن حلها باستعمال خاصية "تعدادات الصفحة" Page Setup (تحجيم الصفحة) المشكل الثاني : " اما الاخرى فهى عن إهتزازت الشاشة" -----------> هذا راجع لأنك -ربما- تعمل على ملف فيه تنسيقات شرطية كثيرة (مما يؤثر على عمل الأكواد) وهنا يمكن إما التقليل من هذه التنسيقات أو إلغاؤها وإما أن نضيف إلى الكود إحدى العبارتين التاليتين (حسب الحالات) : Application.ScreenUpdating = False في بدايته و Application.ScreenUpdating = True في نهايته أو العبارة Application.EnableEvents = False في بدايته و Application.EnableEvents = True في نهايته ويمكن أيضا توقيف "خاصية الحساب التلقائي" برمجيا... المشكل الثالث : "فضلا عن ظهور رسالة Variable not defind" -------------> هذه إجابتها عندك "اعتقد أن هذة الرسالة للإعلان عن المتغيرات Option Explicit"، فعند إضافة هذه العبارة إلى الأكواد يجب "الإعلان عن طبيعة جميع المتغيرات في كل الأكواد" وفي الكود لدينا 3 متغيرات يجب إعلانها Rng ،I ، m ويتم ذلك بإضافة الأمر مباشرة بعد أمر Sub (أي في السطر الثاني) : Dim m As Long, I, Rng As Range هذا والله أعلى وأعلم. أخوك بن علية الذي يحبك في الله

السلام عليكم ورحمة الله أخي الحبيب أبو عبد الرحمان، تم تعديل على الكود بما يوافق الشروط -دون استعمال خاصية الترحيل- (وللطباعة على الورق استبدل PrintPreview بـ PrintOut) وتم إلغاء كل فواصل الصفحات اليدوية... أخوك بن علية طباعة اعمدة محددة مع صفوف اعتمادا على قيمة نصية+111.xlsb.rar

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

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

السلام عليكم ورحمة الله يجب عدم فتح اليوزرفورم الذي به الخلل، ادخل على VBA ثم ادخل على كود اليوزرفورم وقم بتصحيح الخلل فيه وإن شاء الله تنجح هذه المرة... إذا كان غير ذلك قم بإرفاق ملفك وسنحاول عمل الواجب... بن علية حاجي

السلام عليكم جرب المرفق لعل فيه ما تريد... تم تعديل طفيف على جدول التقديرات... بن علية حاجي anas2017.rar

السلام عليكم ورحمة الله إذا كنت تقصد أنه لو كانت 7% من قيمة الخلية A أكبر من 130 فإن القيمة في الخلية B تكون 130، وإذا كانت قيمة النسبة أصغر من 65 تكون قيمة الخلية B هي 65، وإذا كانت القيمة غير ذلك (محصورة بين 65 و 130) فتؤخذ النسبة كما هي فإن المعادلة التالية في B1 (ثم تسحب للأسفل) تفي بالغرض: =IF(ROUNDDOWN((A1*7%);2)>130;130;IF(ROUNDDOWN((A1*7%);2)<65;65;ROUNDDOWN((A1*7%);2))) بن علية حاجي

السلام عليكم ورحمة الله هذا تعديل على كود أخي العزيز أبو البراء لعله يفي بالغرض المطلوب... Sub pallshehadat() Dim x As Long Application.ScreenUpdating = False ActiveSheet.PageSetup.Zoom = 80 ActiveSheet.PageSetup.PrintArea = "$B$8:$H$35" Range("C2").Select ActiveCell.Value = 0 On Error Resume Next Do ActiveCell.Value = ActiveCell.Value + 1 x = Application.Match(Range("C2"), Sheets("يناير").Range("A:A"), 0) If Sheets("يناير").Cells(x, "AT").Value <> 1 Then ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value = Range("C3").Value Range("C13").Select Application.ScreenUpdating = True End Sub بن علية حاجي

السلام عليكم ورحمة الله حل آخر تم فيه ما يلي: 1- تعديل في معادلة التسلسل في العمود A من شيت "يناير" (حتى لا يتم ترقيم الصفوف التي في خلايا العمود AT الرقم 1) 2- إضافة عمود مساعد (العمود AU) لتحديد القائمة دون الفراغات (لأجل عنصر القائمة المنسدلة في شيت "شهادة") مع إضافة التسمية List لهذه القائمة باستعمال خاصية النطاقات الديناميكية وذلك باستعمال الدالة OFFSET ثم ربط هذه التسمية بعنصر القائمة المنسدلة.. 3- كود الطباعة لم يتم التعديل عليه ما عدا فيما يخص ناحية الطباعة من العمود A إلى العمود H بدلا من العمود A إلى العمود I كل هذا تجده في الملف المرفق... بن علية حاجي شهادة.rar

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