تحويل معادلات الى كود يعمل تلقائي

[علي عبد المنعم]

تحويل معادلات الى اكواد.rar

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

حرب هذا الكود

مجرد ان تخرج من الصفحة ثم تعوداليها يقوم الكود بعمله

Option Explicit
Private lrc%, lrg%, My_St1$, My_St2$
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("c2:c500").ClearContents
Range("g2:g500").ClearContents
lrc = Sheets("ورقة1").Cells(Rows.Count, "a").End(3).Row
lrg = Sheets("ورقة1").Cells(Rows.Count, "e").End(3).Row
My_St1 = "=COUNTIF($B$2:B2,B2)+RANK(B2,$B$2:$B$32)-1"
My_St2 = "=VLOOKUP(E2,$A$2:$C$32,3,0)"
auto_formula
End Sub

Sub auto_formula()
Range("c2:c" & lrc).Formula = My_St1: Range("c2:c" & lrc).Value = Range("c2:c" & lrc).Value
Range("g2:g" & lrg).Formula = My_St2: Range("g2:g" & lrg).Value = Range("g2:g" & lrg).Value
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[علي عبد المنعم]

شكرا استاذ سليم واطمع في كرمك وتشرح الكود لاني باعت الملف كمثال لكي اتعلم من خبراتكم و اقدر اطبقه على ملفات اخرى