محمد طاهر عرفه

رد للأخ مهند : أشكر الأخ أبو هادي على تفهمه لنواياي ومقاصدي اقتباس الدالة تخرج القيمة صفر ومطلوب تفاديه . Dim Rec2Go As Long DoCmd.GoToRecord , , acLast Randomize Rec2Go = Int(Rnd(-Timer) * Me.Recordset.RecordCount - 1) + 1 DoCmd.GoToRecord , , acGoTo, Rec2Go أنت ترى معي أخي أبو هادي أنني أجمع الرقم واحد إلى Rec2Go لكي أتفادى الصفر .. إلا إذا كان عدد السجلات بالأساس صفر .. وفي هذه الحالة لتلافي حدوث خطأ يجب أن نضع سطر On Error Resume Next

رد للأخ أبو هادي : السلام عليكم أشكر تفهمك وقبولك ملاحظاتي وأود أن أعقب بالتالي : اقتباس 2 - أنا عندي عمل الكود بستعمال Like ... ولكن الأخ فهد أكد أن الكود باستعمال Like لم يعمل المشكلة كانت تكمن في تجاهل الهمزة لأحد طرفي المقارنة مع ترك الآخر والذي من المحتمل أن يحتوي على همزات كذلك ، هذه المشكلة فقط . اقتباس 3 - أظن أن الموضوع لا يحتاج إلى مناقشات .. أي واحد يجرّب في قاعدة تحتوي على أكثر من 1000 سجل يجرب البحث بالأسلوبين ويرى فرق التوقيت يعني أن هذه النتيجة غير موثقة وإنما اكتسبتها من واقع التجربة ، فلذلك كان الموضوع يستحق المناقشة والتأكد ، فكم منا دعته الظروف أن يقوم بمقارنة بين العاملين لألف سجل . اقتباس 6- بدون تعليق الدالة تخرج القيمة صفر ومطلوب تفاديه . اقتباس 8 - معاذ الله أخي أبو هادي أن أكون صغير التفكير .. وما كان أملي أن يكون ظنك فيّ هكذا !! ظني بك خيرا إن شاء الله ولكن أنا أحتاط أن لا أخسرك وأن أبقي عليك معينا وعضيدا . تحياتي .

رد للأخ مهند : في البداية أشكر أخي أبو هادي على متابعته الدؤوبة 1- اقتباس دالة changesearch() لا تحتوي على دالة Trim() : كلامك صحيح .. وأنا كنت غلطان وكنت أظن أني قد وضعتها 2- اقتباس العلة ليست في أداة/عامل Like ولو استبدل الأخ فهد أداة = بأداة Like فسيعمل الكود ولكنك للآن لم تدرك الحل بعد . أنا عندي عمل الكود بستعمال Like ... ولكن الأخ فهد أكد أن الكود باستعمال Like لم يعمل 3- اقتباس لقد قارنت بين أداة Like و (الأسلوب)!!! بدلا من المقارنة بين أداة Like و أداة = معللا أن أداة Like أسرع ونحن نقبل منك إذا دعمته بدليل إن أمكن أظن أن الموضوع لا يحتاج إلى مناقشات .. أي واحد يجرّب في قاعدة تحتوي على أكثر من 1000 سجل يجرب البحث بالأسلوبين ويرى فرق التوقيت 4- اقتباس يوجد بالدالة الثانية دالة InStr() وكان بالإمكان استخدام أداة Like إلا إذا كانت InStr() أسرع ؟ ، آمل التوضيح . التوضيح أني بالأساس مبرمج VB .. لذلك فإن ارتباطي بتعليمة InStr أكثر يعني متعوّد عليها ، كما أنه إذا سلّمنا بوجود مشكلة بعامل Like يغدو استعمال Instr أفضل في هذه الحالة 5- الدالة في القرآن الكريم لم أطّلع عليها بعد 6- بدون تعليق 7- اقتباس لولا طلب الأخ فهد مني التدخل لما تدخلت لما رأيت منك سابقا من حساسية زائدة من تداخلات الآخرين . أخي أبو هادي أنا آسف جداً إذا بدى من ردودي أنني متحسس من تدخلات الآخرين .. إذا كان هذا ما أحسست به فأرجو أن تقبل اعتذاري الشديد لأني - والله على ما أقوله وكيل - ليس عندي أي مشكلة من تدخلات تالآخرين ولا وجود لأي تحسس عندي من أي كان بالعكس فأنا أفرح عند تدخل الآخرين .. لأن كثرة الحوار بها الفائدة 8- اقتباس آمل ردي هذا أن لا يمنعك من مواصلة المساهمة في برنامج مشروع القرآن الكريم معاذ الله أخي أبو هادي أن أكون صغير التفكير .. وما كان أملي أن يكون ظنك فيّ هكذا !! تحياتي للجميع

السلام عليكم عذرا حدثت مشكلة ، و فقدنا بعد المواضيع المضافة حديثا ، و سأرفقها تباعا باذن الله ، و يرجي تنبيهي الي الردود الناقصة ، أو اضافتها ثانية مباشرة ان كانت متاحة

مرفق مثال يعتمد علي تغيير مصدر بيانات النموذج الفرعي FiltreByCombo.rar

السلام عليكم أخي جمال المنتدي الجديد المخصص لهذا الغرض يجوي قسمين http://www.officena.net/League الاول للمناقشة التفصيلية للفوائد العائدة من التجمع ، و بلورتها بعد اتاحة الفرصة لعرض جميع وجهات النظر و الثاني للتسجيل بصفة مبدئية للمهتمين بوجود تجمع واقعي

يبدو أن المشكلة ليست فى الدالة المطبقة في مشروع القرآن أو فى موضوع البحث هنا http://www.officena.net/ib/index.php?showtopic=1912 http://www.officena.net/ib/index.php?showtopic=857 و الامثلة يتم فيها فعلا تجاهل موضوع الهمزة ايضا المثال الذي أضافه الأخ مهند يعمل تماما جرب اعادة ترتيب المراجع الموجودة فى المثال عندك أيضا جرب استبدال الحروف العربية فى الكود ، بال asci code المناظر كما فى الموضوع المشار اليه عاليا فاحيانا مع بعض النسخ يحدث مشاكل مع وجود حروف عربية وسط الكود احيانا يفي اعادة الترتيب للمراجع فى الاكسيس بحل بعض مشاكل شبيه و لكن اذا كانت مشكلة مراجع ، فسيتوقف الكود عند الدالة المعنية اذا عملت Debug فجرب عمل debug أولا ثم اعادة الترتيب و اذا لم يتم عمل الكود بعد هذا كله فجرب تحميل فيجوال بيزيك الاصدار السادس علي الجهاز ، فأحيانا تكون بعض المكتبات فى حاجة الي تحديث و يقوم تحميل الفيجوال بيزيك الاصدار السادس بحل هذه المشاكل

اذا كانت المعادلة فى الخلية A4 مثلا =IF(MOD(A4,INT(A4))=0,TEXT(INT(A4),"0"),TEXT(A4,"0.00")) مع مراعاة موضوع الفاصلة و الفاصلة المنقوطة بحسب الاعدادات لديك

هل تقصد ISO في هذه الحالة نسخها الي سي دي يتوقف علي نوع برنامج النسخ الذي تستخدمه فمثلا لو النيرو تختار Burn image to disk

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

أيضا هذا موضوع مرتبط بخصوص دقة الاراقام المنقولة فى حالة وجود معادلات فى مصدر البيانات فى الاكسيل تقريب الارقام فى ناتج الدمج البريدي من وورد لاكسيل http://www.officena.net/ib/index.php?showtopic=3221

السلام عليكم جميل جدا بالنسبة للفاصلة و النقطة ، هذا يعتمد علي اعدادات لوحة التحكم فى الجهاز مع تحياتي

وجدتها :d لنفرض أن المعادلة المحسوبة فى الاكسيل التي تريد دمجها موجودة ىف الخلية D3 قم باضافة عمود جديد فى الاكسيل لتحويل القيمة الي نص =TEXT(D3,"0.00") ثم ادمج القيمة الجديدة الي الوورد و ليس الاصلية

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

لنفرض أنك تريد تسجيل تاريخ اليوم فى العمود B بعد تعديل أي قيمة فى كل سطر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then If Range("B" & Target.Row) <> Now Then Range("B" & Target.Row) = Now End If End Sub adddateToColBonchange.rar

بما أن الخلايا فى الاكسيل معادلات و ليست أرقام ، فجرب الاتي جرب اضافة الدالة round اليها فلو كانت المعادلة مثلا =+C6/D6 فحولها الي =ROUND(C6/D6;2) و استبدل ال 2 بالارقام العشرية التي تريد

المثال المعدل GrageCountIF-array.rar

كان يوجد خطأ لدي فى التطبيق و هو الاشارة الي ملف net.exe الخاص ب 98 فى جدول ال path بينما أنا فى اكس بي و بتعديل القيمة الي نفس المسار الي الملف الخاص بالاكس بي ظهرت النتيجة سليمة فى ملف النص المسمي MACLIST و لكن الكود يعمل بنجاح و يعطي أسماء الاجهزة ووصفها فى ملف النص و لا تظهر بالنموذج استدراك : و باعادة الكود الي اصله قبل التعديل الاخير ، يعطي النتيجة سليمة (y) ملاحظة بسيطة أنه عند التشغيل للنموذج لاول مرة أعطاني فقط بعض الاجهزة ( عدد 5 فقط من اجمالي يقارب المائة ) ، و لكن بتشغيل النموذج ثانية اعطي كل الاجهزة المفتوحة و لكن لم يحدث ذلك ثانية عند التجربة لمرات لاحقة ، و أعطي النتيجة سليمة من أول مرة كود ممتاز جدا ، مع الشكر و التحية

و لتنفيذ اعادة ادخال القيم فى الخلايا المختارة دفعة واحدة راجع هذا الموضوع إعادة إدخال القيم فى الخلايا المختارة

جميل فكرة اعادة التفعيل باضافة صفر و اذا أردنا تنفيذ اعادة التفعيل ( إعادة ادخال القيم ) علي الخلايا المختارة ، دون التدخل فى التنسيق نزيل سطر التنسيق فقط Sub Reenter_values() Dim MyRow As Double, Z As String MyRow = Selection.Rows.Count For j = 1 To MyRow Z = ActiveCell.Value ActiveCell.Cells.FormulaR1C1 = Z ActiveCell.Offset(1, 0).Activate Next j End Sub

السلام عليكم أهلا بك فى الاكسيل قم بتنسيق الخلايا علي أنها برقمين عشريين ثم Tools options calculations precision as dispalayed و قد تحتاج الي اعادة ادخال الارقام فى الاكسيل ، أو ضغط F2 فى الخلايا اذا لم تظهر بالتنسيق المطلوب و يوجد بالمنتدي فى مشاركة سابقة ماكرو يقوم بذلك اذا كان عدد الخلايا كبيرة ( اعادة ادخال البيانات )

لفتح التقرير علي السجل المفتوح فى الفورم اذا كان الحقل الذي يصنف السجل رقمي DoCmd.OpenReport "REPORTNAME", acViewPreview, , "[ID]=" & forms![Forname]![TXTBOXNAME] واذا كان نص DoCmd.OpenReport "REPORTNAME", acViewPreview, , "[ID]='" & forms![Forname]![TXTBOXNAME] & "'" و طبعا من الجميل تقسيم الجملة الي متغيرات كما فى مشاركتك ، مع مراعاة نفس الشروط و يوجد أمثلة بقسم التقارير بخلاصة مشاركات الاكسيس

و هنا يوجد شرح للجداول المحورية

ملاحظة : المثال الرابع يخص درجات الطلاب و التقدير التلقائي فى الإكسيل بعدة طرق مختلفة

أولا يرجي مراجعة قواعد المشاركة ( تم تعديل العنوان) :( ----------------------- ثانيا : مرفق مثال للتطبيق بطريقتين باستخدام كل من : countif و هنا تم الاحصاء فقط للدرجات التي هي أقل بدرجات معينة و تم الحصول علي فرق الاحصائيات بالطرح arrayformula و هنا تم الاحصاء للدرجات التي هي أقل بدرجات معينة و أيضا للدرجات بين رقمين معينين مباشرة ----------------------- ثالثا : فى هذا الموضوع يوجد تطبيق لنفس الطلب بطريقة أكثر تقدما باستخدام الكود و الجداول المحورية ( المثال الثاني فى الموضوع )الموضوع من هنا و هنا يوجد شرح للجداول المحورية ----------------------- رابعا : بصفتك مدرس ، سيهمك أيضا المثال الاول فى هذا الموضوع المشار اليه سابقا و هنا شرح له فى أربعة دروس مع المثال: الموضوع من هنا ----------------------- المثال المبسط : المشار اليه فى ثانيا ، تم حذفه لاضافة نسخة مطورة فى مشاركة لاحقة مع تحياتي