أسرع طريقة لتحويل أي معادلة إلى كود VBA

[عبد الرحمن الحمصي]

بسم الله الرحمن الرحيم

 

Formula To VBA

 

ضع الماوس على الخلية التي يوجد فيها معادلة معينة وإضغط على بسم الله

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

ثم قم بوضعها داخل كود أخونا الكريم عبد الله باقشير جزاه الله خيرا .

 

الطريقة و الكود في المرفقات

لكم مني أطيب التحيات

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

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير

على ما تقدموه للمنتدى من كل جديد

[أحمد فؤاد]

بارك الله فيك

وجزى الله خيرا لأستاذنا / عبد الله باقشير

[جلال محمد]

اخي عبد الرحمن 

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

[عادل ابوزيد]

السلام عليكم

الدال على الخير كفاعله

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

[عبد الرحمن الحمصي]

أخي ابو حنين

أخي احمد فؤاد

أخي جلال محمد

أخي عادل ابو زيد

 

أشكركم على مروركم الكريم و الشكر لله أولا وللقائمين على هذا المنتدى المميز ثانيا

 

أجمل مافي هذا المنتدى هو تبادل المنفعة و الخبرات و الحماس الجميل و المنافسة الشريفة في حل معظم الأسئلة و الاستفسارات المطروحة

 

تقبلوا تحياتي

[Abo Sufiyan]

بجد اكثر من رائع

[وليد زقزوق]

بعد نسخ الداله ووضعها في الكود ماذا افعل

هل امسح الداله من الخليه وكيف تفعل

[عبد الرحمن الحمصي]

بعد نسخ الداله ووضعها في الكود ماذا افعل

هل امسح الداله من الخليه وكيف تفعل

 

 أخي وليد زقزق :

 

انسخ المعادلة المحولة و ضعها داخل كود الأخ عبد الله باقشير

 

قم بعمل زر وربطه بالموديول الموجود فيه الكود

 

عند الضغط على الزر يقوم الكود بالقيام بالحسابات ( لا داعي لمسح المعادلات , الكود سوف يقوم بذلك تلقائيا ) .

[عبد الرحمن الحمصي]

أخي أبو سارة شكرا لمرورك الطيب.

[حمادة عمر]

[عبد الرحمن الحمصي]

بارك الله بك أخي حمادة عمر , جهودك و ابداعاتك سابقة.

[ا بو سليمان]

احسنت 

 

 

.

[عبد الرحمن الحمصي]

شكرا أخي زمزم.

[ADNANSAKRAN]

السلام عليكم

جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير

[أبو إيمان]

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

[ياسر خليل أبو البراء]

موضوع قديم لكن جد رائع ومفيد جداً ..

بارك الله فيك أخي الكريم عبد الرحمن ونرجو أن تعود لنا سالماً

 

[زياد عبد الجليل]

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

"=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")"

وانا اريد ربط هذا الكود مع لابل لتصبح بهذا الشكل :

label23.caption = "=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")"

اي اريذ اضهار مجموع الذكور في label 23 من خلال هذا الكود المحول ولكن عند وضعه لا تظهر القيمة و لكن يظهر الكود رجاء سا عدوني اين الخلل كما اني لم افهم اين انسخ الكود ولكم مني كل الشكر

[جلال محمد]

اخي زياد

ارفق ملف لكي يتمكن الجميع من المساعدة

[زياد عبد الجليل]

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

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

 

مجموع الذكور و الاناث.rar

تم تعديل أغسطس 20, 2016 بواسطه زياد777

[ولد جدة]

جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير

[الشيباني1]

اخواني الاعزاء  موضوع مفيد جدا هل من امكانيه لاكمال اجراءات نقل الكود وتشغيله مع الشكر

[ياسر خليل أبو البراء]

في 8/20/2016 at 16:20, زياد777 said:

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

"=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")"

وانا اريد ربط هذا الكود مع لابل لتصبح بهذا الشكل :

label23.caption = "=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")"

اي اريذ اضهار مجموع الذكور في label 23 من خلال هذا الكود المحول ولكن عند وضعه لا تظهر القيمة و لكن يظهر الكود رجاء سا عدوني اين الخلل كما اني لم افهم اين انسخ الكود ولكم مني كل الشكر

قم باستخدام الفاصلة العادية وليس الفاصلة المنقوطة ...

أو جرب التعديل التالي في الكود الأصلي

Sub Get_VBA_Formula()
    Dim VBA_Formula As String
    Dim msg As String
    Dim I As Integer
    Dim N As String
    Dim x As String

    VBA_Formula = ActiveCell.FormulaR1C1Local
    
    If IsEmpty(ActiveCell) Then MsgBox "The Active Cell Is Empty", vbExclamation: Exit Sub
    
    For I = 1 To Len(VBA_Formula)
        N = Mid(VBA_Formula, I, 1)
        
        If N = """" Then
            x = x & """"""
        Else
            x = x & N
        End If
    Next I

    VBA_Formula = """" & Replace(x$, ";", ",") & """"
    msg = "Cell Formula To VBA Conversion" & vbCrLf & vbCrLf & ActiveCell.Formula
    Application.SendKeys ("^c")
    VBA_Formula = InputBox(msg, "Get VBA Formula", VBA_Formula)
End Sub

 

[زياد عبد الجليل]

شكرا اخي ياسر على مرورك العطر