تحويل المعادلات إلى قيم

[ناصرالمصرى]

السلام عليكم ورحمة الله وبركاته

لديّ هذا الكود الذي يُحول المعادلات إلى قيم وهو من إبداعات عمالقة هذا المنتدى 

إنه يعمل بشكل رائع مع البيانات الصغيرة لكنه بطيء جدا مع البيانات الكبيره

فهل من سبيل لجعله أسرع *** شاكر فضل حضراتكم وجزاكم الله خيرا

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

 

[سليم حاصبيا]

ممكن هذا المثال يبسط الأمور

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

[ناصرالمصرى]

جزاكم الله خيرا على الرد والمشاركة

مزيد من التوضيح بداخل هذا المثال لمعرفة ما أعنيه

شاكر فضل حضرتك وجزاكم الله خيرا

 

تحويل.xlsm

تم تعديل سبتمبر 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

 

[ناصرالمصرى]

وصلت الفكرة العامة من هذا الكود العبقرى

شاكر فضل حضرتك وجزاكم الله خيرا