اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخواني جزاكم الله عني كل خير

هل يمكن تحويل عمل الدالة sumif لتعمل بواسطة الكود ويتوقف عملها عند رفع مستوى امان الماكرو

ولكم جزيل الشكر

قام بنشر (معدل)

اخي الكريم جزاك الله كل خير وانا اشكرك على مجهودك جعله الله في رصيد حسناتك

لكني اريد عمل الدالة sumif وليس countif وتعمل تلقائيا دون استخدام زر امر لذلك كما في المثال المرفق

تحويل عمل الدالة sumif لكود vba.rar

تم تعديل بواسطه amir501
قام بنشر

اخي الكريم اشكرك من كل قلبي على هذا التجاوب السريع

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

وجزاك الله كل خير على مافعلت وجعله في رصيد حسناتك

اخوك عامر

قام بنشر

اخي الكريم اشكرك من كل قلبي على هذا التجاوب السريع

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

وجزاك الله كل خير على مافعلت وجعله في رصيد حسناتك

اخوك عامر

المساعدة ايها الاخوة ...... ياخوان امكن وضع الناتج في الصفحة الثانية وليس بنفس الصفحة التي تحوي مجالات العملية الحسابية

قام بنشر

اخي الكريم اشكرك من كل قلبي على هذا التجاوب السريع

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

وجزاك الله كل خير على مافعلت وجعله في رصيد حسناتك

اخوك عامر

المساعدة ايها الاخوة ...... ياخوان امكن وضع الناتج في الصفحة الثانية وليس بنفس الصفحة التي تحوي مجالات العملية الحسابية

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

فقد قمت بتسمية 4 نطاقات هم على التوالي myCriteria وفية العنصر الذي سنقم بالجمع على اساسة والمدى myRange فية نطاق الاسماء التي ستعد , والمدى SumIfRange وفية القيم التي ستجمع والمدى الاخير mysumif وفية سيوضع قيمة المخرجات وبالتالي يمكن تغيير المدى كما تريد لاي مكان ولتطبيق الكود يمكن وضعة باي صفحة تريد في حدث تحديث الصفحة مثلا" ارجو ان اكون قد افدتك ولو بالقليل

تقبل تحياتي في انتظار اي استفسار

تحياتي.

قام بنشر

اخي abc_abc_196

الفكرة رائعة ، قمت بتجربتها وزيادة المدى ولاحظت انه لا يشمل الجمع محتوى السطر الاخير اذا كان هو ضمن المعني بالجمع مالم يليه سطر اخر مختلف عنه ، بمعنى انك لو اردت جمع الـ aa وكان اخر سطر مدون به 100 aa مالم تدرج اسفله مثلا 10 abc

وقتها ستدخل 100 aa من الجمع .

جرب ، وفدنا بطريقة تجاوز هذه العقبه .

وتسلم ايديك

قام بنشر

اخي abc_abc_196

الفكرة رائعة ، قمت بتجربتها وزيادة المدى ولاحظت انه لا يشمل الجمع محتوى السطر الاخير اذا كان هو ضمن المعني بالجمع مالم يليه سطر اخر مختلف عنه ، بمعنى انك لو اردت جمع الـ aa وكان اخر سطر مدون به 100 aa مالم تدرج اسفله مثلا 10 abc

وقتها ستدخل 100 aa من الجمع .

جرب ، وفدنا بطريقة تجاوز هذه العقبه .

وتسلم ايديك

اخي new4a لم تصل لي مشكلتك بالظبط ولكن لتوضيح الفكرة المدى متغير فاذا كنت تعمل على الملف الخاص بي فلن يكون هناك اي مشكلةفكل ماهوداخل المدى سيتم حسابة الا اذا قمت باضافة عنصر للمدى myRange تاركا خلية فارغة بينة وبين العنصر الذي قبلة

اما اذا كنت طبقة الفكرة على ملف خاص بك فلاحظ معي انني قد حدد المدى myRange مطروح منة 1 كي استبعد اسم النطاق في ملف الاكسيل بالخلية G1 وقد جربت وقمت بسحب المدى حتى الصف 112 ولم اجد مشكلة تابعنياو ارفق المشكلة التي لديك

تقبل تحياتي

قام بنشر

الاخ / abc_abc_196

عمل جميل و الله بسم الله ما شاء الله

بارك الله فيك اخي واشكركعلى كلماتك الجميلة والله من وراءالقصد من هذا العمل الذي لا يتجاوز قطرة في بحر رجال هذا المنتدى الجميل

تحياتي للجميع وتمنياتي بدوام التوفيق

قام بنشر

السلام عليكم

استاذ abc_abc_196

ما شاء الله لا قوة إلا بالله

كود متقن وائع ،،،

ومشاركة متميزة ،،،

أحييك يا أخي ،،،

وزادك الله علماً ونوراً

مودتي وتقديري

قام بنشر

السلام عليكم

استاذ abc_abc_196

ما شاء الله لا قوة إلا بالله

كود متقن وائع ،،،

ومشاركة متميزة ،،،

أحييك يا أخي ،،،

وزادك الله علماً ونوراً

مودتي وتقديري

اشكر لك اخيziad ali كلماتك الرقيقة عسانا جميعا على الدرب رفقاء نشد بعضنا بعضا نتقاسم المعرفة لنرقى ببعضنا البعض عسى ياتي يوم نعود كما كنا عوالم في سماءالدنيا

ارق تحية اخي

قام بنشر

اخي الكريم تم ارفاق ملف للتوضيح

اخي العزيز اعتقد انك لا تحتاج لمعادلة sumif في ملفك اطلع على التعديل المرفق عسى ان يكون هو ماتريد

تحياتي

اخي الكريم الحمد لله الذي انعم عليك بهذا العلم جعلة الله نور لك في دنياك واخرتك واثقل الله به موازينك .

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

تقبل شكري وامتناني اخي الكريم

قام بنشر

اخي الكريم تم ارفاق ملف للتوضيح

اخي العزيز اعتقد انك لا تحتاج لمعادلة sumif في ملفك اطلع على التعديل المرفق عسى ان يكون هو ماتريد

تحياتي

اخي الكريم الحمد لله الذي انعم عليك بهذا العلم جعلة الله نور لك في دنياك واخرتك واثقل الله به موازينك .

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

تقبل شكري وامتناني اخي الكريم

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

اما اذا كنت تريد حركة مخزن بمعنى مشتريات ومبيعات الخ فلا مشكلة اعلمني ووان شاء الله سوف اساعدك على قدر المستطاع

واخيرا اشكرك على كلماتك جميلة وفقنا الله جميعا لطاعتة

اخوك abc

قام بنشر

الاخ الكريم abc بارك الله فيك بداية على هذا العمل الرائع من خلال ردود كل الاخوة ، لانني الملف لااخير الذي قمت بارفاقه لم يعمل معي ، يعني عندما فتحت الملف طلعلي رسالة الامان فقلتله ديرله انيبل يعني تصريح ، ولكن لم اجد شيئا وجدت الجدول الذي به رقم 16 تحت sumif ولكن لم اجد ماكروا او اي كود اخر هل من توضيح لذلك ولك جزيل الشكر والعرفان

اخوك انور من ليبيا

قام بنشر

الاخ الكريم abc بارك الله فيك بداية على هذا العمل الرائع من خلال ردود كل الاخوة ، لانني الملف لااخير الذي قمت بارفاقه لم يعمل معي ، يعني عندما فتحت الملف طلعلي رسالة الامان فقلتله ديرله انيبل يعني تصريح ، ولكن لم اجد شيئا وجدت الجدول الذي به رقم 16 تحت sumif ولكن لم اجد ماكروا او اي كود اخر هل من توضيح لذلك ولك جزيل الشكر والعرفان

اخوك انور من ليبيا

بارك الله في كلماتك اخي

اما بالنسبة للكود فهو موجود في sheet1 في حدث Private Sub Worksheet_SelectionChange(ByVal Target As Range)

امالمشكلة التشغيل فضع مستوى الامان للمكرو في ادنى درجة ثم اغلق الاكسيل وافتحة مرة اخرى

تحياتي اخي

قام بنشر (معدل)

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

اخوك انور

تم تعديل بواسطه anur.mertah85

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information