بن علية حاجي

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

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

السلام عليكم ورحمة الله يمكن أيضا القيام بتحديث قاعدة البينات في ملف إكسل بوساطة الكود التالي (وهو أفضل وأسهل من السابق) ولكن يجب أن يكون قد تم استدعاء القاعدة أولا كما شرحت سابقا ثم وضع الكود التالي في Workbook Private Sub Workbook_Open() Sheets("Feuil1").Select ' Feuil1 هي الورقة التي تحوي قاعدة البيانات المستدعاة من قاعدة بيانات ملف أكسس Selection.QueryTable.Refresh BackgroundQuery:=False Sheets("نماذج").Select Range("A1").Select End Sub بن علية

السلام عليكم ورحمة الله بالنسبة لتحويل ملفات الوورد إلى PDF أنصح باستعمال برنامج PDF Factory وأقدم لكم النسخة بالرقم السري الذي نسجله بالرقم 2ZZY-EU38-PHBR في خصائص الطابعات نختار الطابعة FinePrint pdfFactory Pro يالنقر يمينا بالفأرة ونختار "خصائص" (أسفل علبة الحوار) ثم نختار "About" وندخل الاسم (أي اسم) والرقم السري ونضغط على Enter Serial Number والآن في أي تطبيق سواء أكان أحد برامج أوفيس أم غيره يكون بالإمكان تحويله إلى PDF ويتم ذلك بفتح الملف ببرنامجه وطباعته بوساطة هذه الطابعة... ولم ألاحظ أنه قد تم وضعه من طرف الأخ "أما بعد" يشكر عليه... كنت قد وضعت الرابط الخاص بالبرنامج وحذفته بعدما وجدت الأخ أما بعد قد وضعه ويمكن تحميله من مشاركته...

السلام عليكم ورحمة الله أهلا أخي وحبيبي هشام، من المفروض أن عملية الحساب والمطلوب هو كل القيم من المجال [25 ، 30[، أي هي القيم الأكبر من أو تساوي 25 والأصغر تماما من 30... (من العادة نعمل بهذه الطريقة بحكم عملي) وفي هذه الحالة كلتا الصيغتين صحيحتين، بالنسبة للأولى لم نختلف فيها إلا في حالة "=" وإذا كان الأخ يقصد القيم الأكبر تماما من 25 والأصغر تماما من 30 فإجابته هي ما قمت بتصحيحه في ردك (نحذف رمز "=" من العلاقة)... بالنسبة للصيغة الثانية : =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<25") والتي هي أيضا صحيحة إلا إذا كانت القيم المطلوبة هي من الجال ]25 ، 30[ فيجب كتابة الصيغة على الشكل التالي: =COUNTIF($F$1:$F$10;"<30")-COUNTIF($F$1:$F$10;"<=25") وعمل هذه الصيغ (الأولى مثلا) يقوم بحساب الفرق بين عدد القيم الأصغر تماما من 30 وعدد القيم الأصغر تماما من 25، فيبقى، بالتالي، عدد القيم التي تنتمي إلى المجال [25 ، 30[ وهو المطلوب.. والله أعلم

السلام عليكم ورحمة الله بالنسبة لتحديث القاعدة يمكن جعلها آلية بمجرد فتح الملف "نماذج" يقوم البرنامج بالتحديث وذلك بواسطة كود يتم تسجيل وربطه بفتح الملف... مثل الكود التالي (قمت بتسجيله من خلال مثال): Private Sub Workbook_Open() Sheets("Feuil2").Select 'اسم الورقة التي نضع فيها القاعدة With ActiveSheet.QueryTables.Add(Connection:=Array( _ "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\Utilisateur\Mes documents\bd1.m" _ , _ "db;Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Passw" _ , _ "ord="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Trans" _ , _ "actions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:D" _ , _ "on't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" _ ), Destination:=Range("A1")) .CommandType = xlCmdTable .CommandText = Array("Table1") .Name = "bd1_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .SourceDataFile = _ "C:\Documents and Settings\Utilisateur\Mes documents\bd1.mdb" 'الاسم bd1.mdb هو قاعدة أكسس التي تحوي البيانات التي تم استدعاؤها ووضعها بداية من الخلية A1 في الورقة feuil1 .Refresh BackgroundQuery:=False End With Sheets("نمادج").Select End Sub بن علية

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

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

السلام عليكم ورحمة الله أخي الكريم جلال أقدم لك في الملف المرفق صيغتين (حلين) أحدهما باستعمال COUNTIF والآخر باستعمال SUMPRODUCT وهناك حلول أخرى.. أخوك بن علية Book1.rar

السلام عليكم ورحمة الله أخي الكريم أنور، إن فهمت عليك تريد أن تظهر ورقتين في ورقة واحدة لكن هل تريدها في الطباعة أم على الشاشة؟؟؟ * على الشاشة: نقوم بتحديد ثم قص الجزء الذي بالأسفل (صفحة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 وإن شاء الله ستجد ما تطلبه... أخوك بن علية