بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، قمت بإضافة خاصيتي UNPROTECT و PROTECT إلى كل كود يحتاج إلى فتح شيت "الشهادات" في Module1 ... والكلمة السرية هي من المفروض 123 يمكن تغييرها في أكواد Module1 باستعمال خاصية استبدال Replace ويتم استبدال "123" بأي كلمة أخرى.... والله أعلم أخوك بن علية شهادات جديد.rar

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

السلام عليكم ورحمة الله أخي الكريم، في هذه الحالة يكفي إظافة اسم الورقة التكويد! في عناوين الخلايا والنطاقات... والمعادلات المقترحة بالأعلى تصبح: معادلة أخي الحبيب الخالدي (بعد إذنه) : =INDEX(التكويد!$1:$1;0;256-MAX(INDEX((التكويد!$A$2:$H$300=التكويد!J4)*(256-COLUMN($A$1:$H$1));))) معادلتي : =INDEX(التكويد!$1:$1;;SMALL(IF(التكويد!$A$2:$H$1000=التكويد!J4;COLUMN($A:$H));1)) ولا تنسى أنها معادلة صفيف أخوك بن علية بحث وارجاع العمود.rar

السلام عليكم ورحمة الله أخي الكريم، قد تقدم أخي الكريم الخالدي بما يفي الغرض جازاه الله عنا ألف خير وبارك له في علمه... ويمكن أيضا استعمال معادلة الصفيف التالية: =INDEX($1:$1;;SMALL(IF($A$2:$H$1000=J4;COLUMN($A:$H));1)) ولا تنسى تأكيدها بـ : CTRL+SHIFT+ENTER أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، هذه محاولة على ملف أخي الحبيب طارق مع بعض الملاحظات على الرسم... أتمنى أن يكون العمل مفهوما والملاحظات واضحة... أخوكم بن علية Circle1.rar

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

السلام عليكم ورحمة الله أخي الكريم، تعودت أن أتتبع خطوات أخي وحبيبي أبو أحمد، عمله بالأكواد وعملي بالمعادلات، أقدم العمل التالي في الملف المرفق باستعمال معادلات بسيطة مع إضافة تنسيق شرطي "نلوين الاسم واسم المادة في الجدول حسب الاسم المختار في القائمة المنسدلة"... أخوك بن علية كود لكتابة الاسماء التى ينطبق عليها اسم المادة3.rar

السلام عليكم ورحمة الله أخي الكريم طاهر، لقد جربت تنصيب الأداة Translation Names التي هي مصدر المشكل وقد ظهر المشكل نفسه في جهازي وقمت ببساطة بفتح البرنامج وتجاوزت الرسالة بالإلغاء Annuler حتى تم فتح صفحة إكسيل ثم فتحت خاصية "أدوات" Outils ثم "وظائف إضافية" Macros complémentaires وقمت بإزالة العلامة من أمام هذه الأداة Translation Names والموافقة وتجاوزت أيضا رسالة الخطأ بالإلغاء Annuler واغلقت إكسيل ثم فتحته ولم يبق أثر للرسالة والخطأ... في حالة ما لم تنفع الطريقة يكفي حذف الأوفيس من الجهاز عن طريق "إلغاء تنصيب البرامج" ثم حذف الدليل Microsoft Office من Program Files ثم إعادة تنصيب الأوفيس من جديد وإن شاء الله يكون حلا لمشكلتك بدلا من إعادة تنصيب الويندوز (وآخر الدواء الكي) والله أعلى وأعلم... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تمت بعض التغييرات على الورقة "1" بتحويل أرقام أيام الشهر إلى تواريخ مع بعض التنسيقات (السطرين 1 و 2) والتنسيقات الشرطية لأيام الجمعة... ومعادلة عد أيام الغياب لكل طالب قمت باستثناء يوم السبت (7) ويوم الأحد (1) هي من الشكل (لم أستطع تبسيطها): =SUMPRODUCT((WEEKDAY('1'!E$2:J$2)<>1)*(WEEKDAY('1'!E$2:J$2)<>7)*('1'!E3:J3="غ")) وأعتقد أن المعادلة تعطي فكرة على طريقة استثناء أيام أخرى... وتطبيق كل هذا في الملف المرفق... أخوك بن علية 2.rar

السلام عليكم ورحمة الله أخي الكريم، جرب الطريقة التالية: في الدليل C:\Program Files\Microsoft Office\OFFICE11\STARTUP تجد أحد الملفين pdfmaker.dot أو pdfmaker.xla أو كلاهما، قم بحذفهما من الدليل (يجب أن يكون برنامج إكسيل مغلقا). أرجو أن تكون هذه الطريقة حلا لمشكلنك... إن لم تنجح هذه الطريقة عليك بإلغاء خاصية "أدوات اليورو" Outils pour l'euro من وظائف إضافية Macros complémentaires. ويمكن أن برنامج مضاد الفيروسات Antivirus هو المشكل... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، كما وعدتك في رد سابق أني سأحاول في ملفك إن لم يقم آخر بذلك وتراني لم أنسك ولم أنس الموضوع... لذا قمت بعمل التنسيقات اللازمة على جداول ورقات (شيتات) الشهور... وبإذن الله أقول إن المطلوب الأخير تم إنجازه والحمد لله... وأنوه أنه إذا كانت أخطاء أخرى أو تقصير في هذا العمل أو كانت طلبات أخرى أن تحصيها وتسردها في رد آخر حتى يكتمل الملف وعمله على أحسن حال... أتمنى أن تروقك التعديلات الجديدة على الملف والتي تمت في أوفيس 2010. أخوك بن علية Emmpl-Attendance_Calendar_V1.22test4.rar

السلام عليكم ورحمة الله إخواني الكرام، أعرف أن العمل الذي قدمه أخي وحبيبي أبو أحمد هو عمل رائع وجميل جازاه الله عنا ألف خير وجعل كل ذلك في ميزان حسناته، غير أني أريد أن أعرف فعلا إن كان في الملف الذي أرفقته في المشاركة 3# أي عطب؟؟ إن كان ولا بد أعيد إرفاقه للفائدة... أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، أقدم لك حلا بالمعادلات (معادلات عادية ومعادلات صفيف) في الملف المرفق... أخوك بن علية البحث الكود او المعادلات .rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال الكود (للنطاق A1:H50 من الورقة مثلا) التالي : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:H50")) Is Nothing Then Target = UCase(Target) End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، باعتبار أني أعمل على نسخة أوفيس 2003 لم أستطع إضافة شروط أخرى للتنسيقات الشرطية لذا وضعت كودا (لكل ورقة شهر) يقوم بتنفيذ أوامره بمجرد فتح ورقة الشهر (تأخذ بعض الوقت في التنفيذ)... وإذا أردت الاستغناء عن هذه الأكواد التي تبطئ الملف قليلا يجب العمل في النسخ المتقدمة للأوفيس (2007 أو 2010) التي تقبل شروطا متعددة للتنسيق الشرطي والتي تناسب المطلوب... وإن شاء الله سأحاول لاحقا القيام بهذه العملية إن لم يقم أحد غيري بذلك... وأعتذر لك لعدم الرد عليك سابقا لأني اعتقدت أن العمل المطلوب كان كاملا... أخوك بن علية Emmpl-Attendance_Calendar_V1.22test3.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى عمل أخي وحبيبي أبو أحمد، أضيف حلا آخر (باستعمال المعادلات) لعمل المطلوب وليس بالتصفية ولكن باستعمال الدوال INDEX و SMALL بمعادلة صفيف في شيت4 مع بعض التعديلات (ضرورية) على الورقة... ويكفي في شيت 4 اختيار الصف في القائمة المنسدلة في الخلية E4 للحصول على قائمة الفصل (أسماء التلاميذ والحالة)... راقب المعادلات في الجدول الإحصائي بالأسفل ربما تكون فيه بعض الأخطاء... أخوك بن علية تلاميذ الدار.rar

السلام عليكم ورحمة الله أخي الكريم، على عيني وراسي أضع بين أيديكم الكودين اللذين يقيسان عرض الأعمدة وارتفاع الصفوف بالميليمتر والسنتيمتر... رسائل الكودين بالفرنسية (يمكن تغييرها في نص الأكواد بالعربية أو الإنجليزية)... الكود الخاص بقياس عرض الأعمدة Sub colonnesEnCentimetres() Dim cm As Integer, points As Integer, savewidth As Integer Dim count As Integer Application.ScreenUpdating = False cm = Application.InputBox("entrer la largeur de la colonne en cms", "Largeur de la colonne souhaitée", Type:=1) If cm = False Then Exit Sub points = Application.CentimetersToPoints(cm) savewidth = ActiveCell.ColumnWidth ActiveCell.ColumnWidth = 255 If points > ActiveCell.Width Then MsgBox "la largeur de" & cm & "est trop large" & Chr(10) & "la valeur maxi est de " & _ Format(ActiveCell.Width / 28.3464566929134, "0.00"), vbOKOnly + vbExclamation, "largeur non valable" ActiveCell.ColumnWidth = savewidth Exit Sub End If lowerwidth = 0 upwidth = 255 ActiveCell.ColumnWidth = 127.5 curwidth = ActiveCell.ColumnWidth count = 0 While (ActiveCell.Width <> points) And (count < 20) If ActiveCell.Width < points Then lowerwidth = curwidth Selection.ColumnWidth = (curwidth + upwidth) / 2 Else upwidth = curwidth Selection.ColumnWidth = (curwidth + lowerwidth) / 2 End If curwidth = ActiveCell.ColumnWidth count = count + 1 Wend End Sub الكود الخاص بقياس ارتقاع الصفوف Sub lignesEnCentimetres() Dim cm As Integer cm = Application.InputBox("Entrer la hauteur de la ligne en centimètres", "Hauteur de la ligne souhaitée", Type:=1) If cm Then Selection.RowHeight = Application.CentimetersToPoints(cm) End If End Sub أرجو أن تكون هذه الأكواد مفيدة أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، إن قياس عرض الأعمدة وارتفاع الصفوف يتم عموما بالنقاط أو البكسل... غير أنه إذا كنت تعمل بنسخ الأوفيس المتقدمة 2007 أو 2010 فإنه يمكنك قياسهما بالسنتيمتر أو بالبوصة بواسطة (عرض/تنسيق الصفحة أو View/Page setup أو Affichage/Mise en page) وسأحاول إن شاء الله تحضير ملف تنفيذي يشرح العملية لاحقا (على نسخة أوفيس 2010 بالفرنسية) أو انظر الصورة الموالية ... أما إذا كنت تعمل على نسخة أوفيس 2003 فتجد في النت أكواد تقوم بالقياسات باستعمال السنتيمتر (الميليمتر)، وإذا لم تجدها أضعها لك في رد آخر أو يمكن استعمال جدول التحويل بالأسقل الذي يساعد في هذه العملية (بالتقريب)... Cm Pixels Points 18 24 0,635 36 48 1,27 72 96 2,54 108 144 3,81 144 192 5,08 أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، بعد إذن أخي الحبيب أبو أحمد، أضيف لمسة للسمفونية حسب اللحن الجديد وهذه اللمسة تتمثل بإدراج السطر التالي في الكود: Range(Cells(17, "K"), Cells(LR, "N")) = Empty الذي يقوم بإفراغ كل البيانات المرحلة بعد الفلترة بداية من السطر 17 للاحتفاظ بعشر بيانات الأولى (أكبر 10 مجاميع لا غير)... أرجو أن يكون هذا الحل البسيط مقبولا... في الملف المرفق تجد التعديل... أخوك بن علية اكبر عشرة مجاميع.rar

السلام عليكم ورحمة الله أخي الكريم، المشكل ليس في حذف الصفوف بل المشكل في المعادلات المتغيرة الموضوعة في عمودي العلاوات... وفي حالة الحذف تعطي هذه المعادلات خطأ المراجع المحذوفة... أخوكم بن علية

السلام عليكم ورحمة الله إخواني الكرام، ربما كان هناك بعض الخلل في الملف في بعض الأجهزة بسبب الدالة EOMONTH المستعملة في معادلات الأشهر والتي تحتاج إلى ATPVBAEN.XLA... لذا تم استبدالها بدالة DATE للحصول على تاريخ آخر كل شهر... وفي الملف المرفق تجدون كل التعديلات على ورقات الأشهر... أرجو أن يلبي الملف كل الرغبات... وإذا كانت هناك أخطاء أخرى في المعادلات فالرجاء الإشارة إليها ليتم تصحيحها... أخوكم بن علية Emmpl-Attendance_Calendar_V1.22test2.rar

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن هذا المشكل يحدث لما نفتح ملف بواسطة أوفيس 2007 أو 2010 وقد تم إنشاؤه في أوفيس 2003 (أو أدنى) ويحتوي أكوادا... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أقترح عليك كودين: الأول : يقوم بحفظ المصنف وغلق برنامج إكسيل Sub Save_CloseApplication() ActiveWorkbook.Save Application.Quit End Sub والثاني : يقوم بحفظ المصنف وغلق المصنف دون غلق برنامج إكسيل Sub Save_CloseWorkbook() ActiveWorkbook.Save ActiveWorkbook.Close End Sub ملاحظة: كلا الكودين يطالبانك بحفظ المصنف باسم إذا لم يتم سابقا حفظه باسم أخوك بن علية