بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Content Count
3,919 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
39
بن علية حاجي last won the day on مايو 25
بن علية حاجي had the most liked content!
السمعه بالموقع
1,891 Excellentعن العضو بن علية حاجي

-
الإسم الفعلي
مستخدم اكسيل
- تاريخ الميلاد 12 فبر, 1961
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
متقاعد
-
بلد الإقامة
الجزائر
-
الإهتمامات
/
وسائل التواصل
-
Yahoo
hbenalia@yahoo.fr & hbenalia@gmail.com
اخر الزوار
-
السلام عليكم لتوسيع النطاق في الفورم يجب تبديل السطر التالي في كود اليوزرفورم: Dim LastRow As Integer بالسطر: Dim LastRow As Long بالنسبة لبطء عمل الكود فهذا يرجع للعدد الكبير لصفوف البحث -رغم أني لم ألاحظ هذا البطء- (ربما يقوم أحد الأعضاء المتمكنين بـVBA بتصحيح هذا الخلل)... بن علية حاجي
-
[موضوع مميز]الحنين الى VBA بنكهة C# برنامج الموردين
بن علية حاجي replied to شوقي ربيع's topic in منتدى الاكسيل Excel
السلام عليكم عمل ممتاز جدا من عضو ممتاز، بارك الله فيك أخي الكريم شوقي ربيع وجعله في ميزان حسناتك ووفقك الله لما يحب ويرضى... بالنسبة لعمل الملف أو عدمه، فإذا تم فتح الملف من الملف المضغوط فإنها تظهر الرسالة التي ظهرت لـ "بوحسين"، لذا يجب إلغاء الضغط عن الملف ووضعه مع ملف Data في مجلد واحد (سطح المكتب مثلا) ثم فتح ملف الإكسيل وسيشتغل بإذن الله بكل كفاءة... والله أعلم. بن علية حاجي -
تمت الإجابة تكرار مضمون خلية حسب الرقم الذي أمامها
بن علية حاجي replied to مصطفى الفارس's topic in منتدى الاكسيل Excel
السلام عليكم جرب المرفق لعل فيه ما تريد... تم عمل ذلك بالمعادلات... بن علية حاجي جرد المكتبة العربي ــ 2018.xls -
تمت الإجابة لصق الكل ماعدا الدوال والارتباطات
بن علية حاجي replied to bachiri401's topic in منتدى الاكسيل Excel
السلام عليكم تفضل ما طلبته... والتعديل بسيط جدا.. بن علية حاجي 22 (2).xlsm -
تمت الإجابة لصق الكل ماعدا الدوال والارتباطات
بن علية حاجي replied to bachiri401's topic in منتدى الاكسيل Excel
السلام عليكم تم عمل المطلوب بإضافة كود يقوم بحفظ كل مضمون الورقة في ملف جديد في موقع الملف الأصلي وباسم الورقة الحالية "اساتذة القسم الواحد" دون معادلات أو روابط مع ملفات خارجية... أرجو أن تفي الغرض المطلوب... ملاحظة: لم أضف في الكود أمر حذف الأعمدة الأولى (كما طلبت)... معذرة. بن علية حاجي 22 (1).xlsm -
تمت الإجابة طريقة إدراج ملاحظات وإرشادات جديدة
بن علية حاجي replied to dodo222's topic in منتدى الاكسيل Excel
السلام عليكم ورحمة الله أدرجت لك في الملف المرفق ورقة جديدة (شيت جديد) سميتها "إضافية" للتعدير على ملاحظات التقديرات والإرشادات للتحسن (حسب الفصل) مع كود في حدث الورقة يقوم بنقل هذه الملاحظات المعدلة (تلقائيا بعد الخروج من الورقة) إلى الأوراق الأخرى والتي اسمها يبدأ بـ "الصفحة رقم ...". إذا أردت أن تكون قائمة ملاحظات "التقديرات" وملاحظات "الإرشادات للتحسن" مختلفة ينبغي التعديل على الكود الموجود في كود اليوزفورم 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 -
تمت الإجابة مشكلة الماكرو في اوفيس ٢٠١٠
بن علية حاجي replied to رجب مرسي's topic in منتدى الاكسيل Excel
السلام عليكم على أي مستوى (ويندوز، برنامج إكسيل أو VBA) تريد حل مشكلة اللغة؟ -
تمت الإجابة ظهور السعر تلقائي عند كتابة رقم البند
بن علية حاجي replied to hosnynaser's topic in منتدى الاكسيل Excel
السلام عليكم الرابط الذي أرفقته هو رابط لملف أكسس من المفروض أن يتم إدراجه في قسم أكسس... بن علية حاجي -
تمت الإجابة تحديد نطاق طباعة متغير
بن علية حاجي replied to أيهاب ممدوح's topic in منتدى الاكسيل Excel
السلام عليكم كلتا الحالتين (الطريقتين) تحتاج إلى إنشاء التسمية الخاصة بالنطاق المراد طباعته وتسميتها في الملف 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 في كود حدث الشيت "تأخير"... وليس لي شرح آخر... بن علية حاجي -
تمت الإجابة مشكلة الماكرو في اوفيس ٢٠١٠
بن علية حاجي replied to رجب مرسي's topic in منتدى الاكسيل Excel
السلام عليكم إذا قمت بحفظ الملفات بعد فتحها بواسطة إكسيل 2010 وليس لديك منها نسخ فقد ضاعت كل الأكواد ويجب إعادة إنشائها من جديد... أما إذا كان غير ذلك فيجب فتحها بواسطة إكسيل 2003 في جهاز آخر (أو في جهازك بعد تنصيب إكسيل 2003 فقط من كل مكتبة أوفيس 2003) ثم القيام بتصدير Exportation لكل الماكروات في الملف إلى جهازك (يُستحسن أن تكون في موديول Module واحد)... ثم تفتح هذه الملفات بواسطة إكسيل 2010 واستيراد Importation كل الموديولات الخاصة بهذا الملف... وليس لي فكرة أخرى... بن علية حاجي -
تمت الإجابة تحديد نطاق طباعة متغير
بن علية حاجي replied to أيهاب ممدوح's topic in منتدى الاكسيل Excel
السلام عليكم تم إنشاء الكود التالي في حدث الشيت "تأخير": Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub وهذا الكود يضمن أن تتحدد ناحية الطباعة آليا بالزيادة والنقصان (حسب قيم العمود A)... كل ذلك في الملف المرفق... بن علية حاجي برنامج ايجار.xlsm -
تمت الإجابة تحديد نطاق طباعة متغير
بن علية حاجي replied to أيهاب ممدوح's topic in منتدى الاكسيل Excel
السلام عليكم إذا قمت بتعيين ناحية الطباعة للورقة يدويا (في إعدادت الصفحة مثلا) فقد ألغيت عملية تحديد ناحية الطباعة آليا؟ ألق نظرة في التسميات وخاصة في ناحية الطباعة لشيت "تأخير" تجد أني حددته بالمعادلة Plage= ويمكن أن نحددها آليا بواسطة كود VBA في حدث هذا الشيت باستعمال دائما التسمية Plage فهذا يكون آمنا... التسمية Plage مرتبطة بقيم العمود A (من الصف 1 إلى رقم صف آخر خلية غير خالية من العمود A)... لقد أعدت ربط التسمية Plage بناحية الطباعة لشيت "تأخير" في ملفك الأخير الذي أرفقته... بن علية حاجي برنامج ايجار (1).xlsm -
تمت الإجابة تحديد نطاق طباعة متغير
بن علية حاجي replied to أيهاب ممدوح's topic in منتدى الاكسيل Excel
السلام عليكم استعمل لذلك الدالة OFFSET -مثلا- (أو DECALER بالفرنسية) في معادلة نطاق الطباعة... وفي الموقع تجد الكثير من الأمثلة على ذلك... بن علية حاجي جرب المرفق لعل فيه ما تريد.... تم تسمية نطاق البيانات في ورقة "تأخير" بالتسمية Plage ثم إرفاق هذه التسمية بنطاق الطباعة لهذا الشيت.... بن علية حاجي برنامج ايجار.xlsm