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

الدالة الاولي لم تكن أيضا مجهزة للسالب فقمت بتعديلها سريعا و مرفق مثال لتطبيقها فأرجو التجربة مع ملاحظة أن التقريب للرقم كله و ليس للكسر فقط و هذا لن يحدث فرقا فى التقريب الي 0.25 أو 0.5 أو 1 و لكن سيحدث فرق مثلا اذا قربنا الي درجة 0.35 فسيكون للرقم الصحيح تأثير فى التقريب أرجو التجربة و اخباري بالنتيجة و هل أدت الغرض أم لا و هل أداؤها سليم أم لا لأعدلها Function ROUNDTO(MYNO As Double, MyFraction As Double) ' to round up or down with a certain value Dim MYBASE As Double, MYREM As Double If Abs(Round(MyFraction, 2)) <= 0 Then ROUNDTO = MYNO Exit Function End If Dim neg As Boolean neg = False If MYNO < 0 Then neg = True MYNO = Abs(MYNO * 100) MyFraction = MyFraction * 100 MYREM = MYNO Mod MyFraction 'MsgBox "rem : " & MYREM MYBASE = MYNO - MYREM 'MsgBox "Base : " & MYBASE If MYREM > 0 Then If MYREM > MyFraction / 2 Then ROUNDTO = MYBASE + MyFraction Else ROUNDTO = MYBASE End If Else ROUNDTO = MYNO End If ROUNDTO = ROUNDTO / 100 If neg = True Then ROUNDTO = -ROUNDTO End Function

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

السلام عليكم يمكنك تطبيق مثال الأخ حارث وابو هاجر ولكن .. مع تعديل استثناء السجل الحالي مثلا فى مثال الاخ حارث =DSum("[price]";"[table2]";"[num1]<=[forms]![MForm1]![TSForm1]![num1]") تصبح =DSum("[price]";"[table2]";"[num1]<[forms]![MForm1]![TSForm1]![num1]") و أيضا اضافة شرط الاسم الي جزء الشرط فى معادلة ال Dsum اذا أردت التراكمي السابق لكل شخص علي حدة

ما أنصحك به هو الاحتفاظ بالنسخة ذات واجهة التطبيق الانجليزية :) فاذا كانت لا تلزمك فأزلها و حمل العربية مع تحياتي

شكرا أخ حسام و أنا فى الانتظار :)

أهلا بك التفقيط فى الإكسيل تفقيط عربي انجليزي محدث تم اضافة 3 تطبيقات الي قسم التطبيقات الخدمية مشكلة في التفقيط ورحلة البحث عن حل

بالنسبة لاوفيس 2003 فالنسخة الرسمية لم تصدر بعد و الحديث فى المواضيع السابقة عن النسخة التجريبية Beta version و قد تفضل الأخوة بذكر بعض الفروق بينها فى مواضيع سابقة فى هذا القسم و للمزيد http://www.microsoft.com/office/Preview/ed...ons/default.asp أاما عن الاكس بي ، فهناك ثلاث أنواع من اسطوانات الاوفيس - بواجهة التطبيق العربي - بواجهة التطبيق الانجليزية - بواجهة التطبيق الانجليزية مع اسطوانة تعريب و أعتقد أن الاولي هي الاكثر ثباتا و أقل مشاكلا ، فاذا كانت هي التي لديك ، فللتعريب لابد من تحميل الثانية أيضا ، و حينئد سيظهر لك خيار لتبديل لغة الواجهة بين النسختين و هذه نسب المقارنة بين عدد مستخدمي النسختين ( و ياريت تشارك فى التصويت :) ) من هنا و أرجو مراحعة قواعد طرح المشاركات أعلي المنتدي من حيث العنوان و عدم طرح موضوعان فى موضوع واحد و أهلا بك مع تحياتي

السلام عليكم ذكرت انك تستخدم الطريقة ، اذا فلا توجد مشكلة فيها فما فهمته انك تريد شرح العبارة التالية و يتم ذلك بعمل Dcount لرقم السجل الذي تم اختياره عن طريق Dmax عند فتح النموذج . فاذا كان = صفر يتم التسجيل و اذا كان تم حفظه بواسطة مستخدم آخر ، فستقوم dcount باعادة قيمة أكبر من صفر فتضيف واحد و تكرر الي أن تعيد صفر فتحفظ السجل اذا لم يكن هذا الكلام واضحا فأخبرني لأضع مثال مع تحياتي

غريبة لا الاول و لا الثاني و لا الثالث تم فك ضغطهم معي !! هل فكيت الملف أخي أمير ..؟؟

الملف لم يفتح معي هل فتح الملف مع أحد الأخوة ؟؟

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

مثال علي شرط واحد بالارشيف أمثلة علي دوال الجمع - عائلة sum و بالنسبة للشرط المزدوج لم تنجح اولي محاولاتي معه ، و لكن ، لا أري ما يمنع من المحاولة ثانية ، ربما يحتاج الي طريقة معينة فى كتابة الصيغة ، و لكن فى كل الاحوال الشرط المزدوج سيكون علي نفس المجال و ليس علي مجال آخر و الحل المؤقت فى محاولة تكوين خلية جديدة تعبر عن الشرطان معا و يتم استخدامها فى المعادلة

استعلام انشاء جدول من هنا و المثال : Q7.rar

و يوجد مثال فى قسم خلاصة مشاركات الاكسيل فى هذا الموضوع طرق مختلفة للتقريب و المتغيرات في الدالة هي الرقم المطلوب تقريبه ثم درجة التقريب و التي هي هنا 0.25

مرفق ملف به أغلب اختصارات الاكسيل و هو بالانجليزية ، و قد جمعته من فترة و بدأت فى اعداد الملف المعرب و لكن مع تأخري فى ذلك ساضعه نصف معرب به ورقة عمل للاختصارات بالانجليزية و الاخري نصفها معرب ياريت تراجعوه و لو فيه تصليح اخبروني Keys2.rar

شكرا لك ، و أهلا بك فى المنتدي

أهلا باخونا أبو هاجر ، و لا تغيب عنا :d تصورت أن الموضوع نجح :cry: هل استخدمت برنامج البيزيك الذي أشار اليه الأخ المزيني سابقا ؟؟؟ عموما ، ما فعلته انا هو استخدام كود تصغير النافذة مع الكائن المفتوح ( النموذج ) ، بالاضافة الي كون النموذج مخفي ككائن . و تصورت أن كونه مخفي و مصغر سيحميه من محرر البيزيك . أي الاضافة الي المحاولات السابقة هي كون الكائن أيضا مخفي و لكن يبدو أن هذا لم يؤثر :( عموما لنستمر فى المحاولة ، و اتمني ان نصل الي حل مع الشكر للأخ أبو هاجر

شكرا للأخ أبو أحمد علي المثال الجميل :)

أخي الكريم أرجو اتباع قواعد المشاركة فى المنتدي و عدم توجيه السؤال الي شخص او أشخاص و أن يكون عنوان الموضوع دال علي محتواه ( أرجو مراجعة القواعد ) حسب ما فهمت أن الموضوع كله فى نموذج واحد أي لا يوجد نموذج فرعي لذلك أحد الحلول هو استخدام خاصية Filter للنموذج Private Sub Combo10_AfterUpdate() Me.Filter = "TblEmployee.country=Forms![TblEmployee]![Combo10] " Me.FilterOn = True End Sub مرفق المثال FilterByCombo.rar

فعلا أخي أبو هادي ، ساوجه لهما الدعوة مساء باذن الله علي البريد الأخوة الكرام : اعتقد أن الاحد القادم فترة كافية للمحاولة ، بعدها باذن الله ساضع شرح ما فعلته ( و هو ليسي بمعقد ) و لكن شرحه ربما يؤدي لاكتشاف طريقة للتغلب عليه قد لا تخطر ببال من يحاول دون معرفته . :pp: الأخ saud100 الصورة لم تظهر معي

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

أشكرك أخي أبو هادي الأخ حسام معني أنها عملت معك مباشرة ، هو أن المجال المحدد ليس به قيم خالية Null أو Blank فالتطبيق السليم لها لابد معه من ضغط ال 3 أزرار و لكي تتأكد من ذلك ضع المعادلة فى خلية فى نفس صف المجال المحدد و لتكن D4 مثلا فى هذه الحالة ثم امسح القيمة فى A4 ( الخلية من ضمن المجال فى نفس الصف الذي به المعادلة ) و راقب ماذا يحدث ثم حرر الخلية كما سبق و اضغط ال 3 أزرار ستعمل المعادلة برغم وجود ال Null

لنفرض أنك تريد الحد الادني للخلايا A1:A9 مع اهمال الصفر اكتب المعادلة التالية =MIN(IF(A1:A9>0;A1:A9;"")) ستعطيك خطأ قف في الخلية و اضغط F2 أو ضع المؤشر فى الشريط التحرير العلوي ( أي اجعل الخلية فى وضع التحرير ) ثم اضغط CTR+shift+Enter و هذا ما يسمي بال array formula اي التعامل مع مجال أو مصفوفة فى المعادلة و ليس خلية و لادخاله فى الخلية لا نضغط Enter و لكن CTR+shift+Enter

مرفق مثال ComboGoTo.rar

شكرا لك أخي الكريم لم ترد علي استفساري بخصوص الاسم ؟؟