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

[الـعيدروس]

اخي اسلام الشيمي

 

ملفك به معادلات كثيره جداً

حوالي 11578 معادله

 

عند تطبيق الكود عليه 

يظهر رسالة خطاء 

والرسالة تظهر لان الكود كبير جداً

 

واعتقد تظهر عندي لإن الجهاز الذي اعمل عليه حاليا

مواصفاته ضعيفه

 

أرجو تجربة الكود في جهازك اذا كان جهاز حديث

 

بعد تنفيذ الكود

إضغط Alt + F8 

وشغل الماكرو المسمى "  Ali_Formola  "

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

[اسلام سيد]

اخي واستاذي الفاضل عباد

جزاك الله خيرا على التواصل معى

الكود جربته الان وقام بالفعل بتحويل المعادلات الى اكود مثل ملفك الاول تماما

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

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

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

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

بارك الله فيك ونفعنا بعلمك

اخوك اسلام الشيمي

[اسلام سيد]

فعلا عند اختيارى الماكرو المسمى "  Ali_Formola  " تظهر لى رساله بان الملف كبير

1-لكن  رامات الجهاز عندى 2 G ,البروسيسور عندى حديث

2-اكتشفت من ملف حضرتك الذى به معادلة الجمع والضرب عند استخدام الاختيار  "  Ali_Formola  " المعادلات تختفى  وتكون غير مفعله

وإذا قمت بكتابة ارقاب جديد مثلا2*2 لايظهر لى ناتج جديد وهو4 بل يظل الناتج القديم كما هو

 

هنتظر ردك

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

[حمادة عمر]

السلام عليكم

الاخوة الكرام

 

بعد اذن الكبير القدير الاستاذ / عباد

اقدم لكم طريقة تفعيل ثقة مشروع VBA
في اصدارين الاكسيل 2003 و 2007

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

وان شاء الله يعمل معكم الكود بنجاح فهو كود رائع وجميل

ويفيد في اشياء كثيرة يمكن تطويعه فيها

جزاك الله خيرا استاذي القدير / ابو نصار

 

عسي الله ان ينفع بهم احدا

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

 

 

تفعيل الثقة 2003.rar

 

تفعيل الثقة 2007.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير / عباد

 

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

 

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

 

والخاصة بتحويل معادلة SUMPRODUCT  الي كود بالكود الموجود في هذا الموضوع  خاصتك

حيث انني حاولت به ولكني لم انجح .... فما المشكلة يا تري ؟؟

 

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

[الـعيدروس]

السلام عليكم

 

اخي حماده عمر

 

حقيقة ملاحظتك تعتبر إضافة للكود سهيت عنها

حيكون التعديل في الكود كالتالي

وضحت على الكود السطر الذي تم التعديل عليه

Public Sub Ali_Fmla_To_VBA()
Dim Sht As Worksheet
Dim R As Range, Rr As Range
Dim Ar_Ads(), Ar_Fm()
Dim F, Lc, Prmit_A, Rw
Call Ad_Refe: Call Ali_Delet: Call Ali_M
Dim A
Dim B
Dim C
Set A = ThisWorkbook.VBProject
Set C = A.VBComponents.Item("My_Frmola").CodeModule
On Error Resume Next
For Each Sht In ThisWorkbook.Worksheets
For Each Rr In Sht.Range(Rng).SpecialCells(xlCellTypeFormulas)
If Not IsEmpty(Rr) Then
ReDim Preserve Ar_Ads(0 To F)
ReDim Preserve Ar_Fm(0 To Lc)
Ar_Ads(Lc) = "Sheets(""" & Rr.Worksheet.Name & """)" & "." & "Range(""" & Rr.Address(0, 0) & """)"
'************************************************
' إضافة شرط عند وجود علامة نصية يستبدلها بعلامتين نصيه
Ar_Fm(F) = "=" & "Evaluate(""" & IIf(InStr(1, Rr.FormulaLocal, """", vbTextCompare) > 0, Replace(Rr.FormulaLocal, """", """"""), Rr.FormulaLocal) & """)"
'************************************************
F = F + 1: Lc = Lc + 1
End If
Next
Next
With C
.AddFromString ("Sub Ali_Formola" & vbCrLf)
For Prmit_A = LBound(Ar_Ads) To UBound(Ar_Ads)
N = .CountOfLines
.InsertLines N, Ar_Ads(Prmit_A) & Ar_Fm(Prmit_A)
N = N + 1
Next
.InsertLines N + 1, vbCrLf & "End Sub"
End With
Erase Ar_Ads: Erase Ar_Fm
End Sub

 

 

أرجو التجربه

[اسلام سيد]

السلام عليكم استاذ / عباد

 

الكود الجديد يعطى خطأ فى public subAli fmla to VBA

 

مع العلم ان الماكو متنشط والكود الاول يعمل عندى لكن ايضا يعطى رساله بان حجم الملق كبير ؟ وهل يوجد حل لاستخدام الكود الاولى بالنسبه للملف الخاص بى الكبير الحجم

 

بارك الله فيك ونفعنا واياك

[ابو تميم]

ما شاء الله تبارك الله

فعلا كود روعة ومن أيدي متميزة دائما

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

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

[الـعيدروس]

السلام عليكم

 

اخي اسلام الشيمي 

عذراً اخي الكريم لم انتبه لردودك 

بخصوص الخطاء في التعديل الاخير

اضن انك استعنت بالكود الاخير بالكود السابق كاملا

والتعديل على الكود المسمى Ali_Fmla_To_VBA فقط

اذا عليك ان تحذف الكود المسمى Ali_Fmla_To_VBA السابق

وتلصق بدلاً منه الكود بعد التعديل الأخير

اذا كنت تلافيت هذه النقطه 

ارجو منك إرفاق الملف الذي اظهر فيه الخطاء 

 

اما مشاركتك رقم 28# لم افهم ماتقصده

هل جربت الكود على ملف اخر به معادلات قليله ولم يعمل ؟

اذا لم يعمل بملف اخر غير الذي عرضته ارجو إرفاق الملف

وتأكد من أنك إتبعت خطوات العمل على الكود بالشكل الصحيح كما وضحت سابقا

 

اخي ابو تميم

مرورك اسعدني اخير الكريم

وجزاك الله كل خير على الدعاء ولك مثله اضعاف إن شاء الله

بارك الله فيك

 

تقبلو تحياتي وشكري

[حمادة عمر]

السلام عليكم

الاستاذ القدير الرائع / عباد

 

شئ كبير علي جدا ان اضيف لكود عالم كبير مثلك

ولكن جل من لايسهو استاذي الكريم .... فأنت الرائع القدير دائما

ومثلي لا يمكنه تنبيهك استاذي لشئ بل يتعلم منك فقط علي قدره

 

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

في المشاركة التي أشرت اليها وقام بعمل اللازم وزيادة شويه

 

جزاك الله خيرا استاذي القدير

[حمادة عمر]

السلام عليكم

الاخ الكريم / إسلام الشيمي

 

بعد اذن القدير الاستاذ / عباد

جرب الكود علي ملفات صغيرة اولا  للتأكد من انه يعمل بشكل جيد

ثم تنتقل لمشكلة كبر حجم الملف

والخطأ الذي يظهر لديك حالياً اعتقد لانك قمت بنسخ الكود الأخير للاستاذ القدير / عباد

ووضعته مكان الكود القديم بالكامل

ولكن الكود القديم به اجزاء تعمل مع الكود الجديد فالكود كاملاً ليعمل معك سيكون كما في الملف المرفق

 حيث انني لا يمكنني اضافة اكواد للمشاركة ولا اعلم لماذا ؟؟   والملف لا يوجد به سوي الكود في مودل

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

 

 

كود تحويل المعادلات الي اكواد- للاستاذ عباد.rar

[اسلام سيد]

وعليكم السلام

 

بارك الله فيك اخى واستاذى عباد

 

بارك الله فيك اخى حماه

 

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

 

 

خطأ فى الكود الاول عند تطبيقه.rar

 

 

خطأ فى تطبيف الكود الاخير.rar

 

[الـعيدروس]

جرب هذا التعديل

 

 

Public Sub Ali_Fmla_To_VBA()
Dim Sht As Worksheet
Dim R As Range, Rr As Range
Dim Ar_Ads(), Ar_Fm()
Dim F, Lc, Prmit_A, Rw
Call Ad_Refe: Call Ali_Delet: Call Ali_M
Dim A
Dim B
Dim C
Set A = ThisWorkbook.VBProject
Set C = A.VBComponents.Item("My_Frmola").CodeModule
On Error Resume Next
For Each Sht In ThisWorkbook.Worksheets
For Each Rr In Sht.Range(Rng).SpecialCells(xlCellTypeFormulas)
If Not IsEmpty(Rr) Then
ReDim Preserve Ar_Ads(0 To F)
ReDim Preserve Ar_Fm(0 To Lc)
Ar_Ads(Lc) = "Sheets(""" & Rr.Worksheet.Name & """)" & "." & "Range(""" & Rr.Address(0, 0) & """)"
'************************************************
Ar_Fm(F) = "=" & "Evaluate(""" & IIf(InStr(1, Rr.Formula, """", vbTextCompare) > 0, Replace(Rr.Formula, """", """"""), Rr.Formula) & """)"
'************************************************
F = F + 1: Lc = Lc + 1
End If
Next
Next
With C
.AddFromString ("Sub Ali_Formola" & vbCrLf)
For Prmit_A = LBound(Ar_Ads) To UBound(Ar_Ads)
N = .CountOfLines
.InsertLines N, Ar_Ads(Prmit_A) & Ar_Fm(Prmit_A)
N = N + 1
Next
.InsertLines N + 1, vbCrLf & "End Sub"
End With
Erase Ar_Ads: Erase Ar_Fm
End Sub

[اسلام سيد]

الاستاذ عباد عذرا على التأخر عليك فلقد كان النت فاصل عندى

 

جزاك الله خير وجارى الاطلاع على الكود الاخير

[اسلام سيد]

السلام عليكم

 

استاذ عباد الكود الاخير يعطى خطأ فى Call Ad_Refe

[لزهر مدلل]

السلام عليكم

 

لدي .ويندوز  فرنسي و أوفيس 2010 فرنسي و عند تشغيل البرنامج تكون النتيجة في مكان الدالة ?NOM أي هناك خطأ

تم تعديل أبريل 20, 2014 بواسطه medellel

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

السلام عليكم اشكرك اخى الفاضل

والاستاذ القدير الرائع

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

السلام عليكم 

اخواني الكرام انا عندي ملف بطيئ جدا بسبب المعادلات 

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

مرفق نسخة من الملف الذي قمت بتصميمة . ارجو ان ينال اعجابكم ‫برنامج الحاويات - نسخة.rar‫برنامج الحاويات - نسخة.rar.. للعلم اي شخص ها يستخدم الملف سوفي يراه سريع الي حد ماء لاني حذفت خلايا كثيرة من الشيت الذي به معادلات كثيرة 

انا احتاج لكل شيت حوالي 6000صف تقريبا 

 

ارجو المساعدة جزاكم الله خير 

الان, عبدالعزيز النجار said:

السلام عليكم 

اخواني الكرام انا عندي ملف بطيئ جدا بسبب المعادلات 

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

مرفق نسخة من الملف الذي قمت بتصميمة . ارجو ان ينال اعجابكم ‫برنامج الحاويات - نسخة.rar‫برنامج الحاويات - نسخة.rar.. للعلم اي شخص ها يستخدم الملف سوفي يراه سريع الي حد ماء لاني حذفت خلايا كثيرة من الشيت الذي به معادلات كثيرة 

انا احتاج لكل شيت حوالي 6000صف تقريبا 

 

ارجو المساعدة جزاكم الله خير 

 

[ناصر سعيد]

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

 

[وليد المصرى 1]

السلام عليكم 

هل يا جماعة فى حل للكود الموجود .تنشيطه او التعديل عليه 

المطلوب هو تحويل ملف به معادلات كتير الى اكواد 

شكرا

[omar elhosseini]

اخي 

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

بل هو حمابة المعادلات من الحذف او التعديل

شاهد هذا الرابط

 

أداة تحويل صيغ المعادلات الى اكواد