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

[المهندس احمد]

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

 

لديه مسألة في ورقة العمل لديه

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

واجعلها في زر يكتب على تحديث وعند الضغط عليه كأنما عملت سحب للمعادلة للأسفل 

بسبب المعادلات هذي ثقلت لي الشيت جداً

 

لتوضيح اكثر سوف اكون متشرف بأي شخص يمكنه مساعدتي في هذا الموضوع

=IF(J2008="S",SUMIFS('قاعدة البيانات التسليم'!$I:$I,'قاعدة البيانات التسليم'!$A:$A,الطلبيات!A2008,'قاعدة البيانات التسليم'!$G:$G,الطلبيات!I2008,'قاعدة البيانات التسليم'!$H:$H,الطلبيات!K2008),IF(الطلبيات!J2008="M",SUMIFS('قاعدة البيانات التسليم'!$J:$J,'قاعدة البيانات التسليم'!$A:$A,الطلبيات!A2008,'قاعدة البيانات التسليم'!$G:$G,الطلبيات!I2008,'قاعدة البيانات التسليم'!$H:$H,الطلبيات!K2008),IF(الطلبيات!J2008="L",SUMIFS('قاعدة البيانات التسليم'!$K:$K,'قاعدة البيانات التسليم'!$A:$A,الطلبيات!A2008,'قاعدة البيانات التسليم'!$G:$G,الطلبيات!I2008,'قاعدة البيانات التسليم'!$H:$H,الطلبيات!K2008),0)))

 

[احمد عبدالحليم]

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

ضع ملف اكسل به بيانات ولو شبيه بملفك الأساسي  حتى يتم مساعدتك بشكل صحيح

تقبل تحياتى

[محمد يوسف ابو يوسف]

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

اخي احمد الطرفاوي

تفضل

       Sub tast()
       Dim ws As Worksheet
        Set ws = ThisWorkbook.Worksheets("Sheet1")
        ss = ws.Cells(Rows.Count, 1).End(xlUp).Row
         k = 0
         For Each C In ws.Range("A2:A" & ss)
                If C > 1 Then
          ws.Cells(C.Row, 2).Value = "ضع المعادلة هنا"
            k = k + 1
        End If
    Next C
End Sub

 

[المهندس احمد]

 

لديه مسألة ماف العمل

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

( مثال تحديد الخلية وسحب وضغط بزر الماوس نقرتين للعمل المعادلة في جميع الخلايا التي تحتوي على بيانات )

واجعلها زر  بأسم ( تحديث ) وعند الضغط عليه كأنما عملت سحب للمعادلة للأسفل ويقوم بتحديث كافة المعلومات أوتماتيكياً

السبب :- المعادلات هذي ثقلت لي الشيت جداً

لتوضيح اكثر سوف اكون متشرف بأي شخص يمكنه مساعدتي في هذا الموضوع

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

ووضعت خلفية حمراء على العمود الموجوده به المعادلات

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

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

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

لو في استفسار اكثر انا تحت حضراتكم

Book2.xlsm