عبدالله باقشير قام بنشر أغسطس 1, 2011 قام بنشر أغسطس 1, 2011 السلا عليكم ورحمة الله وبركاته شهر مبارك وكل عام وانتم بخير كود لتحويل المعادلات الى قيم Option Explicit Sub Kh_Formula_To_Value() Dim MyCalcu As XlCalculation With Application MyCalcu = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With '===================================== '////////////////////////////////////// '===================================== ' هنا تضع النطاق والمعادلة التي تريد تحويلها قيم ' Formula_To_Value باستخدام '===================================== ' T هنا المعادلة اللي في العمود Formula_To_Value Range("T5:T30"), "=RC[-2]*RC[-1]" ' x هنا المعادلة اللي في العمود ' مثل عمل كود الاخ كيماس Formula_To_Value Range("X5:X30"), "=IF(COUNTIF(RC16:R30C16,RC16)=1,SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20)),"""")" ' Y هنا المعادلة اللي في العمود Formula_To_Value Range("Y5:Y30"), "=SUMPRODUCT((R5C16:R1500C16=RC16)*(R5C20:R1500C20))" '===================================== '////////////////////////////////////// '===================================== With Application .ScreenUpdating = True .Calculation = MyCalcu End With End Sub ================================================= Sub Formula_To_Value(MyRng As Range, MyFormula As Variant) With MyRng .ClearContents .Formula = MyFormula .Cells = .Value End With End Sub وهو طلب احدهم في الموضوع http://www.officena.net/ib/index.php?showtopic=37827 المرفق ملف اكسل 2003 كود تحويل المعادلات الى قيم.rar 2 2
محمد يحياوي قام بنشر أغسطس 1, 2011 قام بنشر أغسطس 1, 2011 الاستاذ و الاخ الحبيب "خبور خير" تقبل الله منا ومنك الصيام و القيام .. كود ولا اروع. استسمحك استاذي في رفع الكود الى موضوع الاكواد المنفصلة.
هشام شلبى قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 السلام عليكم ===== اخى الحبيب خبور بارك الله فيك كنت اتمنى ان اكون اول المعبرين عن اعجابى بهذا العمل العظيم .
عبد الفتاح كيرة قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 بارك الله فيك أستاذنا خبور و كل عام أنتم بخير
عبدالله باقشير قام بنشر أغسطس 2, 2011 الكاتب قام بنشر أغسطس 2, 2011 السلام عليكم استسمحك استاذي في رفع الكود الى موضوع الاكواد المنفصلة. تفضل بدون اذن وتشكر على هذا الجهد الملحوظ بارك الله فيك وكل عام وانتم بخير كنت اتمنى ان اكون اول المعبرين عن اعجابى بهذا العمل العظيم . وكانك كذلك حفظك الله ورعاك وكل عام وانتم بخير تقبلا تحياتي وشكري
عبدالله باقشير قام بنشر أغسطس 2, 2011 الكاتب قام بنشر أغسطس 2, 2011 السلام عليكم بارك الله فيك أستاذنا خبور و كل عام أنتم بخير الاخ الحبيب كيماس -----حفظه الله لم اشاهد ردك هذا اثناء ردي السابق جزاك ربي خيرا وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري
الحسامي قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 ما شاء الله اخي خبور عمل اكثر من رائع بارك الله فيك
ياسر الحافظ قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 الاستــــــــــــــــاذ الكبير خبــــور خيــــر كما قال استاذنا الحســـامي ملف اكثر من رائع جزالك الله كل الخير وفقك الله ... ويسر امرك ياسر الحافظ ابو الحارث
عبدالله المجرب قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 الاستاذ الفاضل خبور خير (ابوعلي) هدايك جميلة واعمالك متقنة تسلم يدك على هذا العمل المميز ابواحمد
naderwatfa قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 أخي الحبيب خبور خير كل رمضان و انت طيب الكود ده أكثر من رائع ومفيد جداً سوف أستخدمه لتقليل حجم ملف شيت الكنترول أشكرك كل الشكر بارك الله فيك
يحيى حسين قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 السلام عليكم و رحمة الله أخي خبور كل عام و انت بخير و جزاك الله خير على هذا الكود الجميل و كإضافة أنا أقوم بإستخدام هذا الكود لتحويل المعادلات الى قيم Sub FormulaToValue() With ActiveSheet.Cells .Copy .PasteSpecial xlValues End With End Sub فلربما فكرته تساعد الأخوة أيضاً في الحصول على طرق أخرى =============== دمتم في حفظ الله
عبد الفتاح كيرة قام بنشر أغسطس 2, 2011 قام بنشر أغسطس 2, 2011 و للتجميع هذه طريقة أخرى فعالة = نعم أستاذ بارك الله فيك الخاصية evaluate تقوم بتقييم أى معادلة يعنى لو عندك معادلة شغالة بدون مشاكل فى الشيت يمكنك تقييمها من خلال الكود باستخدام evaluate و تقييمها معناه حسابها و إرجاع قيمتها النهائية " القيمة و ليس المعادلة كما شاهدت فى ملفك بشرط ألا تزيد حروفها على 255 حرفا أيضا لا نضع علامة "=" معها هكذا Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))" و هذه الخاصية مشابهة لخاصية calculate = هذا المطلوب بسطر واحد من الكود وبدون أن تظهر المعادلة أصلا فى الخلية درة غالية لكن ما تغلى عليكم كل عام أنتم بخير أخى ضع السطر التالى فى حدث نقر الزر Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))") كما يمكنك استخدام دالة sum هكذا Range("x5") = Application.Evaluate("SUM((P5:P1500=p5)*T5:T1500)") رابط المشاركة 1 1
فائز_89 قام بنشر مارس 18, 2012 قام بنشر مارس 18, 2012 مشكورين يا اخوان .. و بوركتم على هذا المنتدى الرائع
sarab1618 قام بنشر أكتوبر 17, 2013 قام بنشر أكتوبر 17, 2013 طلب صغير لم استطع تنفيذه ... الملف المرفق يبين المطلوب ... وشكرا سلفا انتاج الاسم الثلاثي.rar
أبو محمد عباس قام بنشر أكتوبر 18, 2013 قام بنشر أكتوبر 18, 2013 السلام عليكم ورحمة الله وبركاته اخي العزيز sarab1618 تم اضافة كود العلامة الكبير الاستاذ الفاضل عبد الله باقشير حفظه الله وزاده علما وشرفا فقط جرب اضغط على زر تحويل المعادلات الى قيم وسترى النتيجة ان شاء الله تعجبك واضف اي معلومات اخرى في الخلايا الصفراء وما تحتها الى 300 صف واضغط على الزر سيقوم بدمج الاسماء تقبل فائق احترامي وتقديري انتاج الاسم الثلاثي.rar 1
sarab1618 قام بنشر أكتوبر 18, 2013 قام بنشر أكتوبر 18, 2013 الف شكر أخ عباس ... لكن لدي استفسارين اثنين : 1 - المعادلة المرفقة مع الموديول لا تترك فراغ بين الخلايا المراد دمجها 2 - هل يمكن جهل الموديول يعمل بشكل تلقائي بمجرد ادخال الخلايا الثلاثة الاولى ويقوم مباشرة بعملية الدمج
أبو محمد عباس قام بنشر أكتوبر 18, 2013 قام بنشر أكتوبر 18, 2013 السلام عليكم ورحمة الله وبركاته الاخ العزيز شكرا لك وبارك الله فيك اما المعادلة لاتترك فراغات هذا صحيح ادرجت المعادلة بهذا الشكل(=A2&" "&B2&" "&C2) لترك مسافة بين الاسماء وهي تعمل تمام كمعادلة في الشيت لكن حين ادراجها في الكود يعترض ويظهر خطا ولا اعلم مالسبب وحاولت عدة مرات لكن لم تفلح محاولتي ارجو ان يتدخل احد الاساتذة للتعديل متفضلا وله دعواتنا بالصحة والعافية اما جعل الكود يعمل نلقائيا فالكود لعالمنا الجليل والعلامة الكبير عبد الله باقشير دام عزه وحفظه الله ورعاه واذا سمح له الوقت حتما يتدخل لذلك او يقوم احد الاساتذة الكرام وهم ما شاء الله تبارك الرحمن لهم خبرة كبيره والامر لهم بذلك جزاهم الله خيرا تقبل فائق احترامي وتقديري
sarab1618 قام بنشر أكتوبر 18, 2013 قام بنشر أكتوبر 18, 2013 شكرا جزيلا اتعبتك معي وجزاك الله عني كل خير
عبدالله باقشير قام بنشر أكتوبر 18, 2013 الكاتب قام بنشر أكتوبر 18, 2013 السلام عليكم الشكر واصل لاخي الحبيب عباس السماوي ..........حفظه الله المعادلة المرفقة مع الموديول لا تترك فراغ بين الخلايا المراد دمجها استبدل الجزء هذا من الكود Formula_To_Value Range("d2:d300"), "=A2&"" ""&B2&"" ""&C2" في امان الله 1
محمد ابو ضيف قام بنشر يونيو 9, 2014 قام بنشر يونيو 9, 2014 السلام عليكم اود تحويل المعادلتين الموضحين الى كود ماكرو يرتبط فيما بعد بزر مخصص لهم المعادله الاولى : (VLOOKUP([@CODE],sheet1!A:D,4,0= المعادله الثانيه : [@QTY]-[@Column1]= لقد طرحت الطلب فى موضوع منفصل ولكن لا يوجد اى حل ارجو مساعدتى عاجلاً لحاجتى الى هذا الطلب
الصـقر قام بنشر ديسمبر 27, 2014 قام بنشر ديسمبر 27, 2014 استاذى الكريم العلامه عبدالله باقشير لا حرمنا الله من ابداعتك زادك الله علما تقبل تحياتى 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.