بن علية حاجي

السلام عليكم استعملت الدالتين VLOOKUP و COUNTIF، بدلا من الدالة IF، بمعية جدول مساعد مع توحيد العبارات مع جدول البيانات (العمود I) والجدول المساعد... ملاحظة: بعد وصول عدد القيم في كل "رقم التسلسلي" Serial Number إلى 1000 قيمة تتداخل الأرقام مثلا لو وصلنا في المستند المحاسبي "قيد يومية" -الذي يبدأ من 01000- إلى الرقم 01999 ثم تكرر مرة أخرى فيصبح تسلسله 02000 (الذي رقم بداية المستند المحاسبي "قبض بنكي") فيحدث التداخل بين المستندين... بن علية حاجي If formula (1).xlsx

السلام عليكم تم عمل المطلوب في الملف المرفق... بن علية حاجي فصل الاسم عن الرقم الملتصق به.xlsm

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

السلام عليكم تعديل آخر بالتنسيقات مع إمكانية طباعة حسب الصفة (خارجي / نصف داخلي) بعد الاختيار من القائمة المنسدلة في الخلية BG1... بن علية حاجي البطاقة المدرسية للتعديل_1.xlsm

السلام عليكم قمت ببعض التعديلات على الملف (تنسيقات + معادلات + إضافة ورقة خاصة بمعلومات المؤسسة)... كود الطباعة يعمل جيدا... بن علية حاجي البطاقة المدرسية للتعديل.xlsm

السلام عليكم جرب الملف المرفق لعله يفي الغرض المطلوب... بن علية حاجي العد من بداية التاريخ.xlsx

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

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

السلام عليكم هذا توزيع آخر مع التوزيع السابق... بن علية حاجي توزيع2.xlsx

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

ما هو الأفضل الذي تتطلع إليه من الزملاء والخبراء الباقين؟؟ حدد مطلوبك بدقة لننظر ما يمكن فعله؟

السلام عليكم أكثر دقة في الملف المرفق... بن علية حاجي توزيع.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد... المعادلة المستعملة في الملف هي معادلة صفيف ويجب تأكيدها بواسطة CTRL+SHIFT+ENTER. بن علية حاجي New Microsoft Excel Worksheet (3) (1).xlsx

السلام عليكم تم التعديل على الملف وتلبية المطلوب... بن علية حاجي خاص.xlsm

السلام عليكم تم عمل المطلوب (ما عدا تلوين كلمات البحث) بالتعديل على الكود المرفق في مشاركتك الأولى وإلغاء كود التغيير في حدث ورقة (شيت) Base... في العمود A من شيت Résultat وضعت كلمة البحث حسب عدد الصفوف التي وُجدت فيها... أرجو أن يفي الغرض المطلوب... ملاحظة: عمل الملف يكون بطيئا أكثر كلما زادت كلمات البحث... لم أستطع تلبية كل ما تطلبه... وأعتذر لذلك.. بن علية حاجي Dindin__Recherche_mots_4.xlsm

السلام عليكم المشكلة أن الملفين ليسا من النوع نفسه أحدهما من النوع .xlsm (الذي ورقته تحوي 1048576 صف و 16384 عمود) والآخر من النوع .xls (الذي ورقته تحوي 65536 صف و 256 عمود) وإذا كنت تريد أن تنقل من الأول إلى الثاني تحدث هذه المشكلة... والله أعلم بن علية حاجي

السلام عليكم لتوسيع النطاق في الفورم يجب تبديل السطر التالي في كود اليوزرفورم: Dim LastRow As Integer بالسطر: Dim LastRow As Long بالنسبة لبطء عمل الكود فهذا يرجع للعدد الكبير لصفوف البحث -رغم أني لم ألاحظ هذا البطء- (ربما يقوم أحد الأعضاء المتمكنين بـVBA بتصحيح هذا الخلل)... بن علية حاجي

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

السلام عليكم جرب المرفق لعل فيه ما تريد... تم عمل ذلك بالمعادلات... بن علية حاجي جرد المكتبة العربي ــ 2018.xls

السلام عليكم بمعادلة أطول قليلا لمحاولة الإلمام بكل الحالات... أرجو أن تفي الغرض المطلوب. بن علية حاجي جلب مقطع من نص_2.xls

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي جلب مقطع من نص.xls

السلام عليكم تفضل ما طلبته... والتعديل بسيط جدا.. بن علية حاجي 22 (2).xlsm

السلام عليكم تم عمل المطلوب بإضافة كود يقوم بحفظ كل مضمون الورقة في ملف جديد في موقع الملف الأصلي وباسم الورقة الحالية "اساتذة القسم الواحد" دون معادلات أو روابط مع ملفات خارجية... أرجو أن تفي الغرض المطلوب... ملاحظة: لم أضف في الكود أمر حذف الأعمدة الأولى (كما طلبت)... معذرة. بن علية حاجي 22 (1).xlsm

السلام عليكم ورحمة الله أدرجت لك في الملف المرفق ورقة جديدة (شيت جديد) سميتها "إضافية" للتعدير على ملاحظات التقديرات والإرشادات للتحسن (حسب الفصل) مع كود في حدث الورقة يقوم بنقل هذه الملاحظات المعدلة (تلقائيا بعد الخروج من الورقة) إلى الأوراق الأخرى والتي اسمها يبدأ بـ "الصفحة رقم ...". إذا أردت أن تكون قائمة ملاحظات "التقديرات" وملاحظات "الإرشادات للتحسن" مختلفة ينبغي التعديل على الكود الموجود في كود اليوزفورم Moumtaze : Private Sub UserForm_Initialize() Dim NB1 As Integer ListBox1.Clear For NB1 = Deb To Fin ListBox1.AddItem (Cells(NB1, "DA").Text) Next End Sub بتغييره إلى الكود: Private Sub UserForm_Initialize() Dim NB1 As Integer ListBox1.Clear If Xx = 9 Then Me.Caption = "اختيار الملاحظات" Else Me.Caption = "اختيار الإرشادات للتحسن" For NB1 = Deb To Fin ListBox1.AddItem (Cells(NB1, IIf(Xx = 9, "DA", "DB")).Text) Next End Sub هذا ما فعلته في الملف المرفق وليس لي فكرة أخرى... ملاحظة: بالنسبة لملفاتك أو ملفات أساتذة آخرين يمكن نقل الشيت "إضافية" من الملف المرفق إلى هذه الملفات (الكود المرفق بالشيت يُنقل تلقائيا من الشيت)... بن علية حاجي عبد اللاوي فصل 1.rar

السلام عليكم على أي مستوى (ويندوز، برنامج إكسيل أو VBA) تريد حل مشكلة اللغة؟