ناصرالمصرى قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 السلام عليكم ورحمة الله وبركاته لديّ هذا الكود الذي يُحول المعادلات إلى قيم وهو من إبداعات عمالقة هذا المنتدى إنه يعمل بشكل رائع مع البيانات الصغيرة لكنه بطيء جدا مع البيانات الكبيره فهل من سبيل لجعله أسرع *** شاكر فضل حضراتكم وجزاكم الله خيرا Sub test() Dim r As Long Application.ScreenUpdating = False r = Range("A" & Rows.Count).End(xlUp).Row Range("a2:y2").AutoFill Range("a2:y" & r), xlFillDefault Range("a3:y" & r).Value = Range("a3:y" & r).Value Range("ca2:cy2").AutoFill Range("ca2:cy" & r), xlFillDefault Range("ca3:cy" & r).Value = Range("ca3:cy" & r).Value Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 4, 2019 مشاركة قام بنشر سبتمبر 4, 2019 ممكن هذا المثال يبسط الأمور Option Explicit Sub Fast_macro() Dim La#: La = Cells(Rows.Count, 1).End(3).Row With Range("D2").Resize(La - 1) .Value = vbNullString .Formula = "=SUM(A2:B2)" .Value = .Value End With End Sub الملف مرفق value.value.xlsm 1 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر سبتمبر 4, 2019 الكاتب مشاركة قام بنشر سبتمبر 4, 2019 (معدل) جزاكم الله خيرا على الرد والمشاركة مزيد من التوضيح بداخل هذا المثال لمعرفة ما أعنيه شاكر فضل حضرتك وجزاكم الله خيرا تحويل.xlsm تم تعديل سبتمبر 4, 2019 بواسطه ناصرالمصرى اضافة مرفق رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 4, 2019 أفضل إجابة مشاركة قام بنشر سبتمبر 4, 2019 هذا المامرو ربما يفي بالغرض Option Explicit Sub ConvertFormulasToValues() Dim r As Long Dim i As Byte r = Range("A" & Rows.Count).End(xlUp).Row Dim st1$: st1 = "=100" Dim st2$: st2 = "=IF(C8=""ناصر"",666.65,120.25)" Dim st3$: st3 = "=IF(C8=""سليم"",""ممتاز"","""")" Dim st4$: st4 = "=IF(D8=""اوفسينا"",""المنتدى الاول"","""")" With Cells(8, 5).Resize(r) .Formula = st1 .Offset(, 1).Formula = st2 .Offset(, 2).Formula = st3 .Offset(, 3).Formula = st4 .Resize(, 4).Value = .Resize(, 4).Value End With End Su 1 رابط هذا التعليق شارك More sharing options...
ناصرالمصرى قام بنشر سبتمبر 4, 2019 الكاتب مشاركة قام بنشر سبتمبر 4, 2019 وصلت الفكرة العامة من هذا الكود العبقرى شاكر فضل حضرتك وجزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان