ارجو المساعده كود تحويل المعادلات الى قيم

[إبراهيم ابوليله]

اريد كود يعمل بزر عند الضغط عليه

يتم تحويل جميع المعدلات الموجوده فى الشيت باكمله

الى قيم

[عبدالله المجرب]

جرب هذا الكود

Sub Macro1()

On Error Resume Next

    Cells.SpecialCells(xlCellTypeFormulas, 23).Select

    Selection.Value = Selection

End Sub

[إبراهيم ابوليله]

الاخ عبد الله

بعد التحيه

ارجو ان تنظر الى المرفق

تحويل.rar

[رجب جاويش]

أخى الفاضل

جرب هذه الفكرة

تحويل معادلات الى قيم فقط.rar

[عبدالله المجرب]

جرب هذا الكود

Sub Button1_Click()

Dim cl As Range

On Error Resume Next

    Cells.SpecialCells(xlCellTypeFormulas, 23).Select

   For Each cl In Selection

   cl.Value = cl.Value2

	  Next

End Sub

[إبراهيم ابوليله]

هل يمكن تطبيق هذا الكود

على الشيت باكمله مره واحده

بمعنى ان يتم وضع الزر فى اول شيت

ويكون الشيت رقم 2 به معادلات

والشيت رقم 3 به معادلات

ثم عند الضغط على الزرمن شيت1 يتم تحويل جميع المعادلات الموجوده بكل شيت الى قيم

دون الحاجه

الى انشاء زر داخل كل شيت على حده لتنفيذ الكود

[رجب جاويش]

تفضل أخى

تحويل معادلات الى قيم فقط.rar

[إبراهيم ابوليله]

جميل بارك الله فيك اخ رجب

[إبراهيم ابوليله]

الاخوه الكرام

هل يمكن رب هذا الكود زمن معين لتنفيذ الكود

اى بمعنى انه يتم تحديد تاريخ معين وليكن مثلا 1-1-2013 وعندما ياتى هذا اليوم يتم تحويل جميع المعادلات الى قيم

[رجب جاويش]

تفضل أخى

يتم ادخال التاريخ الذى تريده فى الخلية N1

وعندما يأتى هذا التاريخ وتفتح الملف يتم تحويل المعادلات الى قيم دون الضغط على أى زر

تحويل معادلات الى قيم فقط.rar

[إبراهيم ابوليله]

الاخ رجب

طب هل يوجدكود يمكن عن طريقه

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

وبذلك ترجع المعادلات كما كانت

[إبراهيم ابوليله]

الاخ رجب

انا لاجد فى الكود مايدل على ان الخليه N1

هى الخليه المحدده

وماذا لو احببت تغير الخليه

ارجو التوضيح

بارك الله فيك

ولا تنسى اننا اخوات من محافظه واحده

فانا من مركز السنطه

واتمنى ان نكون اصدقاء بمعنى الكلمه

[إبراهيم ابوليله]

الاخ رجب عزرا للاطاله

ولكن هل يمكن عمل هذا الكود دون الحاجه الى خلايا

اى هل يمكن كتابه التاريخ بداخل الكود وهذا سيكون افضل

[رجب جاويش]

أخى الفاضل / ابراهيم

يسعدنى ويشرفنى أن نكون أصدقاء

بالنسبة للسؤال الأول : على حد علمى لا يمكن ارجاع القيم مرة أخرى الى المعادلات التى كانت عليها

بالنسبة للسؤال الثانى : الجزء الذى يحدد أن الخلية N1 هى الخلية المحددة موجود فى حدث workbook

Private Sub Workbook_Open()

If [n1].Value = Date Then

Call ragab

End If

End Sub

بالنسبة للسؤال الثالث : جعل التاريخ داخل الكود فهذا هو التعديل الذى يحقق ذلك

Private Sub Workbook_Open()

Dim a As Date

a = "23 / 5 / 2012"

If a = Date Then

Call ragab

End If

End Sub

وبالتالى يمكن تغير التاريخ كما تحب عن طريق تغيير قيمة المتغير a

وفى الختام لك جزيل الشكر من أخيك / رجب جاويش الذى يتشرف بصداقتك

تحويل معادلات الى قيم فقط1.rar

[إبراهيم ابوليله]

الاخ رجب بارك الله فيك

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

ادخال If Date > "01-05-2012" Then

وبذلك يصبح الكود

Sub ragab()

If Date > "01-05-2012" Then

Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets

With sh.UsedRange

.Copy

.PasteSpecial xlPasteValues

End With

Application.CutCopyMode = False

Next

Range("A4").Select

Application.ScreenUpdating = True

End Sub

مع الاخخ بكو

[إبراهيم ابوليله]

اسف اخ رجب ولكن

يكون الكود

Private Sub Workbook_Open()

If Date > "01-05-2012" Then

Dim sh As Worksheet

Application.ScreenUpdating = False

For Each sh In ThisWorkbook.Worksheets

With sh.UsedRange

.Copy

.PasteSpecial xlPasteValues

End With

Application.CutCopyMode = False

Next

Range("A4").Select

Application.ScreenUpdating = True

End If

End Sub

[رجب جاويش]

أحسنت أخى ابراهيم

فكرة جميلة

بارك الله فيك