بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم وإضافة إلى حل أخي الحبيب أبو أحمد جزاه الله عنا ألف خير، أقدم لك 5 حلول أخرى في الملف المرفق (منها ثلاثة حلول باستعمال معادلات صفيف التي يجب تفعيلها بالضغط على Ctrl+Shift+Enter وهي موجودة في الأعمدة الملونة بالأزرق)... أتمنى أن يكون المطلوب... بالنسبة للصفوف التي خلاياها فارغة فإن المعادلات المقترحة تعطي إما 0 وإما خطأ ويمكن أن نتجنبها بتغيير شرطي على المعادلات أو باستعمال التنسيقات الشرطية... أخوك بن علية hben1.rar

السلام عليكم ورحمة الله أخي الكريم، جرب الكود التالي: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Cel As Range Set myrange = Range("G1:G40") For Each Cel In myrange If Target.Column = 7 And Target.Row = Cel.Row And IsEmpty(Cel) Then MsgBox ("Empty Cell – Please ensure there is a value in all grey cells. Thanks") Cel.Value = " " End If Next End Sub أتمنى أن يكون المطلوب... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم ما دمت تستعمل Excel 2007 أو أكثر يمكنك استخدام التنسيق الشرطي بتلوين كل مجموعة بلون مختلف ثم تقوم بالتصفية Filter حسب الألوان... أنظر الملف المرفق... أخوك بن علية stt data.rar

السلام عليكم ورحمة الله أخي الكريم، وإضافة إلى حل أخي الحبيب طارق، هذا حل آخر باستعمال الدالتين INDEX و MATCH تضعها في الخلية D17 وتسحبها إلى الخلية G17 .... والمعادلة هي: =INDEX($C$5:$C$14;MATCH(D15;D5:D14;0)) مع مراعاة "الفاصلة المنقوطة" و "الفاصلة" في بعض الأجهزة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن المشكل في كثرة التنسيقات التي وضعتها بالملف، ولم أجد طريقة لتصحيح هذا الخلل إلا بفتحه بوساطة برنامج OpenOffice ثم إعادة حفظه باسم جديد، وفتحه بوساطة Excel كان هذه المرة أسرع... غير أنه قد ضيّع الملف بعض التنسيقات (القليل منها مثل ألوان أسماء الشيتات) يمكنك التأكد منها... أنظر الملف الجديد بالملف المرفق وإن شاء الله أكون قد وفّقت في تعديله... أخوك بن علية control sheet Second year2.rar

السلام عليكم ورحمة الله أخي الكريم، وإضافة إلى عمل أخينا وحبيبنا خبور جزاه الله عنا ألف خير وخير ورفع عليه كل هم وغم وعلى كل الأمة الإسلامية... أقدم الفكرة التالية في الملف المرفق (ما دمت تريد أن تحتفظ بأي تقسيم سابق ولكن جدول القيم المدخلة تم تمديده وتغيير معادلاته) ويكفي إدخال المعلومات (أرقام السلسلة) في العمودين الأخضرين (من و إلى) وسيتم التقسيم تلقائيا بعد الترقيم الآلي للمجموعة المدخلة... أتمنى أن يكون المطلوب... أخوك بن علية تقسيم متسلسل.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، يمكنك استعمال التنسيق [$-F10000]mmm على الخلية التي بها التاريخ أو يمكنك استعمال الدالة TEXT بإحدى المعادلتين التاليتين: =TEXT(TODAY(),"mmm") أو =TEXT(TODAY(),"[$-F10000]mmm") أتمنى أن تجد ضالتك بهذه الحلول... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب أبو أحمد، يمكنك استعمال المعادلة التالية في الخلية B1 : =SUMPRODUCT((A3:A11=A1)*(B3:B11)) كما في الملف المرفق... أخوك بن علية SUMPRODUCT بدل VLOOKUP.rar

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

السلام عليكم ورحمة الله أخي الكريم، إن العمل المقدم رائع في أساسه جازى الله إخواننا الكرام خير الجزاء، وفقهم الله لكل خير وجعل الجنة مثواهم... أقدم لك العمل التالي في الملف المرفق بعد بعض التغييرات على الكود وعلى أوراق المستند وإن شاء الله يفي بالغرض ويكون هو المطلوب... أخوك بن علية ملاحظة: بالنسبة لأمر الطباعة وضعته في السطر ما قبل الأخير في الكود ولكنه غير مفعل، ولتفعيله يجب حذف العلامة ' الموجودة في بداية السطر... ترحيل3 مع طباعةA5.rar

السلام عليكم ورحمة الله أخي الكريم، وإضافة إلى حل أخي الحبيب يحيى، إليك الحل التالي باستعمال الدالتين INDEX و MATCH في الملف المرفق التالي... أخوك بن علية ادراج عمود غن طريق البحث حسب الرقم الجامعي لجدول واظهار نتائج في الورقة 3.rar

السلام عليكم ورحمة الله أخي الكريم، حل آخر إضافة إلى حل أخي العزيز طارق جزاه الله عنا الف خير... أخوك بن علية Book2_1.rar

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للسؤال الأول (تعيين القيمة الأكثر تكرارا) يمكنك استعمال دالة الصفيف التالية: =INDEX(C3:N3,MATCH(MAX(COUNTIF(C3:N3,C3:N3)),COUNTIF(C3:N3,C3:N3),0)) في الخلية O3 وتاكيدها(CTRL+SHIFT+ENTER) ثم سحبها إلى الأسفل... وقد وضعتها في الملف المرفق... أخوك بن علية اكبر قيمة مكررة1.rar

السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا وضع القيم 200; 165; 14; 131; 126; 95; 82; 81; 11; 58 في عمود معين، مثلا العمود L بداية من السطر الأول، ونستعمل الدالة INDEX بالمعادلة : =INDEX(L1:L10;F11) والنطاق L1:L10 يمكن تمديده إلى أكثر من 10 قيم... في الحقيقة الحلول التي وضعتها يوجد غيرها باستعمال دوال أخرى... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، يمكن أيضا استعمال الدالة CHOOSE حسب المثال الذي وضعته باعتبار أن قيمة F11 هي أعداد طبيعية متسلسلة من 1 ، والمعادلة تكون: =CHOOSE(F11;"200";"165";"14";"131";"126";"95";"82";"81";"11";"58") وتلاحظ هنا أن عدد القيم هو 10 ويمكن تمديده إلى أكثر من ذلك... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، لم أضف شيئا على الأكواد ولكن عملت على خصائص TextBox، قمت بتغيير خاصية AutoTab لكل TextBox إلى القيمة TRUE وخاصية MaxLength إلى القيمة 3 مع مراعاة خاصية TabIndex حسب ترتيب TextBox، القيمة 1 لـ TextBox1 والقيمة 2 لـ TextBox2 والقيمة 3 لـ TextBox3، ونتيجة هذه التغييرات تجدها في الملف المرفق... أخوك بن علية TextBox.rar

السلام عليكم ورحمة الله أخي الكريم: أحاول أن أجيبك على سؤالك 1 ما الفرق بين الوسائط ومراجع الخلايا : الوسائط هي المتغيرات التي نجدها في تعريف الدوال (ويمكن أن تكون مراجع خلايا أو غيرها) ومراجع الخلايا هي عناوين الخلايا... 2 ما الفرق بين الدالتين : AVERAGE , MOYENNE : لا فرق بينهما (هي الدالة نفسها) الأولى (Moyenne) بالفرنسية والثانية (Average) بالإنجليزية... ووسائطها يمكن تكون مراجع خلايا أو نطاقات من خلايا متصلة أو متفرقة... هذا حسب معرفتي ومن لديه إضافات أخرى فلا يبخل علينا... والله أعلم

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

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

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أن المشكل في تنسيق الوقت hh:mm أو h:mm، وحسب رأيي المشكل في عملية إدخال (حجز) بينات التوقيت ربما استعملت علامة "/" أو علامة "-" لهذه البينات، وعلامة التوقيت هي ":" مع أحد التنسيقين hh:mm أو h:mm، وإن شاء الله تجد حلا لمسألتك... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، يمكنك تغيير المعادلة التي وضعها أخي العزيز "دغيدي" =IF(C5="","",VLOOKUP(C5,$M$5:$N$20,2)) بالمعادلة =IF(C5="","",VLOOKUP(C5,$M$5:$N$20,2,0)) أو بالمعادلة =IF(C5="","",INDEX($N:$N,MATCH(C5,$M:$M,0))) ملاحظة : المعادلة الأخيرة قد تم وضعها في الخلية H5 وسحبها إلى الأسفل... أخوك بن علية المصنف2.rar

السلام عليكم ورحمة الله أخي الكريم، يمكنك تغيير المعادلة التي وضعها أخي العزيز "دغيدي" =IF(C5="";"";VLOOKUP(C5;$M$5:$N$20;2)) بالمعادلة =IF(C5="";"";VLOOKUP(C5;$M$5:$N$20;2;0)) أو بالمعادلة =IF(C5="";"";INDEX($N:$N;MATCH(C5;$M:$M;0))) (المعادلات تكتب في الخلية E5 ويتم سحبها إلى الأسفل)... ملاحظة: قد وضعت لك الرد نفسه في الموضوع الأصلي مع ملف مرفق فيه تطبيق لهذه المعادلات... أخوك بن علية