بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم أنور، إن فهمت عليك تريد أن تظهر ورقتين في ورقة واحدة لكن هل تريدها في الطباعة أم على الشاشة؟؟؟ * على الشاشة: نقوم بتحديد ثم قص الجزء الذي بالأسفل (صفحة2) ثم نقوم بنسخه مقابل الجزء الأعلى (صفحة1) ونقوم بالتنسيق على المضمون حتى يكون في ورقة واحدة... * على الطابعة : نقوم بطباعة الكل ونختار عند الطباعة في خاصية (Pages per sheet) (عدد الصفحات في الورقة) تضع فيها 2 (إن توفرت هذه الخاصية في الطابعة) فيتم طباعة الصفحتين في صفحة واحدة (بملاحظة أن الطباعة تكون مضغوطة صفحتين A4 في واحدة A4 فيصبح كل جزء منها بتنسيق A5)... والله أعلم

السلام عليكم ورحمة الله أخي الكريم هشام... الكود غير موجود... (الظاهر أن آمان الماكرو في أوفيس2007 خاصتك أكبر من المنخفض)... شكرا على المراجعة... أخوك بن علية

بارك الله فيك أخي الكريم هشام وجزاك الله على الملاحظة، ولكن أزيد وأقول إن الخطأ بدر مني في المعادلات التي كتبتها، من المفروض أنه إذا لم يكن الشرط محققا في الحلين (عدم مطابقة الاسم في القائمة ب مع الاسم في القائمة أ) فإن الصيغتين تعطيان خطأ من النوع N/A# ولا تعطي قيما خاطئة مثل ما هو موجود في الملف المرفق سابقا وقد تم تعديل الصيغ كما يلي: في الحل الأول : الخلية L7 بدلا من الصيغة: =INDEX($D$7:$H$19;MATCH($K7;$D$7:$D$19;1);COLUMN()-10) نضع الصيغة (ونسحبها في الجدول): =INDEX($D$7:$H$19;MATCH($K7;$D$7:$D$19;0);COLUMN()-10) وفي الحل الثاني: الخلية L23 بدلا من الصيغة: =VLOOKUP($K23;$D$7:$H$19;COLUMN()-10) نضع الصيغة (ونسحبها في الجدول): =VLOOKUP($K23;$D$7:$H$19;COLUMN()-10;0) وقد تم التصحيح في الملف المرفق التالي... والخطأ ينبهنا أنه يوجد خلل في التطابق (الشرط) ملاحظة: في الملف المرفق قد احتفظت بألأسماء التي وضعها الأخ في ملفه المرفق الأصلي لهذا نجد الاسم "عمر" مكرر مرتين في كل جدول والاسم "محمد" غير مذكور بن علية ترتيب2.rar

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

السلام عليكم ورحمة الله أخي الكريم الدالة تعمل جيدا في أوفيس 2007، وقد حضرت لك المرفق التالي الذي يحوي ملفين (أحدهما بـ2003 والآخر بـ2007) بهما الكود الخاص بتحويل الرقم إلى نص... وقمت أيضا بتغيير العملة "دج" إلى العملة "ريال" و"سنتيم" إلى "بيسة" (بالنسبة إلى البيسة فهي تقوم بتقريب رقم آحاده -الرقم الثالث بعد الفاصلة- في االمجال [5،0] إلى 0 وفي المجال [9،6] إلى 10)... أنظر الملف المرفق ... ملاحظة: وضع آمان الماكرو اجعله في الوضع الأدنى أخوك بن علية رقم_2_نص.rar

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم أنور، إن العمل في إكسيل 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 وعند تنفيذ الكود سيقوم بتحديد المدى الذي وضعته ويحوي معلومات نصية أو رقمية (دون الصيغ) وحذفها آليا... والله أعلم