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

اكواد بدل المعادلات2


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

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

Book123.zip

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

اخي الفاضل

جرب وضع الكود التالي في ورقة الوكلاء وجرب التغيير في عمود الوكيل


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set XX = Application.WorksheetFunction

If Target.Column <> 8 Then Exit Sub

If Target.Row < 5 And Target.Row > 300 Then Exit Sub

For i = 5 To 25

Cells(i, 11) = XX.SumIf(Range("E5:E300"), Cells(i, 8), Range("D5:D300"))

Cells(i, 12) = XX.SumIf(Range("U5:U300"), Cells(i, 8), Range("T5:T300"))

Cells(i, 16) = XX.CountIf(Range("E5:E300"), Cells(i, 8))

Next i

End Sub

والكود التالي في ورقة الارصدة وجرب التغيير في عمود المادة
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set XX = Application.WorksheetFunction

Set WS = Sheets("الصادر")

If Target.Column <> 2 Then Exit Sub

If Target.Row < 5 And Target.Row > 300 Then Exit Sub

For i = 5 To 25

Cells(i, 8) = XX.SumIf(WS.Range("Q5:Q300"), Cells(i, 2), WS.Range("R5:R300"))

Cells(i, 12) = XX.CountIf(WS.Range("Q5:Q300"), Cells(i, 2))

Next i

End Sub

ولا حظ هل هذا ما تريده

ابو احمد

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

اخي الفاضل

جرب وضع الكود التالي0000000

ولا حظ هل هذا ما تريده

ابو احمد

اخي الاستاذ " عبد الله " ابو احمد :

روعة ... عمل اعجبني كثيرا واستفدت منه جدا

عذرا ارفقت الاكواد بملف اكسل لعتميم الفائدة

اشكرك

وفقك الله

اكواد بدل معادلات رد ابو احمد.rar

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

السلام عليكم

اخي الحبيب ابو احمد

بارك الله فيك على هذا الابداع المتميز

افكار تحسد عليها وما شاء الله عليك

بارك الله فيك اخي ياسر على هذه المشاركة الفعالة

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

السلام عليكم

اخي الحبيب ابو احمد

بارك الله فيك على هذا الابداع المتميز

افكار تحسد عليها وما شاء الله عليك

بارك الله فيك اخي ياسر على هذه المشاركة الفعالة

اخي واستاذي عماد الحسامي

مرورك شرف كبير لي وكلماتك وسام على صدري

شكراً لتشجيعك

والشكر موصول للاخ ابو الحارث لهذا النشاط في المنتدى

ابواحمد

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

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

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

اخي الفاضل

قم بإزالة هذا الجزء من الكود الاول

If Target.Column <> 8 Then Exit Sub

If Target.Row < 5 And Target.Row > 300 Then Exit Sub
وهذا الجزاء من الثاني
If Target.Column <> 2 Then Exit Sub

If Target.Row < 5 And Target.Row > 300 Then Exit Sub

ولا حظ الفرق

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

استاذنا الكريم مع تقديري ازلت ما نصحتم به ولكن لم يتغير الاجراء تحياتي

اخي الفاضل

تفضل المرفق

تم اضافة الكود في حدث Worksheet_Activate

ان شاء الله تقصد هذا

اكواد بدل معادلات رد ابو احمد.rar

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

تحياتى للجميع

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

هذا الموضوع

والموضوع الأول على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=37972

والهدف من الدمج التيسير على السائل والمجيب وحتى لا تتكرر الموضوعات والاسئلة والردود

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information