غیر فعال کردن فرمول ها

[Amin_D]

با سلام

میخواستم ببینم راهی هست برای شیت(شیت هایی) که فرمول دارند ، فرمول ها رو غیر فعال کنیم. و هر وقت احتیاج داشتیم اونا رو فعال کنیم.

با تشکر

[Ali Parsaei]

سلام،
يک چيز ابتدايي که همين جوري عجله اي فعلا" به ذهنم مي رسد اين است که با find و replace علامت "=" را در شيت را مثلا" با "= " (فاصله خالي مساوي) عوض کنيد!

[mokaram]

ایده ای که به ذهن من رسیده اینه که بشه دو تا دکمه تعبیه کرده که با زدن اولی فرمول ها غیر فعال بشن ( در حقیقت علامت " ' " در ابتدای فرمول بیاد ) و با زدن دکمه دومی مجدداً فرمولها فعال بشن ( علامت " ' " از ابتدای فرمول ها حذف بشه ) البته تا یه جاهایی از این را پیش رفتم فقط تو قسمت دومش مشکل دارم اگه دوستان میتونن کمکی کنن قسمت دوم را حل کنن ممنون میشم ( بی شک راه های ساده تری هم هست که دوستان ارائه میدن اما این روش و اجرایی شدن اون برای خودم جالبه اگه بشه )

کد برای قسمت اول

Sub FindFormulaCells()
For Each cl In ActiveSheet.UsedRange
    If cl.HasFormula() = True Then
'        cl.Interior.ColorIndex = 24
        cl.Value = "'" & cl.Formula
    End If
Next cl
End Sub 

[majid_mx4]

با سلام به همه دوستان و پاسخهای خوبشان

از دستورات زیر نیز میتوانید استفاده نمایید.

Sub Mmanual()
Application.Calculation = xlCalculateManual
End Sub

و برای فعال کردن مجدد

Sub MAutomatic()
Application.Calculation = xlCalculationAutomatic
End Sub

با تشکر میر

[Amin_D]

با سلام به همه دوستان و پاسخهای خوبشان

از دستورات زیر نیز میتوانید استفاده نمایید.

Sub Mmanual()
Application.Calculation = xlCalculateManual
End Sub

و برای فعال کردن مجدد

Sub MAutomatic()
Application.Calculation = xlCalculationAutomatic
End Sub

با تشکر میر

سلام
دستوراتی رو فرمودین بایستی در یک ماژول ذخیره کنم و بعد اجرا کنم؟

[mokaram]

سلام
دستوراتی رو فرمودین بایستی در یک ماژول ذخیره کنم و بعد اجرا کنم؟

با اجازه استاد میر

بله جناب دادور تو یه ماژول ذخیر کنید و تو شیت مورد نظر دو باتن تعبیه کنید و هر قطعه کد را به یکی از باتن ها نسبت دهید

[ebitary]

میتونید از کلید ترکیبی ctrl+~ استفاده کنید

[Amir Ghasemiyan]

سلام
دستوراتی رو فرمودین بایستی در یک ماژول ذخیره کنم و بعد اجرا کنم؟

کدی که جناب میر خدمتتون ارائه دادن در واقع یکی از تنظیمات اکسل هست که از دو طریق دیگه هم قابل دسترسی هست
یکی در excel options که در تصویر زیر میبینید


یکی در تب formula که در شکل زیر مشاهده میفرمایید

میتونید از کلید ترکیبی ctrl+~ استفاده کنید

دوست عزیز کلید ترکیبی که شما فرمودین در واقع فقط باعث نمایش محتوای فرمول میشه (در تب formulas گزینه show formulas). مانع از محاسبه فرمول نخواهد شد