عبد الرحمن الحمصي قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 بسم الله الرحمن الرحيم Formula To VBA ضع الماوس على الخلية التي يوجد فيها معادلة معينة وإضغط على بسم الله ستظهر لديك المعادلة محولة و جاهزة للنسخ , قم بنسخها ثم قم بوضعها داخل كود أخونا الكريم عبد الله باقشير جزاه الله خيرا . الطريقة و الكود في المرفقات لكم مني أطيب التحيات محول المعادلات السريع.rar 9 رابط هذا التعليق شارك More sharing options...
۩◊۩ أبو حنين ۩◊۩ قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 السلام عليكم جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير على ما تقدموه للمنتدى من كل جديد 3 رابط هذا التعليق شارك More sharing options...
أحمد فؤاد قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 بارك الله فيك وجزى الله خيرا لأستاذنا / عبد الله باقشير 1 رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 اخي عبد الرحمن جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 السلام عليكم الدال على الخير كفاعله نشكر من اعماق قلوبنا وندعوا للجميع بالبركة والستر 1 رابط هذا التعليق شارك More sharing options...
عبد الرحمن الحمصي قام بنشر مارس 1, 2014 الكاتب مشاركة قام بنشر مارس 1, 2014 أخي ابو حنين أخي احمد فؤاد أخي جلال محمد أخي عادل ابو زيد أشكركم على مروركم الكريم و الشكر لله أولا وللقائمين على هذا المنتدى المميز ثانيا أجمل مافي هذا المنتدى هو تبادل المنفعة و الخبرات و الحماس الجميل و المنافسة الشريفة في حل معظم الأسئلة و الاستفسارات المطروحة تقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
Abo Sufiyan قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 بجد اكثر من رائع 1 رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر مارس 1, 2014 مشاركة قام بنشر مارس 1, 2014 بعد نسخ الداله ووضعها في الكود ماذا افعل هل امسح الداله من الخليه وكيف تفعل رابط هذا التعليق شارك More sharing options...
عبد الرحمن الحمصي قام بنشر مارس 2, 2014 الكاتب مشاركة قام بنشر مارس 2, 2014 بعد نسخ الداله ووضعها في الكود ماذا افعل هل امسح الداله من الخليه وكيف تفعل أخي وليد زقزق : انسخ المعادلة المحولة و ضعها داخل كود الأخ عبد الله باقشير قم بعمل زر وربطه بالموديول الموجود فيه الكود عند الضغط على الزر يقوم الكود بالقيام بالحسابات ( لا داعي لمسح المعادلات , الكود سوف يقوم بذلك تلقائيا ) . رابط هذا التعليق شارك More sharing options...
عبد الرحمن الحمصي قام بنشر مارس 2, 2014 الكاتب مشاركة قام بنشر مارس 2, 2014 أخي أبو سارة شكرا لمرورك الطيب. رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر مارس 2, 2014 مشاركة قام بنشر مارس 2, 2014 1 رابط هذا التعليق شارك More sharing options...
عبد الرحمن الحمصي قام بنشر مارس 2, 2014 الكاتب مشاركة قام بنشر مارس 2, 2014 بارك الله بك أخي حمادة عمر , جهودك و ابداعاتك سابقة. 1 رابط هذا التعليق شارك More sharing options...
ا بو سليمان قام بنشر مارس 3, 2014 مشاركة قام بنشر مارس 3, 2014 احسنت . 1 رابط هذا التعليق شارك More sharing options...
عبد الرحمن الحمصي قام بنشر مارس 4, 2014 الكاتب مشاركة قام بنشر مارس 4, 2014 شكرا أخي زمزم. رابط هذا التعليق شارك More sharing options...
ADNANSAKRAN قام بنشر مايو 20, 2014 مشاركة قام بنشر مايو 20, 2014 السلام عليكم جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مايو 20, 2014 مشاركة قام بنشر مايو 20, 2014 جزاكم الله خيرا أنت والعلامة القدير رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 19, 2016 مشاركة قام بنشر أغسطس 19, 2016 موضوع قديم لكن جد رائع ومفيد جداً .. بارك الله فيك أخي الكريم عبد الرحمن ونرجو أن تعود لنا سالماً رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 20, 2016 مشاركة قام بنشر أغسطس 20, 2016 السلام على جميع الاساتذة الافاضل رجاء لقد قمت بتحويل معادلة و اعطاني الكود التالي "=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")" وانا اريد ربط هذا الكود مع لابل لتصبح بهذا الشكل : label23.caption = "=NB.SI(L(-4)C(3):L(32)C(3);""ذكر"")" اي اريذ اضهار مجموع الذكور في label 23 من خلال هذا الكود المحول ولكن عند وضعه لا تظهر القيمة و لكن يظهر الكود رجاء سا عدوني اين الخلل كما اني لم افهم اين انسخ الكود ولكم مني كل الشكر رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر أغسطس 20, 2016 مشاركة قام بنشر أغسطس 20, 2016 اخي زياد ارفق ملف لكي يتمكن الجميع من المساعدة رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 20, 2016 مشاركة قام بنشر أغسطس 20, 2016 (معدل) اليكم الملف المرفق للاستاذ القدير ابو حنين اردت فقط التعديل عليه و اضافة بعض الاشياء الهامة تجدون كل شئ في الفورم وان كان هناك طريقة اخرى فلا باس ولكم مني جزيل الشكر مجموع الذكور و الاناث.rar تم تعديل أغسطس 20, 2016 بواسطه زياد777 1 رابط هذا التعليق شارك More sharing options...
ولد جدة قام بنشر أغسطس 20, 2016 مشاركة قام بنشر أغسطس 20, 2016 جزاك الله خيرا اخى العزيز وجزا الله اخونا عبد الله باقشير رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر أغسطس 22, 2016 مشاركة قام بنشر أغسطس 22, 2016 اخواني الاعزاء موضوع مفيد جدا هل من امكانيه لاكمال اجراءات نقل الكود وتشغيله مع الشكر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 24, 2016 مشاركة قام بنشر أغسطس 24, 2016 في 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 رابط هذا التعليق شارك More sharing options...
زياد عبد الجليل قام بنشر أغسطس 24, 2016 مشاركة قام بنشر أغسطس 24, 2016 شكرا اخي ياسر على مرورك العطر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها