amir501 قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 السلام عليكم اخوااني لدي عشرة صفحات فيها اكواد للجمع والطرح....الخ هل يوجد كود يقوم بالغاء جميع الاكود في الصفحات ولا يقى سوى النتائج جزاكم الله كل خير
عبد الفتاح كيرة قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 تقصد معادلات ؟ الكود التالى Dim myrng As Range Dim cl As Range Set myrng = ActiveSheet.Cells.CurrentRegion For Each cl In myrng If cl.HasFormula Then cl = cl.Value End If Next cl امسح المعادلات و إبقاء القيمkemas.zip
amir501 قام بنشر يناير 13, 2011 الكاتب قام بنشر يناير 13, 2011 بسم الله الرحمن الرحيم اخي واستاذنا كيماس كم هو عظيم ردك السريع. لك مني كل الشكر والامتنان ولاخواننا الكر ام هذا الكود هو لتحويل المعادلات الى قيم اريد ان تكرمت واخواننا نفس هذا الكود ولكن لتحويل عمل الكود الى قيم اوحذف الكود من الصفحة لانه في كل صفحة يوجد كود يقوم بعمليات جمع وطرح... لك ولاخواني كل الشكر والامتنان
عبد الفتاح كيرة قام بنشر يناير 13, 2011 قام بنشر يناير 13, 2011 عليك معرفة مكان هذه الأكواد فى مشروع فيجوال بيسك لا أثر لوجودها فى الصفحة إلا من خلال نتائجها يمكنك الذهاب للماكرو الذى ينفذ عمليات الطرح و الجمع بضغط alt + f11
الشيباني1 قام بنشر يناير 14, 2011 قام بنشر يناير 14, 2011 استاذنا العزيز تحية طيبه حل رائع اتساءل عن امكانية وضع كود آخر يعيد المعادلات عند الحاجة مع الامتنان
عبد الفتاح كيرة قام بنشر يناير 14, 2011 قام بنشر يناير 14, 2011 لعمل ذلك يجب إرجاع كل الأكواد التى حذفت " أقصد المعادلات "
amir501 قام بنشر يناير 14, 2011 الكاتب قام بنشر يناير 14, 2011 الاستاذ الاخ كيماس اشكرك كل الشكر لما تقدمه من مساعدة ارجو التكرم بالنظر في المرفق الشرح داخله تقبل تحياتي وشكري New Microsoft Excel Worksheet.rar
عبد الفتاح كيرة قام بنشر يناير 14, 2011 قام بنشر يناير 14, 2011 أخى أمير راجع هذا الموضوع مؤقتا حتى أجد الوقت لذلك إن شاء الله http://www.officena.net/ib/index.php?showtopic=34833
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.