تصميم Excel كود لتحويل المعادلات الى قيم على الاكسيل

admin

عضو إداري
ادارة المنتدى

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

==============

كود لتحويل المعادلات الى قيم
كود:
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


 

المرفقات

  • كود تحويل المعادلات الى قيم.rar
    9.3 KB · المشاهدات: 0

أعلى