بن علية حاجي

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

السلام عليكم ورحمة الله أخي الكريم، أعتقد أن ما تريده غير ممكن (صعب المنال) لأن الدوال المختارة يمكن أن تعطي الأعداد المرجوة وبمجرد تغيير إحدى القيم تصبح النتائج خاطئة والعكس مثال على الصيغ التي وضعتها في ملفك المرفق أعطت نتائج غير صحيحة ولكن إذا غيرت القيمة 458,65 (مثلا) إلى القيم 458,63 أو 458,67 أو 458,69 تتحصل على النتائج المطلوبة... لذا أقترح عليك أن تضع الصيغ التي وضعتها في الملف في كل الخلايا إلا واحدة والتي تضع فيه الصيعة التالية : (القيمة الكلية) - (مجموع كل القيم الأخرى)... أو أن تستعمل خاصية "الخلية الهدف" (وهي تعتمد الفكرة نفسها)... تجد في الملف المرفق تغييرات على المعادلات التي وضعتها في ملفك المرفق باستعمال الفكرة الأولى مع إضافة حل آخر بالفكرة نفسها... ليست لي فكرة أخرى أخرى أقترحها عليك فمعذرة.... أخوك بن علية تحميل.rar

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

السلام عليكم زرحمة الله أخي الكريم أبو أحمد سلمت يداك وبارك الله فيك وفي علمك والحقيقة أني من يطلب العذر والإذن منك في كل شيء ولإضافة حل آخر للمسألة يتمثل في المعادلة التالية (توضع في الخلية E4 ويتم سحبها للأسفل): =IF(ROW(1:1)<=$I$2;ROW(1:1);"") أخوكم ين علية

السلام عليكم ورحمة الله هذا حل أول حسب ما فهمت من نص الموضوع... يتم تغيير العددين الموجودين في الخليتين U11 (عدد الطلبة الكلي) و U13 (عدد اللجان المراد تشكيلها) وبطريقة تلقائية يتم تشكيل اللجان وعدد الطلبة في كل لجنة ثم توزيع (تسجيل) أرقام اللجان أمام كل طالب حسب العدد الذي تم تعيينه في كل لجنة.... أخوكم بن علية ضبط معادلة.rar

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

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

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر في الملف المرفق حيث تم تغيير معادلات العمود الأخير في ورقة "بحث" (الرقم 0 في عنوان العمود ضروري جدا) وهذه المعادلات تبحث عن اسم العميل المطلوب في نطاق متغير باستعمال الدوال INDIRECT، MATCH، INDEX (تجنبا لمعادلات الصفيف التي تبطئ الملف عموما) وتعطي هذه المعادلات أرقام الصفوف التي تحوي اسم العميل المعني بالبحث في ورقة "فاتورة" وتبحث هذه المعادلات في نطاق يصل إلى 60000 صف (ويمكن تمديده إلى أكثر)... أرجو أن يكون الملف مفيدة ويفي بالغرض المطلوب... أخوكم بن علية test 2ابوعثمان.rar

السلام عليكم ورحمة الله أخي الكريم، لقد تم تطوير هذا الملف والتعديل على معادلاته لتبسيطها في موضوع سابق لـ SAFAA (وذُكر أنه تم نقل الموضوع من منتديات أخرى) ورابط الموضوع هو http://www.officena.net/ib/index.php?showtopic=40484&hl=&fromsearch=1... وتجد في المرفقات آخر التعديلات على الملف... أرجو أن تكون هذه التعديلات مفيدة... مع ملاحظة أنه قد تم فتح موضوع مثبت من طرف الأخ الحبيب عبد الله باقشير (خبور خير) يتناول الفكرة نفسها بشكل آخر مختلف وجميل جدا أيضا... أخوك بن علية ترتيب التلاميذ 3.rar

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

السلام عليكم ورحمة الله أخي الكريم، حاولت في الملف المرفق أن أقترب من المطلوب.... في شرحك للمطلوب كان ينبغي أن تضع لكل قيمة رقم العمود (حرف العمود) الذي يخصها مثلما فعلت للعمود AC الذي يمثل "قيمة استقطاعات أخرى من شيتات الأشهر"... والمعادلة التي استعملتها لجلب القيم هي معادلة واحدة لا يتعير فيها سوى رقم العمود (حرف) المناسب للقيمة المطلوبة والمعادلة هي (المتغير فيها لوّنته بالأحمر): =IF($G$4="";"";INDIRECT($G$4&"!$F$"&$F$4+6)) ((IF($G$4="";"";INDIRECT($G$4&"!$F$"&$F$4+6= حيث : G$G$4 : اسم شيت الشهر المعني $F$ (متغير) : يمثل عنوان عمود القيمة المطلوب من شيت الشهر المعني F$F$4+6 : يمثل رقم السطر للعامل المعني (F$F$4 : يمثل ترتيب العامل في القائمة و +6 لأن البيانات في شيتات الأشهر تبدأ بعد السطر السادس) ملاحظة : إن كانت هناك أخطاء في عناوين الأعمدة المناسبة للقيم المطلوبة ما عليك إلا تصحيح هذه الأخطاء أخوك بن علية Payroll Tax - 2011_5.rar

السلام عليكم ورحمة الله أخي الكريم، معذرة مرة أخرى، لم أنتبه لمضمون الطلب الثاني كنت أعتقده فصل التاريخ في أوراق الشهور، وطلبك يخص ورقة Employee_Data وقد تم هذا المطلوب بتصحيح عمودي نتيجة الدالة VLOOKUP، الرقم 7 بالنسبة لتاريخ الميلاد والرقم 8 بالنسبة لتاريخ الالتحاق مع إضافة الدوال YEAR ، MONTH ، DAY على الدالة VLOOKUP حسب أعمدة اليوم والشهر والسنة للتاريخين... أخوك بن علية Social Insurance.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، لقد كانت إضافتك للمعادلات على الملف صحيحة وتدل على أنك فهمت جيدا مضمون ومغزى هذه المعادلات وطريقة عملها إلا أنه يوجد خلل بسيط جدا، وأعتذر منك لأن هذا إهمال مني في عدم شرحي للمعادلات، والخلل يكمن في أن بيانات العمال تبدأ في الورقة DATA من السطر "الثامن" بينما تبدأ البيانات في أوراق الأشهر من السطر "السابع" وفي المعادلات التي تقوم بمقارنة تاريخ الشهر للورقة مع تاريخ التحاق العامل في السطر نفسه باعتبار الدالة ()ROW في المعادلة وباختلاف الأسطر تقوم المعادلة بمقارنة تاريخ الشهر في ورقات الأشهر بتاريخ التحاق العامل الموجود في السطر الذي يسبقه من شيت DATA بدلا من تاريخ التحاق العامل نفسه (ومنه الخلل)... والتعديل الذي قمت به على المعادلات هو استبدال ()ROW بـ ROW()+1 حتى تتوافق أسطر بيانات أوراق الأشهر مع بيانات شيت DATA. وبالنسبة لفصل التاريخ إلى (يوم ، شهر، سنة) فالمعادلات التي وضعتها صحيحة كل الصحة والتعديل الذي قمت به قام يتصحيح نتائج هذه المعادلات... وفي الملف المرفق تجد المطلوب... ملاحظة: تم تحويل الملف إلى نسخة 2003 للإستفادة منه أكثر... أخوك بن علية Social Insurance.rar

السلام عليكم ورحمة الله أخي الكريم، قمت بمحاولة للترتيب حسب أسماء الطلبة ولكن ظهر مشكل وهو أن بعض الأسماء غير محجوزة بالطريقة نفسها رغم أنها مكررة، ثم عدلت على هذا الترتيب وجعلته حسب الأرقام الجامعية للطلبة (وأتمنى أن لا يكون فيها المشكل نفسه)... وحضرت لك الكود التالي (باعتبار أن البيانات يبدأ حجزها من السطر الأول) : Sub hben() Dim I As Integer, DernLigne As Long DernLigne = Range("A" & Rows.Count).End(xlUp).Row Set MyRange = Range("$A$1:$A$" & DernLigne) For I = 1 To DernLigne Cel = Range("A" & I) Range("D" & I) = Application.WorksheetFunction.CountIf(MyRange, Cel) Next Range("A1:D" & DernLigne).Sort Key1:=Range("D1"), Order1:=xlAscending, Key2:=Range("a1") _ , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _ xlSortNormal Range("D1:D" & DernLigne).Clear End Sub وإذا أردت ترك عدد مرات تكرار هذه الأسماء في العمود D يمكن حذف السطر Range("D1:D" & DernLigne).Clear من الكود... في الملف المرفق تحد تطبيق هذا الكود على مثالك... أخوك بن علية example.rar

السلام عليكم ورحمة الله أخي الكريم، إليك المطلوب في الملف المرفق بعد تغييرات طفيفة على كل معادلات أوراق الشهور ما يناسب هذا المطلوب... أخوك بن علية Payroll Tax - 2011_4.rar

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