بن علية حاجي

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

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

السلام عليكم ورحمة الله معذرة أخي الكريم يحيى حسين، الصيغة التي قدمتها صحيحة كل الصحة، وقد خلطت بين الدالتين ISERROR و IFERROR لأني أستعمل الإكسيل بالفرنسية وأترجم كل مرة هذه الصيغ (التي توضع على شكل كود وليست في الملف المعني)... معذرة مرة أخرى بالنسبة للصيغة التي وضعتها (وقلت إنها خاطئة) فقد قمت بالخطأ نفسه ولتصحيحها عليك بتغيير كلمة IFERROR بـ ISERROR وستعمل الصيغة جيدا (ولكنها أطول من الصيغة التي قدمها أخي الحبيب يحيى حسين)... بالنسبة للطلب الجديد وباستعمال الصيغة التي قدمها أخي يحيى (لإعادة الحق إليه) يمكنك وضع الصيغة التالية في الخلية G2 وسحبها إلى الأسفل: =IFERROR(INDEX($A$2:$B$29,MATCH($J2,$B$2:$B$29,0),1),"") أنظر الملف المرفق... والله أعلم Book1.rar

السلام عليكم ورحمة الله أهلا أخي الكريم... لست أدري ما تعنيه بـ "ملف نص" ؟ هل تقصد بذلك "ملف وورد" أم غيره؟ مع العلم أنه يمكنك القيام بذلك في الإكسيل بإنشاء ورقة جديدة نموذج للتقرير الذي تريده مع المعلومات التي تريدها من أي ورقة أخرى واستعمال دالة جلب المعلومات في الإكسيل مثل الدالة VLOOKUP أو الدالة INDEX مع MATCH أو غيرهما وبها تستدعي المعلومات الخاصة بكل موظف... بالنسبة للوورد (من المفروض أنك تجد هذه المعلومات في منتدى الوورد) يمكنك أولا إنشاء ورقة جديدة في ملفك تجمع فيها كل المعلومات والبيانات من الأوراق الأخرى وتجعلها قاعدة بيانات (بالشروط الخاصة بالحقول في الوورد) وثانيا تقوم بإنشاء ملف في الوورد (الملف الرئيسي) تحضره على النموذج التقرير الذي تريده ثم تستخدم جزء المهام "الرسائل ودمج المراسلات" لإنشاء رسائل نموذجية ومنه تستدعي قاعدة البيانات وتدرج الحقول من القاعدة حسب تقريرك... إن شئت ضع جزء من ملفك كملف مرفق مع شكل نموذج التقرير الذي تريد استخراجه (البيانات التي تريد أن تكون فيه) وإن شاء الله نقوم بما نستطيع لتلبية طلبك... والله أعلم

السلام عليكم ورحمة الله معذرة أخي الكريم يحيى ولكن الصيغة التي قدمتها بها نقص وأعتقد أن الصيغة كاملة تكون كما يلي: =IF(IFERROR(INDEX($B$2:$B$29,MATCH($J2,$B$2:$B$29,0)))=TRUE,"",INDEX($B$2:$B$29,MATCH($J2,$B$2:$B$29,0))) أخوك دائما بن علية

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

السلام عليكم ورحمة الله لقد تم تصحيح هذا الخلل في ردي السابق... وشكرا أخي الكريم "رشدي" على متابعة الموضوع...

السلام عليكم ورحمة الله بارك الله فيك أخي الكريم أيسم ابراهيم على هذه الإضافة الجميلة للكود وهذا التنبيه... غير أني لاحظت أنك قمت بإلغاء الأمر : Selection.SpecialCells(xlCellTypeConstants, 23).Select الذي يقوم بمسح مضمون النطاق المحدد دون الصيغ والمعادلات وجعلتَ الكود يمسح كل مضمون الخلايا في النطاق (مع الصيغ)، لهذا قمتُ بتغيير بسيط على الكود ليعمل بشكل أفضل ويتم مسح مضامين الخلايا دون مسح الصيغ التي تحويها... والكود يكون كما يلي: Sub Button1_Click() prompt = "هل تريد مسح البيانات؟انتبه لا يوجد تراجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading تحذير ! انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then Range("B4:E13").Select On Error GoTo 1 Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.ClearContents 1: Range("A1").Select End If End Sub أخوكم بن علية

السلام عليكم ورحمة الله أخي الكريم، دون مثال (ملف مرفق) على ما تطلب يصعب التعامل مع هذا الطلب... يمكنك استعمال الكودالتالي (وهنايمكنك التغيير فيه وخاصة في المدى الذي تريد مسحه): Sub ClearCells() Range("B4:E13").Select Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.ClearContents Range("A1").Select End Sub وعند تنفيذ الكود سيقوم بتحديد المدى الذي وضعته ويحوي معلومات نصية أو رقمية (دون الصيغ) وحذفها آليا... والله أعلم

السلام عليكم ورحمة الله إضافة إلى ما قدمه أخي الكريم يحيى حسين، ومن جهتي قمت بتنصيب الأوفيس 2003 كاملا (وأعمل عليه في جل ملفاتي) وأيضا قمت بتنصيب الإكسيل 2007 (فقط وفي دليل Directory آخر) والذي أحتاجه في هذا النوع من الحالات أو العمل مباشرة على ملفات تم حفظها بواسطة هذا الإصدار... والحمد لله لا أجد أي مشكل في التعامل مع النوعين XLS.* وَ XLSX.* ... والله أعلم

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

السلام عليكم ورحمة الله بورك فيك أخي الكريم وجزاك الله ألف خير... كود رائع من أخ أروع، إبداع في إبداع... جعل الله لك في كل حرف منه حسنات وزيادة... بن علية

السلام عليكم ورحمة الله النتيجة نفسها نتحصل عليها في طريقتك بتبديل كلمة MAX بكلمة COUNT (لكنها لا تعمل في حالة إخفاء السطور)

السلام عليكم ورحمة الله أخي الكريم إن الدالة COUNTCOLOR ليست من دوال إكسيل ولكنها دالة مستحدثة وقد وضعت في الملف "صحيحة.xls" على شكل كود الذي هو: Function CountColor(cell_range As Range, color_cell_index) As Integer Dim rCell As Range Dim cell_count As Integer cell_count = 0 For Each rCell In cell_range If rCell.Interior.ColorIndex = color_cell_index Then cell_count = cell_count + 1 End If Next rCell CountColor = cell_count End Function Function Color_index(cell_range As Range) As Integer Color_index = cell_range.Interior.ColorIndex End Function ما عليك إلا نسخ الكود في ملفك وستعمل الدالة جيدا... والله أعلم

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

السلام عليكم ورحمة الله أختنا الكريمة في الحقيقة إنني لم أفهم حتى الآن الصورة التي تعنينها فرجاء حاولي أن ترفقي جزء من الملف فيه الخلل ما دمت أنك قلت في رد سابق إنك قمت بنسخ مضمون الملف في ملف جديد وبقيت المشكلة فقومي رجاء بنسخ الجزء الذي فيه الخلل في ملف جديد وحمّليه في المرفقات أو حاولي إرفاق الصورة التي حاولت وضعها في الرد السابق حتى تتجلى لنا المسألة أكثر... ملاحظة: أولا ألق نظرة في إعدادات الصفحة هناك ثلاث خيارات (الهوامش - الورق - الوضعية Disposition -معذرة لا أعرفها بالعربية- أنظري الملف المرفق) في الثالثة إن لم تختاري في "المحاذاة العمودية" الاختيار "كشيدة" بدّليه بـ "أعلى" أو بغيره مما يسمح بتصحيح الخطأ... والله أعلم Doc1.rar

السلام عليكم ورحمة الله يمكن وضع خط فوق الكتابة باستعمال خاصية "محرر المعادلات" نقوم بإدراج كائن Object نختار محرر المعادلات Microsoft Equation Editor ونختار الكتابة المطلوبة (مستطيل فوقه خط)... والله أعلم

السلام عليكم ورحمة الله هذه الدالة SUBTOTAL أنها تستعمل مع دوال أخرى (في حالة الخلايا المخفية وغير المخفية) بالنسبة لطلبك يمكنك أن تقوم بتطبيق التصفية مثلا إذا كانت بعض مضامين الخلايا الموجودة في العمود الثاني متساوية وتختارها في التصفية تقوم الدالة بالترقيم تلقائيا ترتيبا تصاعديا... وإذا أردت أن تقوم الدالة بالترتيب في حالة إخفاء الأسطر ما عليك إلا أن تستبدل الرقم 3 الموجود في المعادلة بالرقم 103 مع سحب المعادلة على طول العمود وقم بإخفاء الأسطر التي ترتيدها وسترى أن الترقيم سيكون تلقائيا وبالترتيب التصاعدي أبدل في الحالة الصيغة : =+SI(B2="";"";SOUS.TOTAL(3;B2:B$2)) بالصيغة: =+SI(B2="";"";SOUS.TOTAL(103;B2:B$2)) والله أعلم

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

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

السلام عليكم ورحمة الله إخواني الكرام، في هذه الحالة نضع المؤشر في بداية السطر (أو في الفقرة إذا لم تكن طويلة أو تحوي مراجع هوامش أخرى) الذي (التي) يحوي مرجع الهامش (والذي انتقل نصه إلى الصفحة الموالية) ونضغط في آن واحد على : CTRL+SHIFT+ENTER مما يسمح بفتح (شبه) فقرة جديدة وصفحة جديدة (هذا بطبيعة الحال إذا كان لا يغير كثيرا في تنسيق الصفحات)... والله أعلم

السلام عليكم ورحمة الله أخي الكريم weld لقد جربت الملف وهو يشتغل جيدا (مع الخلل البسيط الذي ذكره الأخ عمر والذي لا أعرفه) يجب فقط اتباع ما طلب الأخ فعله حتى تشتغل الدالة في الملفات الخاصة بك وإليك الملاحظات (تجدها مكتوبة في الملف vlook_pic1 المرفق سابقا): طريقة الاستخدام -1 فى نفس فلدر الملف الخاص بك إنشئ قلدر باسم ( AllPic ) ضع فية الصور -2 أنسخ كود دالة ( VLOOK_Pic1 ) من هذا الملف الى الملف الخاص بك -3 من قائمة ( إدراج / دالة ) وعند ظهور الصندوق الحوارى حدد الفئة ب ( معرفة بواسطة المستخدم ) -4 ثم اختر دالة ( VLOOK_Pic1 ) فيظهر الصندوق الحوارى اكتب اسم الصورة او عنوان خلية تحتوى على اسم الصورة يجب ان يكون اسم الصورة دون النهاية الخاصة بنوعها(دون امتداد) فقــــط لا غيـــر الدالة بها خطأ صغير ربما يمكن معالجته فى القريب إن شاء الله ( ولكنه غير مؤثر)

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

السلام عليكم ورحمة الله لقد حدث خلل في إرسال الرد ولا يمكن حذف الرد (ميزة حذف الردود غير متوفرة في المنتدى)... لذا قمت بتغيير مضمون الرد المكرر... أخوكم بن علية

وعليكم السلام ورحمة الله أخي الكريم عمر، شكرا وبارك الله فيك على العمل الذي قمت به، ولكن لقد قمت بتغيير قيم الخلايا التي في العمود F (لم تستعمل القيم التي وضعها الأخ محمد في هذا العمود) ثم إن الصيغتين اللتين وضعتهما في العمودين G و H : = COUNTIF($C$10:$C$19;F10) = SUMPRODUCT(($C$10:$C$19=F10)*1) تمثلان الصيغة نفسها (حساب عدد الحالات المساوية للخلية F10 في النطاق $C$10:$C$19) أخوك بن علية