اريد تحويل دالة SUMPRODUCT الى كود

[basem said]

اريد تحويل دالة SUMPRODUCT الى كود

1.rar

[أبو محمد عباس]

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

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

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

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

[basem said]

استاذ عباس السماوى

شكرا على الكود الممتاز

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

والف شكر على المشاركة

[الـعيدروس]

السلام عليكم

 

 

Public Sub Ali_SumPct()
Dim A1, A2, A3 As Variant
With Application
  .ScreenUpdating = False
  .EnableEvents = False
With ورقة1
 For r = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
   A1 = Evaluate("=SUMPRODUCT((تاريخ>=$F$3)*(تاريخ<=$G$3)*(حالة=""صادر"")*(الاسم = " & .Cells(r, 1).Address(False, True) & ")*(عدد))")
    A2 = Evaluate("=SUMPRODUCT((تاريخ>=$F$3)*(تاريخ<=$G$3)*(حالة=""وارد"")*(الاسم = " & .Cells(r, 1).Address(False, True) & ")*(عدد))")
   A3 = Evaluate("= " & .Cells(r, 2) & "-" & .Cells(r, 3) & "  ")
   .Cells(r, "B") = A1: .Cells(r, "C") = A2: .Cells(r, "D") = A3
Next
End With
 .EnableEvents = True
 .ScreenUpdating = True
End With
End Sub

 

 

تم تعديل يناير 28, 2013 بواسطه عباد

[بن علية حاجي]

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

 

استاذ عباس السماوى

شكرا على الكود الممتاز

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

والف شكر على المشاركة

 

أخي الكريم سعيد، لمسة صغيرة جدا على كود الأخ الحبيب عبد الله لتوقيف نسخ المعادلات عند آخر خلية غير فارغة من العمود A ... أرجو أن يروقك هذا التعديل (البسيط جدا)

 

أخوك بن علية

 

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

[بن علية حاجي]

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

 

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

 

Public Sub Ali_SumPct()
Dim A1, A2, A3 As Variant
With Application
.ScreenUpdating = False
.EnableEvents = False
With ورقة1
For r = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
A1 = Evaluate("=SUMPRODUCT((تاريخ>=$F$3)*(تاريخ<=$G$3)*(حالة=""صادر"")*(الاسم = " & .Cells(r, 1).Address(False, True) & ")*(عدد))")
A2 = Evaluate("=SUMPRODUCT((تاريخ>=$F$3)*(تاريخ<=$G$3)*(حالة=""وارد"")*(الاسم = " & .Cells(r, 1).Address(False, True) & ")*(عدد))")
.Cells(r, "B") = A1: .Cells(r, "C") = A2

 

A3 = Evaluate("= " & .Cells(r, 2) & "-" & .Cells(r, 3) & " ")

.Cells(r, "D") = A3
 

Next
End With
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
 

 

أخوك بن علية

تم تعديل يناير 28, 2013 بواسطه بن علية حاجي

[basem said]

...............استاذ عباد  ......استاذ بن عليه حاجى

 

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

اتمنى لكم التوفيق

مشكورين على اهتمامكم

[حمادة عمر]

السلام عليكم

الي كل الاساتذة المشاركين في الموضوع

الاستاذ / عباد

الاستاذ / بن عليه

الاستاذ / عباس السماوي

 

كل يوم نتعلم منكم شيئأ جديداً ورائعاً

 

جزاكم الله خيرا

[أبو محمد عباس]

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

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

الاخ العزيز والاستاذ حمادة عمر المحترم انت استاذنا ومنكم تعلمنا الكثير  جزاك الله خيرا على هذا التشجيع

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

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

ودمتم في رعاية الله وحفظه

ايقاف الكود عند اخر خلية في العمود A.rar

[basem said]

استاذ عباس

تعديل ممتاز ويحقق الغرض

وشكر خاص للجميع اللذين ساهموا وشاركو

وادعوا لهم بالتوفيق