تحويل معادلة الى كود vba

[yasser_w_2010]

الاساتذه الكرام ممكن طلب تحويل هذه المعادله الى كود 

=IF(G$10=$D298;"مغادرة";IF(AND(G$10>=$C298;G$10<=$D298-1);$E298;0))

مع العلم بانني سوف اكررها في خلايا تانيه من خليه ( a11 الى aj11 )

وسوف اكررها في الصفوف التي اسفلها

شكرا لك اخي الكريم 

الف ده ممكن يكون اكثر من شيت حسب الشهور 

لو تقدر تساعدني اني اعمل كود vba بحيث لا يكون معرض للحذف من الخلية

تم رفــع الملف

ملف.xlsm

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

جرب هذا الكود (في حال حذف اي معادلة او  العبث بها عن طريق الخطأ قم بتشغيله)

Option Explicit
Sub Formula_To_Code()
Dim My_Str$: My_Str = """مغادرة"""

Range("G11:Aj313").Formula = _
"=IF(G$10=$D11,My_Str,IF(AND(G$10>=$C11,G$10<=$D11-1),$E11,0))"
 
 '================ هذا السطر اختياري لتثبيت المعادلات _
  =====================  والحصول على القيم فقط لتخفيف حجم الملف _
  ======================= من أوله Rem اذا اردت ذلك احذف كلمة

    Rem Range("G11:Aj313").Value = Range("G11:Aj313").Value

'=================================================
End Sub

 

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

تم التعديل على الكود

Sub Formula_To_Code()

Range("G11:Aj313").Formula = _
"=IF(G$10=$D11,""مغادرة"",IF(AND(G$10>=$C11,G$10<=$D11-1),$E11,0))"
 
 '================ هذا السطر اختياري لتثبيت المعادلات _
  =====================  والحصول على القيم فقط لتخفيف حجم الملف _
  ======================= من أوله Rem اذا اردت ذلك احذف كلمة

Rem Range("G11:Aj313").Value = Range("G11:Aj313").Value

'=================================================
End Sub

 

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

اليك الملف مع الكود

fORMULA_TO VBA.xlsm

[yasser_w_2010]

استاذنا الكبير سليم حاصبيا

عل ينفع كود في حدث الصفحه بدون مكرو

ارجو الرد استاذنا الكريم

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

وهل من الصغب جداً الضغط على الزر كل يوم (أو عند اي تعديل للبيانات ) مرة واحدة

[yasser_w_2010]

لا يا استاذنا الفاضل

واسف جدا لو بزعج حضرتك

وتم استخدام المكرو بتاع حضرتك

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

وشاكر لك جدا 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="Salim"
    If Target.HasFormula Then
       With Target
        .Locked = True
        .FormulaHidden = True
       End With
        ActiveSheet.Protect Password:="Salim"
    End If
  End Sub

ممكن اضافة كود عدم اظهار الاعمدة و الصفوف المخفية

بدون ميكرو

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

لا جاجة لجماية المعادلات اذا استخدمت هذا السطر في الكود بعد ازالة كلمة Rem من أمامه 

لأن اامعادلات تتجول الى قيم عادية

Rem Range("G11:Aj313").Value = Range("G11:Aj313").Value

 

 

[yasser_w_2010]

الف الف شكر استاذنا الكريم على مجهودك و تعبك