بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم أنور، إن العمل في إكسيل 2007 بالنسبة للجداول المحورية لا يختلف كثيرا عن إكسيل 2003، خاصية الجداول المحورية تجدها في 2007 في أمر "إدراج" أو "Insertion" أو "Insert" (لا أعرف بالضبط فيما يخص الترجمة) تقوم باختيار "الجداول المحورية PivotTables" واتبع الخطوات التي سردتها عليك في رد سابق (مع تتبع كل خطوة لأنه يوجد اختلاف بسيط بين 2007 و 2003) والله أعلم

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

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

السلام عليكم ورحمة الله أخي هشام، أحبّك الله الذي أحببتني فيه وفقك الله إلى كل خير... بارك الله فيك على الكود لكن أعتقد أن الفرز يتم حسب العلامة وأنت جعلت الفرز حسب "الاسم" باختيارك العمود 10 أي J (للتغيير الذي يحدث به الفرز التلقائي) ومفتاح الفرز الخلية J17... الكود جميل جدا ورائع... دائما تبهرنا بأعمالك، حفظك الله من كل شر... أخوك بن علية

السلام عليكم ورحمة الله إن الدالة VLOOKَON هي دالة مستحدثة تتعامل مع أسماء نطاقات وليس مع أسماء الأوراق (التي هي لأحد أعمدة هذا الصرح) وليست من دوال إكسيل وبالتالي فإن تنفيذها مع دوال إكسيل (غير مستقرة) مثلما فعلت في ملفك بالصيغة: =vlookon(A2;(STXT(CELL("FILENAME");(FIND("]";CELL("FILENAME"))+1);50));ENG_ALL) تعطي الخطأ باعتبار أن الدالة : =STXT(CELL("FILENAME");FIND("]";CELL("FILENAME"))+1;20) تعطي أولا اسم ورقة وثانيا هي دالة غير مستقرة في هذه الحالة لأن نتيجتها تتغير حسب آخر ورقة تم استحداثها بينما الدالة =CELL("FILENAME") تعطي دائما اسم الملف المفتوح وليس لي تفسير آخر... وإذا كان هناك تفسير آخر فلا تبخلوا عنا به... والله أعلى وأعلم

السلام عليكم ورحمة الله محاولة الإجابة على بعض تعليقاتك: - الباين انك وضعت القيمة امام الصنف ولم تضع الكمية وانما كان يجب وضع الكمية: وضعت القيمة حتى يتم إعطاء المجاميع الخاصة للقيم لكل عميل والمجاميع العامة بينما لو وضعنا الكميات سيعطيك المجاميع للكميات فقط (مع إمكانية وضع القيم والكميات ولكن الجدول يكبر.... أنظر الملف المرفق) - هل بامكاني ان اقوم بنسخ هذا الجدول ووضعه في ورقة اخرى بدون ان يكون هناك جدول محوري : بالتأكيد نعم يممكنك ذلك بتحديد كل الجدول ثم باستعمال خاصية لصق خاص (القيم) نقوم بلصقه في ورقة أخرى أو حتى في ملف آخر... ولكن عليك بتغيير التنسيقات على الخلايا المنسوخة(حذف ،تعديل ، الخط ...) - هل الاصناف الموجودة هي كل الاصناف التي قام العملاء بالاخذ منها ، يعني اكيد مش راح الاقي صنف رايح ومش موجود يعني اكيد ان كل الاصناف موجودة صح ؟؟ : هذا مما لا شك فيه لأنه عند إنشاء الجداول المحورية تم اختيار كل جدول البيانات من بدايته إلى نهايته... - واخيرا وليس اخرا اتمنى ان تسرد الطرق التي اتبعتها حتى يتم تطبيقها على اكثر من 23 ملف بنفس الكيفية : في الحقيقة وأصدقك الحديث، هذه أول مرة أقوم بإنشاء جداول محورية (لأني لا أستعملها عادة) وكان لك الفضل أخي الكريم أني قمت بالعمل عليها في ملفك، مما يعني أنه باستطاعتك أخي الكريم أن تقوم بذلك بسهولة... المهم الخطوات التي قمت بها (واعذرني لأن أوفيس عندي بالفرنسية وأجد صعوبة في المصطلحات إلى العربية أو الإنجليزية) هي كما يلي: 1- نفتح الملف على الورقة التي بها البيانات ولا ننسى أن نملأ كل خانات العمود A (عمود العملاء) ولا نتركها فارغة مثل ما هو مقدم لك في الملفات المرفقة... 2- فتح أمر "البيانات" Data أو Données في شريط الأوامر 3- اختيار (تقرير الجداول المحورية) 4- ثم نوافق على "التالي" ويسألنا أين نجد البيانات (إذا كان ملف البيانات غير مفتوح) نتابع الموافقة (بعد التأكد من أن كل البيانات تم اختيارها) على "التالي" 5- يسألنا : "ورقة جديدة" أو "الورقة الحالية"، نختار "ورقة جديدة" ونضغط على "إنهاء" 6- في الإطار الذي يظهر أمامنا نقوم بوضع "الحقول" بسحبها الواحد تلو الآخر ووضعه في الجدول المقابل (خطوطه زرقاء) حسب ما نريده... بالنسبة لملفك : وضعت حقل "العميل" أين تجد قد كتب "هنا توضع حقول الأعمدة"، ووضعت حقل "الأصناف" أين تجد قد كتب "هنا توضع حقول الصفوف"، وحقل "القيم" أين كتب "هنا توضع البيانات" (وإذا أردت أن تضيف حقل "الكميات" تضعه مع حقل "القيم")... أرجو أن يكون شرحي موفقا آملا أن تنجح معك العمليات... والعمل الآن عليك وفقك الله لكل خير... أخوك بن علية مبيعات العملاء.rar

السلام عليكم ورحمة الله أخي الكريم عيسى، ألق نظرة على الملف الذي وضعه أخي وحبيبي "سالم شباني" ملف "الفاتورة" في موضوع الرابط التالي: My link وإن شاء الله ستجد ما تطلبه... أخوك بن علية

السلام عليكم ورحمة الله عملت على ملف الأخ طارق وأضقت طريقة أخرى... أنظر الملف المرفق... بن علية 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)) والله أعلم