اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

استبدال دالة sumif بال VBA ارجو المساعدة


mselmy
إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

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

29 دقائق مضت, سليم حاصبيا said:

أي صنف تزيده او تعدل قيمته يظهر في النتيجة

طيعاً بعد تنفيذ الكود بالضغط على الزر

ملاحظة الكود يتوقف عن العمل عند اي صف فارغ في شيت الاصناف لذلك لا تترك اي فراغ بين البيانات

و اذا اردت حذف صنف من الاصناف عليك حذف (الصف او الصفوف) بالكامل 

لا لزوم لترتيت الاصناف لان الكود لا ينظر الى المكرر مع انه يقوم بجمع القيم للمكررين مثلا يمكن في اخر صف  ادراج الصنف1 و بعده صنف 50  ثم صنف 4 الخ....

اخي سليم حاصبيا الكود رائع ولا شك بذالك ولكن اضافة الاصناف بالطبيعي تضاف قبل الحركة عليها بصفحة بالمبيعات. وعند اضافة الصنف في صفحة salim يقوم بحذف اسم الصنف مثلا لو ادخلت صنف ٩ وادخلت كامل المعلومات للصنف عند تنفيز الكود يجب اعطائي رقم 0 في العدد المباع ولا يحذف الصنف 

 

تم تعديل بواسطه رامي قلعجية
رابط هذا التعليق
شارك

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

SUM_WITH DICTIONARY - Copy.rar

رابط هذا التعليق
شارك

ما قمت بعمله يؤثر فعلاً 

جرب ان تمسح الصنف 10 مثلا من صفحة الاصناف وقم بتنفيذ الماكرو 

سترى ان الصنف 10  الذي حذفته ما زال في الجدول يصفحة المبيعات

  • Thanks 1
رابط هذا التعليق
شارك

7 ساعات مضت, سليم حاصبيا said:

ما قمت بعمله يؤثر فعلاً 

جرب ان تمسح الصنف 10 مثلا من صفحة الاصناف وقم بتنفيذ الماكرو 

سترى ان الصنف 10  الذي حذفته ما زال في الجدول يصفحة المبيعات

ولكن اخي سليم انا فقط اريد جلب المعومات 

ولا اريد عند حذف صنف من المبيعات ان يتم حذفه من الاصناف لاسباب تتعلق في برنامجي 

ان امكن ذالك ارجو منك فصل اي بيانات تتعلق بذالك حيث يتم فقط جلب البيانات من العدد المباع ولا اريد جلب كَود الصنف بل فقط العدد المباع 

شكرا لك كثيرا اتعبتك معي حاسس حالي اثقلت عليك اسف جدا 

رابط هذا التعليق
شارك

فقط حدد لي اي ورقة هي المصدر للمعلومات واي ورقة هي الهدف (انا لا افهم ما تقصده)

اذ كانت ورقة المبيعات هي الهدف فما الفائدة من تكرار اسماء الأصناف فيها   3 مرات الصنف 1 /  5 مرات الصنف 2  الخ....

يكفي ان تدرج كل صنف من ورقة الاصناف مرة واحدة في ورقة المبيعات وفي حال ادراج صتف جديد تتم اضافته في ورقة المبيعات

  • Thanks 1
رابط هذا التعليق
شارك

ورقة المبيعات بيتكرر فيها الصنف 

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

ورقة الاصناف هي فقط لاداخل فيها صنف جديد 

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

رابط هذا التعليق
شارك

في ١‏/٦‏/٢٠١٩ at 15:39, وجيه شرف الدين said:

انظر الى هذا التعديل لعله يفى بالغرض

التعديلsumif.xlsFetching info...

هل ممكن اضافة تعديل علي الكود بحيث يكون هناك اختيار OK او cancel في msgbox لتنفيذ الكود او الالغاء لانه بيحصل ان ممكن الضغط على زر تشغيل الكود بالخطأ و يتعذر إلغاء تشغيل الكود 

تم تعديل بواسطه Ahmed Saad 2017
رابط هذا التعليق
شارك

  • 2 weeks later...

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

رابط هذا التعليق
شارك

شكرا اخي هاني محمد 

كل الي عملنا مأخدتش النتيجة الي عاوزها 

انا كنت بطلب حاجة وبيتعمل حاجة تانية

على كل احوال 

شكرا لكل الاعضاء واسف 

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

رابط هذا التعليق
شارك

ممكن يكون هذا مثال عما تريد

Sub macro_with_msgbox()
Dim Answer As Byte
Answer = MsgBox(" If You Run This Macro I Can't Undo", 4)

 If Answer = 6 Then
 Rem ++++++++++++++++++++++++
 ' the Macro to Be run for example
 Range("a2", Range("a1").End(4)).Offset(1) = "Ok"
  Rem ++++++++++++++++++++++++
 End If
End Sub

الملف مرفق

Macro_with_Msgbox.xlsm

رابط هذا التعليق
شارك

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