عبدالله باقشير قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر أغسطس 1, 2011 مشاركة قام بنشر أغسطس 1, 2011 الاستاذ و الاخ الحبيب "خبور خير" تقبل الله منا ومنك الصيام و القيام .. كود ولا اروع. استسمحك استاذي في رفع الكود الى موضوع الاكواد المنفصلة. رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 السلام عليكم ===== اخى الحبيب خبور بارك الله فيك كنت اتمنى ان اكون اول المعبرين عن اعجابى بهذا العمل العظيم . رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 بارك الله فيك أستاذنا خبور و كل عام أنتم بخير رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 2, 2011 الكاتب مشاركة قام بنشر أغسطس 2, 2011 السلام عليكم استسمحك استاذي في رفع الكود الى موضوع الاكواد المنفصلة. تفضل بدون اذن وتشكر على هذا الجهد الملحوظ بارك الله فيك وكل عام وانتم بخير كنت اتمنى ان اكون اول المعبرين عن اعجابى بهذا العمل العظيم . وكانك كذلك حفظك الله ورعاك وكل عام وانتم بخير تقبلا تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أغسطس 2, 2011 الكاتب مشاركة قام بنشر أغسطس 2, 2011 السلام عليكم بارك الله فيك أستاذنا خبور و كل عام أنتم بخير الاخ الحبيب كيماس -----حفظه الله لم اشاهد ردك هذا اثناء ردي السابق جزاك ربي خيرا وشهر مبارك وكل عام وانتم بخير تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 ما شاء الله اخي خبور عمل اكثر من رائع بارك الله فيك رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 الاستــــــــــــــــاذ الكبير خبــــور خيــــر كما قال استاذنا الحســـامي ملف اكثر من رائع جزالك الله كل الخير وفقك الله ... ويسر امرك ياسر الحافظ ابو الحارث رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 الاستاذ الفاضل خبور خير (ابوعلي) هدايك جميلة واعمالك متقنة تسلم يدك على هذا العمل المميز ابواحمد رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 أخي الحبيب خبور خير كل رمضان و انت طيب الكود ده أكثر من رائع ومفيد جداً سوف أستخدمه لتقليل حجم ملف شيت الكنترول أشكرك كل الشكر بارك الله فيك رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أغسطس 2, 2011 مشاركة قام بنشر أغسطس 2, 2011 السلام عليكم و رحمة الله أخي خبور كل عام و انت بخير و جزاك الله خير على هذا الكود الجميل و كإضافة أنا أقوم بإستخدام هذا الكود لتحويل المعادلات الى قيم Sub FormulaToValue() With ActiveSheet.Cells .Copy .PasteSpecial xlValues End With End Sub فلربما فكرته تساعد الأخوة أيضاً في الحصول على طرق أخرى =============== دمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
فائز_89 قام بنشر مارس 18, 2012 مشاركة قام بنشر مارس 18, 2012 مشكورين يا اخوان .. و بوركتم على هذا المنتدى الرائع رابط هذا التعليق شارك More sharing options...
sarab1618 قام بنشر أكتوبر 17, 2013 مشاركة قام بنشر أكتوبر 17, 2013 طلب صغير لم استطع تنفيذه ... الملف المرفق يبين المطلوب ... وشكرا سلفا انتاج الاسم الثلاثي.rar رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر أكتوبر 18, 2013 مشاركة قام بنشر أكتوبر 18, 2013 السلام عليكم ورحمة الله وبركاته اخي العزيز sarab1618 تم اضافة كود العلامة الكبير الاستاذ الفاضل عبد الله باقشير حفظه الله وزاده علما وشرفا فقط جرب اضغط على زر تحويل المعادلات الى قيم وسترى النتيجة ان شاء الله تعجبك واضف اي معلومات اخرى في الخلايا الصفراء وما تحتها الى 300 صف واضغط على الزر سيقوم بدمج الاسماء تقبل فائق احترامي وتقديري انتاج الاسم الثلاثي.rar 1 رابط هذا التعليق شارك More sharing options...
sarab1618 قام بنشر أكتوبر 18, 2013 مشاركة قام بنشر أكتوبر 18, 2013 الف شكر أخ عباس ... لكن لدي استفسارين اثنين : 1 - المعادلة المرفقة مع الموديول لا تترك فراغ بين الخلايا المراد دمجها 2 - هل يمكن جهل الموديول يعمل بشكل تلقائي بمجرد ادخال الخلايا الثلاثة الاولى ويقوم مباشرة بعملية الدمج رابط هذا التعليق شارك More sharing options...
أبو محمد عباس قام بنشر أكتوبر 18, 2013 مشاركة قام بنشر أكتوبر 18, 2013 السلام عليكم ورحمة الله وبركاته الاخ العزيز شكرا لك وبارك الله فيك اما المعادلة لاتترك فراغات هذا صحيح ادرجت المعادلة بهذا الشكل(=A2&" "&B2&" "&C2) لترك مسافة بين الاسماء وهي تعمل تمام كمعادلة في الشيت لكن حين ادراجها في الكود يعترض ويظهر خطا ولا اعلم مالسبب وحاولت عدة مرات لكن لم تفلح محاولتي ارجو ان يتدخل احد الاساتذة للتعديل متفضلا وله دعواتنا بالصحة والعافية اما جعل الكود يعمل نلقائيا فالكود لعالمنا الجليل والعلامة الكبير عبد الله باقشير دام عزه وحفظه الله ورعاه واذا سمح له الوقت حتما يتدخل لذلك او يقوم احد الاساتذة الكرام وهم ما شاء الله تبارك الرحمن لهم خبرة كبيره والامر لهم بذلك جزاهم الله خيرا تقبل فائق احترامي وتقديري رابط هذا التعليق شارك More sharing options...
sarab1618 قام بنشر أكتوبر 18, 2013 مشاركة قام بنشر أكتوبر 18, 2013 شكرا جزيلا اتعبتك معي وجزاك الله عني كل خير رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر أكتوبر 18, 2013 الكاتب مشاركة قام بنشر أكتوبر 18, 2013 السلام عليكم الشكر واصل لاخي الحبيب عباس السماوي ..........حفظه الله المعادلة المرفقة مع الموديول لا تترك فراغ بين الخلايا المراد دمجها استبدل الجزء هذا من الكود Formula_To_Value Range("d2:d300"), "=A2&"" ""&B2&"" ""&C2" في امان الله 1 رابط هذا التعليق شارك More sharing options...
محمد ابو ضيف قام بنشر يونيو 9, 2014 مشاركة قام بنشر يونيو 9, 2014 السلام عليكم اود تحويل المعادلتين الموضحين الى كود ماكرو يرتبط فيما بعد بزر مخصص لهم المعادله الاولى : (VLOOKUP([@CODE],sheet1!A:D,4,0= المعادله الثانيه : [@QTY]-[@Column1]= لقد طرحت الطلب فى موضوع منفصل ولكن لا يوجد اى حل ارجو مساعدتى عاجلاً لحاجتى الى هذا الطلب رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 استاذى الكريم العلامه عبدالله باقشير لا حرمنا الله من ابداعتك زادك الله علما تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.