بن علية حاجي

السلام عليكم جرب الملف المرفق لعله يفي الغرض المطلوب... بن علية حاجي العد من بداية التاريخ.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) تريد حل مشكلة اللغة؟

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

السلام عليكم كلتا الحالتين (الطريقتين) تحتاج إلى إنشاء التسمية الخاصة بالنطاق المراد طباعته وتسميتها في الملف Plage بالمعادلة التالية (التي يمكن أن تجدها في قائمة التسميات): =OFFSET(تأخير!$B$1:$Q$1;;;MAX(IF(تأخير!$A$1:$A$10000>0;ROW(تأخير!$A$1:$A$10000)))) (يمكن استعمال معادلة أخرى بدوال أخرى وفي المنتدى تجد الكثير من الأمثلة على ذلك) والمرحلة الثانية تكون كما يلي: * الطريقة الأولى: تحديد "ناحية الطباعة" للشيت "تأخير" في التسميات (بعد تعيينها يدويا أو عن طريق إعدادات الصفحة) بتغيير معادلتها بالمعادلة : =Plage * الطريقة الثانية : إدراج الكود التالي (نسخ ولصق): Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub في كود حدث الشيت "تأخير"... وليس لي شرح آخر... بن علية حاجي

السلام عليكم إذا قمت بحفظ الملفات بعد فتحها بواسطة إكسيل 2010 وليس لديك منها نسخ فقد ضاعت كل الأكواد ويجب إعادة إنشائها من جديد... أما إذا كان غير ذلك فيجب فتحها بواسطة إكسيل 2003 في جهاز آخر (أو في جهازك بعد تنصيب إكسيل 2003 فقط من كل مكتبة أوفيس 2003) ثم القيام بتصدير Exportation لكل الماكروات في الملف إلى جهازك (يُستحسن أن تكون في موديول Module واحد)... ثم تفتح هذه الملفات بواسطة إكسيل 2010 واستيراد Importation كل الموديولات الخاصة بهذا الملف... وليس لي فكرة أخرى... بن علية حاجي

السلام عليكم تم إنشاء الكود التالي في حدث الشيت "تأخير": Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub وهذا الكود يضمن أن تتحدد ناحية الطباعة آليا بالزيادة والنقصان (حسب قيم العمود A)... كل ذلك في الملف المرفق... بن علية حاجي برنامج ايجار.xlsm

السلام عليكم إذا قمت بتعيين ناحية الطباعة للورقة يدويا (في إعدادت الصفحة مثلا) فقد ألغيت عملية تحديد ناحية الطباعة آليا؟ ألق نظرة في التسميات وخاصة في ناحية الطباعة لشيت "تأخير" تجد أني حددته بالمعادلة Plage= ويمكن أن نحددها آليا بواسطة كود VBA في حدث هذا الشيت باستعمال دائما التسمية Plage فهذا يكون آمنا... التسمية Plage مرتبطة بقيم العمود A (من الصف 1 إلى رقم صف آخر خلية غير خالية من العمود A)... لقد أعدت ربط التسمية Plage بناحية الطباعة لشيت "تأخير" في ملفك الأخير الذي أرفقته... بن علية حاجي برنامج ايجار (1).xlsm