بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، جرب الطريقة التالية: في الدليل 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 ملاحظة: كلا الكودين يطالبانك بحفظ المصنف باسم إذا لم يتم سابقا حفظه باسم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، الخطأ كان في معادلات بعض التسميات لنطاقات الأشهر وقد تم التصحيح وبعض التعديلات... أرجو أن يكون هذا بعض المطلوب... أخوكم بن علية Emmpl-Attendance_Calendar_V1.22test1.rar

السلام عليكم ورحمة الله أخواني الكرام، أعجبني جدا ما قام به أخي الكريم ragab100100 حيث أظاف إلى تنسيقات الخلايا تنسيقا جديدا (كشرط اول) يقوم بإخفاء كل التنسيقات في حالة تكون في الخلية M1 كلمة "اخفاء" وفي حالة عدم وجود هذه الكلمة في الخلية يقوم بتطبيق الشرطين 2 و 3 للتنسيق (وهما الشرطان الأصليان لظهور الأرقام في الخلايا مع اللون الأحمر)... بارك الله فيك أخي الكريم وجزاك الله عنا ألف خير... وقد أضفت للملف (بعد إذن الأخ طبعا) زر طباعة يقوم بإخفاء التنسيقات ثم الطباعة ثم إعادة التنسيقات الأصلية... اظهار و اخفاء التنسيقات.rar وفي ملف آخر قمت بإنشاء تنسيقين أحدهما قبل الطباعة (يحتفظ فقط بالإطار لكل خلية ويخفي التنسيقات الأخرى) في النطاق L12:P12 والتنسيق الآخر بعد الطباعة (التنسيقات الأصلية) في النطاق L13:P13 وهده التنسيقات مطابقة للتنسيقات الموجودة في النطاق D12:H12 ... ثم أضفت زر طباعة يقوم بنسخ التنسيقات الموجودة في النطاق L12:P12 ولصقها في النطاق D12:H12 ثم طباعة الشهادة ثم إعادة التنسيقات الأصلية بنسخ التنسيقات من النطاق L13:P13 ولصقها في النطاق D12:H12... أرجو أن تعجبكم هذه الفكرة... وأعيد وأقول إن فكرة الأخ ragab100100 أحسن وأفضل.... Book1.rar أخوكم بن علية حسب ملاحظة أخي الكريم "رجب" جزاه الله عنا خيرا، تم نصحيح الكود في المرفق الثاني لخطأ في نطاقات التنسيقات التي يتم نسخها ولصقها قبل الطباعة وبعدها....

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

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، هذه محاولة في الملف المرفق باستعمال الدالة INDIRECT لجلب البيانات المطلوية مستعينا بالدالة MATCH بمعادلات في الخليتين G4 و G5 (ملونتين بالأبيض) لجلب رقمي سطري مضمون الخليتين A1 و A2 لشيت Investments in Aff. & Subs. Co. في شيت Detailed Trial Balance... أرجو أن يكون الحل مقبولا... وللتنبيه يحب أن تكون الأسماء متطابقة بين الشيتين... أخوك بن علية Book1_2.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، لا تتعجل بالإجابة لأن الصبر مفتاح الفرج، والشروط التي وضعتها ليست بالهينة وخاصة الشرط الأخير "ملف البيانات مغلق" وتعرف صعوبة التعامل مع بيانات ملف مغلق... اقترح عليك حلا آخر في الملف المرفق والذي يحتوي ملفين (ملف البيانات Base وملف البحث Test 3) يكفي تحميلهما ووضعهما في الدليل نفسه (Same Directory)... أرجو أن يفي بالغرض المطلوب... أخوك بن علية Base.rar

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد تطبيقا للمعادلة أعلاه... أخوك بن علية 1-1.rar

السلام عليكم ورحمة الله إخواني الكرام، بعض التعديلات على كود أخي الكريم عبد الله باقشير وجعله في حدث الورقة... Private Sub Worksheet_Change(ByVal Target As Range) Set Rng = [Base] MySum = 0 With Rng For R = 1 To .Rows.Count If CStr(.Cells(R, 1)) = [Search_N] Then Select Case .Cells(R, 3) Case [From1] To [To1] MySum = MySum + Val(.Cells(R, 2)) End Select End If Next End With [E3] = MySum End Sub مع تسميات لخلايا ونطاقات البحث... وإضافة حل بمعادلة مع الدالة SUMPRODUCT (وهي معادلة واحدة ولا تؤثر في حجم الملف ولا في سرعة تنفيذه)... أخوكم بن علية مثال حساب بين تارخيين3.rar

السلام عليكم ورحمة الله أخي الكريم، لست أدري ما الغرض من الطلب ولكن يمكنك استعمال المعادلة التالية: =SUM(90*COUNTIF($A1:$F1;"A");80*COUNTIF($A1:$F1;"B");70*COUNTIF($A1:$F1;"C")) أخوك بن علية