بن علية حاجي

السلام عليكم لتوسيع النطاق في الفورم يجب تبديل السطر التالي في كود اليوزرفورم: 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

السلام عليكم استعمل لذلك الدالة OFFSET -مثلا- (أو DECALER بالفرنسية) في معادلة نطاق الطباعة... وفي الموقع تجد الكثير من الأمثلة على ذلك... بن علية حاجي جرب المرفق لعل فيه ما تريد.... تم تسمية نطاق البيانات في ورقة "تأخير" بالتسمية Plage ثم إرفاق هذه التسمية بنطاق الطباعة لهذا الشيت.... بن علية حاجي برنامج ايجار.xlsm