الرجاء بمساعدتى بتحويل هذة المعادلة الى كود

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

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

ولسيادتكم جزيل الشكر 

مرفق ملف موضح به المطلوب

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

[أبو إيمان]

السلام عليكم

تفضل أخي المرفق كحل مبدائي إلى حين التطوير من قبل الأساتذة

الكود الموجود بالملف خاص بالأستاذ العلامة عبدالله باقشير

 

 

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

[فضل حسين]

اخى العزيز / ابو ايمان

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

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

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

فأنا وللاسف اريد معرفة كيفية تحويل هذة المعادلة وبالذات الى كود لانى حاولت فيها كثير لتحويلها الى كود وفشلت . فاريد ان اعرف واتعلم .

اشكرك اخى العزيز مرة اخرى ولكن اعذرنى ليس هذا هو المطلوب .

 

 

[أبو إيمان]

إليك هذا الملف وهو من تصميم العلامة القدير عبدالله باقشير أيضا وقد يفيدك في حلك

محول المعادلات السريع.rar

[فضل حسين]

اخى الفاضل / ابو ايمان

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

شكر ياحبيبى 

ولكنى مازلت فى حاجة الى كود يكتب بداخله هذه المعادلة على شكل كود بشكل اوضح وابسط ومفهوم .

كل التقدير والاحترام والاجلال لشخصكم الكريم 

[أبو إيمان]

أخي الفاضل 

جزاكم الله خيرا على كلماتك الرقية الطيبة 

ومبدئيا وعلى حسب علمى البسيط أقدم لك معادلات أول صف من خلال الكود  وسوف يتم إن شاء الله توظيفها لتتم بشكل تلقائي داخل الملف إن أمكن

والله الموفق

هذة الطريقة البدائية تتيح لك إدخال البيانات في أول صف

   Range("C2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C3,RC2,1))))))>0,R1C3,"""")"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C4,RC2,1))))))>0,R1C4,"""")"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C5,RC2,1))))))>0,R1C5,"""")"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C6,RC2,1))))))>0,R1C6,"""")"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMPRODUCT(--((N(ISNUMBER(SEARCH(R1C7,RC2,1))))))>0,R1C7,"""")"
    Range("G3").Select

[الخالدي]

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

بعد اذن الفاضل أبو إيمان

جرب الكود التالي

Sub AL_KHALEDI()
Dim S As Range, C As Integer, R As Long
Application.ScreenUpdating = False
With Range("C2:G11")
.ClearContents
For Each S In .Cells
C = S.Column
R = S.Row
If Not IsError(Application.Search(Cells(1, C), Cells(R, 2))) Then
S.Value = Cells(1, C).Value
End If
Next S
End With
Application.ScreenUpdating = True
End Sub

في امان الله

[أبو إيمان]

أستاذنا الخالدي جزاكم الله خيرا 

ولا يوجد إذن لمعلم من تلميذ 

وأنا أعلم أن طريقتي بدائية لتوفير الحل ولكنني كنت أنوي تعديلها اليوم 

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

[فضل حسين]

الخالدى باشا

ساحر الاكسل

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

ايه الجمال ده ياباشا. تسلملنا ياباشا وتسلم حلولك وابداعاتك 

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

والله ياباشا مهما قلت لن اوفيك حقك  فانت بحق الخالدى باشا ساحر الاكسل 

ولكن ياباشا اسمحلى بسؤال يفرض نفسه واسمحلى ان اعرضه عليك

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

هذا سؤال . ولا لايمكن كتابة المعادلات المتداخلة بنفس شكلها فى الكود .

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

الف شكر 

 

 

 

 

[رجب جاويش]

السلام عليكم

بعد إذن إخوتى الأفاضل

هذا كود آخر

Sub ragab()
Application.ScreenUpdating = False
[C2:G11].ClearContents
For i = 2 To 11
MyArr = Trim(Cells(i, 2))
    For Each cl In [c1:G1]
       x = UBound(Filter(Split(MyArr, ","), cl)) + 1
       If x > 0 Then Cells(i, cl.Column) = cl
    Next
Next
Application.ScreenUpdating = True
End Sub

[أبو إيمان]

دائما تبهرنا بأعمالك أستاذي رجب جاويش جزاكم الله خيرا

[رجب جاويش]

أخى الحبيب / أبو إيمان

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

[عبدالله باقشير]

السلام عليكم

 

الشكر واصل لجميع المشاركين حفظهم الله

 

تم تبسيط وتعديل المعادلة لتصبح معادلة واحدة لجميع الجدول

 

هذه المعادلة:

=IF(ISNUMBER(SEARCH(C$1;$B2;1));C$1;"")

وهذا الكود لتحويل المعادلة الى قيمة للجدول

Sub Macro1()
With Range("C2:G11")
    .FormulaR1C1 = "=IF(ISNUMBER(SEARCH(R1C,RC2,1)),R1C,"""")"
    .Value = .Value
End With
End Sub

تحياتي

[فضل حسين]

العلامة الكبير / عبدالله باقشير

الاستاذ الفاضل / رجب جاويش ( نجم الاكسل )

بالطبع حلول رائعة من اساتذة كبار تشرفت بمشاركتهم 

تعلمت من خلال مشاركتكم الكريمة الكثير ومازلت اتعلم من سيادتكم

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

داعين لكم دوام الصحة ومزيد من العلم والرقى

سعدت جدا بمشاركتكم فكانت مشاركات مثمرة

جزاكم الله خير وبارك الله فيكم

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

تلميذكم 

فضل 

 

[رجب جاويش]

أخى الحبيب / فضل

جزاك الله كل خير على هذه الكلمات الطيبة