كود يحذف جميع المعادلات بورقة العمل مع الإبقاء علي القيم

[حماده سعد الله]

السلام عليكم أحبائي في الله وكل عام وأنتم بخير

أرغب في {كود يحذف جميع المعادلات بورقة العمل مع الإبقاء علي القيم }

ولكم جزيل الشكر

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

جرب هذا الشيء

Sub Without_formulas()
With ActiveSheet.UsedRange.SpecialCells(-4123, 23)
.Value = .Value
End With

End Sub

 

[حماده سعد الله]

شكرا جزيلا الأخ سليم بارك الله فيك عمل رائع من أستاذ رائع ولكن هل يمكنك عمل تعديل بحيث يكون المسح أوتوماتيكي بعد زمن معين أو بعد تاريخ معين دون الحاجة إلي تفعيل الكود؟

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

7 ساعات مضت, حماده سعد الله said:

شكرا جزيلا الأخ سليم بارك الله فيك عمل رائع من أستاذ رائع ولكن هل يمكنك عمل تعديل بحيث يكون المسح أوتوماتيكي بعد زمن معين أو بعد تاريخ معين دون الحاجة إلي تفعيل الكود؟

يلزمك في هذه الحالة هذا الكود

Private Sub Worksheet_Activate()
Dim my_date As Date
my_date = #4/30/2016# 'يمكتك اختيار التاريخ  هنا اخر نيسان
If Date > my_date Then
With ActiveSheet.UsedRange.SpecialCells(-4123, 23)
.Value = .Value
End With
End If

End Sub

 

[مهند الزيدي]

شكر جزيل للاخ سليم ... وفقك الله لكل خير 

ممكن عمل كود يعمل في حدث المصنف يعمل على تحويل المعادلات في كل أوراق العمل الى قيم بعد مدة معينة

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

طبعاً يمكن ذلك

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim my_date As Date
my_date = #4/30/2016#

If Date > my_date Then
    With Sh.UsedRange.SpecialCells(-4123, 23)
        .Value = .Value
    End With
End If
End Sub