حذف همه چیز به جز فرمول ها

Question

در ابتدای هر سال ریچارد یک کپی از ورک بوک اکسل سالهای قبل تهیه می کند. برای آماده شدن برای داده های سال جدید، او باید همه چیز را در نسخه به جز فرمول ها حذف کند. ریچارد متعجب است که آیا راه سریعی برای انجام این کار وجود دارد؟

در واقع، یک راه بسیار سریع برای حذف دستی تمام اطلاعات غیر فرمول در یک کاربرگ وجود دارد. این مراحل را دنبال کنید:

شکل 1. کادر گفتگوی Go To Special.

1. F5 را فشار دهید . اکسل کادر گفتگوی Go To را نمایش می دهد.
2. روی Special کلیک کنید. اکسل کادر محاوره ای Go To Special را نمایش می دهد. (شکل 1 را ببینید.)
3. مطمئن شوید که دکمه رادیویی Constants انتخاب شده است. (این بسیار مهم است - روی هیچ گزینه دیگری در کادر گفتگو کلیک نکنید.)
4. روی OK کلیک کنید. تمام سلول های حاوی ثابت (همه چیز به جز فرمول ها) انتخاب می شوند.
5. کلید Del را فشار دهید .

اگر کاربرگ های زیادی در یک ورک بوک دارید و می خواهید همه ثابت ها را از هر یک از کاربرگ ها حذف کنید، ممکن است بخواهید از یک ماکرو استفاده کنید که مراحل بالا را برای کل ورک بوک خودکار می کند.

Sub DelAllConstants()
    Dim wks As Worksheet
    Dim rng As Range

    For Each wks In ThisWorkbook.Worksheets
        On Error Resume Next
        Set rng = wks.Cells.SpecialCells(xlCellTypeConstants, 23)
        On Error GoTo 0
        If Not rng Is Nothing Then
            rng.ClearContents
        End If
        Set rng = Nothing
    Next
    Set wks = Nothing
End Sub