بن علية حاجي

السلام عليكم ورحمة الله

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

السلام عليكم ورحمة الله أخي الكريم، إليك الملف المرفق وإن شاء الله يفي بالغرض... أخوك بن علية Book2.rar

السلام عليكم ورحمة الله والمثال التالي في الملف المرفق وباستعمال الكود السابق نفسه بتصرف طفيف (تغيير على الكود) يتم عدّ عدد الخلايا التي تم الكتابة فيها بلون خط معين... أخوك بن علية عدد لون الخط.rar

السلام عليكم ورحمة الله أخي الكريم، بالتأكيد يمكن ذلك وأعطيك مثالا على ذلك (حساب عدد ألوان التعبئة في الخلايا) وهو من عمل أخينا "عبد الله عبد السلام"... الق نظرة على الملف المرفق... بن علية عدد الألوان.rar

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

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

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

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

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