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

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

الحل البديل هو حساب النسب ثم الرسم أي لا نرسم النسب بناء علي جدول به القيم و انما نسحب النسب اولا ، ثم نرسمها ـ فيمكن بذلك استخدام أغلب أنواع الرسومات معها و الPivot Table هو الجدول المحوري مع تحياتي

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

هذا مثال مبسط و به الشرح لتصدير البيانات الي مكان محدد فى ملف وورد يتم انشاءه بناء علي قالب فى مكان محدد و تعتمد الفكرة علي عمل bookmark فى المكان المطلوب التصدير اليه في قالب الوورد ، و من ثم الارسال اليها و الكود أصلا من موقع أجنبي وضعه أحد الاخوة طالبا التعديل فيه ، علي برنامجه ، و هذه هي آخر نسخ التعديل علي برنامجه للتعامل مع الوورد . مع تحياتي sendtoword_abuwaleed_taher_5.rar

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