بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم، إضافة مستحقة للملف، وتتمثل في تلوين خلايا الأعمدة A و B و C حسب لون "نوع الحساب" بمجرد اختيار هذا النوع من القائمة المنسدلة... أخوك بن علية Bok1_2.rar

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

السلام عليكم ورحمة الله أخي الكريم ، إخواني الكرام تقبل الله صيامكم وقيامكم بمزيد من الأجر والثواب.... بالنسبة للموضوع، إن كنت قد فهمت المطلوب، أقدم هذا الحل علّه يكون المطلوب أو يقارب المطلوب... أخوك بن علية Bok1_1.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، حسب ما فهمت من النص تريد أن تعدّ عدد الغيابات والإجازات خلال فترة معينة (نطاق معين)... يمكن استعمال الدالة COUNTIF وبالفرنسية NB.SI حسب التالي: =COUNTIF(النطاق;"X") بالنسبة للغيابات والصيغة التالية: =COUNTIF(النطاق;"V") بالنسبة للإجازات... بن علية

السلام عليكم ورحمة الله أخي الكريم يمكنك قطع الارتباط ولكن العملية تكون من نتيجتها أنه يتم تعويض الخلايا المرتبطة بنتائج الصيغ التي كانت فيها... والعملية تكون كما يلي: 1- فتح قائمة "تحرير Edition" 2- اختيار "ارتباطات Links" 3- اختيار "قطع الارتباط Break Link 5- عند السؤال عن العملية نوافق قطع الارتباط (في الإطار) ملاحظة: للتأكد من الارتباطات والصيغ المستعملة فيها (إن كان عددها قليل) يمكنك اللجوء إلى الطريقة التي اقترحها أخي الحبيب طارق... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم، يمكن ذلك باستعمال دالة INT وبالفرنسية ENT حسب الطريقة التالية: =INT(45.450 * 19.5) مع تنسيق الرقم في الخلية التي وُضعت فيها الصيغة إلى ثلاثة أرقام بعد الفاصلة... والله أعلم

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

السلام عليكم ورحمة الله أخي أبو عبد الله جزاك الله كل خير ، والله كود بسيط ورائع جدا، أكرمك الله وعافاك من كل شر وحفظك من كل سوء... أخوك بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن استعمال الدالة INDIRECT في المثال بهذه الطريقة خاطئ (والخطأ كما ذكره أخي العزيز الخالدي يكمن في تسميات الصفوف والأعمدة (مثلا الصف 1 قمت بتسميته الصف_1 ...)... إليك طريقة أخرى لعمل المطلوب باستعمال الدالتين INDEX و MATCH في الملف المرفق دون اللجوء إلى كل التسميات التي ذكرتها (وهناك طرق أخرى) ... أخوك بن علية المصنف1.rar

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

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

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

أخي وحبيبي هشام، أعتقد أن أخي الكريم أبو أنس قد قام بالواجب، بالنسبة لكيفية عمل هذا (ولا يصلح إلا للجداول) فيكون كما يلي: - اختيار (تحديد) السطر أو الأسطر التي نريد تكرارها - نذهب إلى : جدول Table / خصائص جدول Table Options / سطر Line / تكرار بأعلى كل صفحة كسطر رأس الصفحة repeat at top of each page as a header line (نسخة 2003) ملاحظة: يمكن أيضا القيام بما يلي (في أي إصدار للأوفيس): بعد تحديد (تضليل) السطر أو الأسطر التي نريد تكرارها ننقر باليمين على التحديد نختار في الإطار "خصائص الجدول" Table Options وننفذ الخطوات المذكورة بالأعلى... والله أعلم

السلام عليكم ورحمة الله أخي وحبيبي هشام، أعتقد أن أخي الكريم أبو أنس قد قام بالواجب، بالنسبة لكيفية عمل هذا (ولا يصلح إلا للجداول) فيكون كما يلي: - اختيار (تحديد) السطر أو الأسطر التي نريد تكرارها - نذهب إلى : جدول Table / خصائص جدول Table Options / سطر Line / تكرار بأعلى كل صفحة كسطر رأس الصفحة repeat at top of each page as a header line والله أعلم

السلام عليكم ورحمة الله أخي الكريم، الكود معي يعمل جيدا دون أي مشكل... المشكل عندك يمكن أن يكون في إحدى الحالتين التاليتين: - إما أن يكون "أمان الماكرو" مرتفعا في البرنامج قم بتخفيضه عن طريق : أدوات Outils / ماكرو Macro / أمان Sécurité / منخفض Bas - وإما أن نكون طريقة الحساب يدوية إجعلها آلية عن طريق: أدوات Outils / خصائص Options / حساب Calcul / تلقائي Automatique والله أعلم

السلام عليكم ورحمة الله أخي الكريم، لم أغير في الكود سوى السطر : For I = 1 To Range("A1") بالسطر For I = 1 To Range("A1") Step 2 و Step 2 تعني بالخطوة 2 أي : عوض أن يقوم الكود بتغيير القيمة I بالقيم 1 ، 2 ، 3 ، 4 ... يكون التغيير بالقيم: 1 ، 3 ، 5 ، 7 وهكذا... وفي ورقة الشهادتين جعلت الشهادة الأولى تتعلق بالخلية A3 التي تأخذ قيم I والشهادة الثانية تتعلق بالخلية I3 التي وضعت فيها الصيغة التالية = A3 + 1 وبالتالي لو أخذ I القيمة 1 فقيمة الخلية A3 هي 1 وقيمة الخلية I3 هي 2 وبالتالي نستخرج في صفحة واحدة الشهادتين 1 و 2، وإذا أخذ I القيمة الموالية له وهي 3 تأخذ الخلية A3 القيمة 3 والخلية I3 تأخذ القيمة 3 + 1 أي 4 ونكون بالتالي قد استخرجنا الشهادتين 3 و 4 في الصفحة نفسها وهكذا... والله أعلم

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

السلام عليكم ورحمة الله أخي الكريم أعتقد أن أخي ياسر قام بالواجب وزيادة... وأقدم أيضا هذا التغيير على ملفه في الملف المرفق... بالنسبة لكيفية نسخ هذا العمل على ملفك الخاص فيمكنك ذلك باستعمال المعادلات وكتابتها حسب ما وُضعت في الملفات باستعمال التنسيق الشرطي أو يمكنك تحديد أي خلية من الخلايا في العمود L في هذه الملفات ونسخها في ملفك (الأعمدة K و L و M يجب أن تكون متماثلة في الترتيب في الملفين وليس شرطا أن تكون هي نفسها)... والله أعلم Baraa3.rar

السلام عليكم ورحمة الله أخي الكريم، إذا كان العدد يحوي ثلاثة أرقام بعد الفاصلة يمكن استعمال الملف التالي بالمرفق.... ملاحظة : إذا كنت تريد أن يتم تقريب العدد بعد الفاصلة إلى مضاعف للعدد 10 الأقرب لهذا العدد (مثلا إذا كان العدد 274 وتريده أن يكون 270 أو إذا كان العدد 276 وتريده أن يكون 280) فيجب تغيير الرقم 3 في (Total = Arrondir(Total, 3 بالرقم 2 فيكون (Total = Arrondir(Total, 2 في السطر 113 من الكود في الملف.... بن علية رقم_إلى_نص_2.rar