پاک کردن همه چیز به جز فرمول های در اکسل

Question

Roni می خواهد همه چیز را در یک کاربرگ پاک کند به جز سلول هایی که ممکن است حاوی فرمول باشند. این کار را می توان به صورت دستی یا با استفاده از ماکرو انجام داد.

اگر می خواهید پاکسازی را به صورت دستی انجام دهید، می توانید این مراحل را دنبال کنید:

شکل 1. کادر محاوره ای برو به.

شکل 2. کادر محاوره ای Go To Special.

1. F5 را فشار دهید . اکسل کادر گفتگوی Go To را نمایش می دهد. (شکل 1 را ببینید.)
2. روی دکمه Special کلیک کنید. اکسل کادر محاوره ای Go To Special را نمایش می دهد. (شکل 2 را ببینید.)
3. دکمه رادیویی Constants را انتخاب کنید. سپس چهار چک باکس زیر گزینه Formulas در دسترس می‌شوند. (این می تواند کمی گیج کننده باشد. اینکه چرا مایکروسافت باعث شد دکمه رادیویی Constants برخی از چک باکس های زیر یک دکمه رادیویی دیگر را کنترل کند، بلافاصله مشخص نیست.)
4. مطمئن شوید که تمام چک باکس های زیر دکمه رادیویی Formulas انتخاب شده اند. (آنها باید به طور پیش فرض انتخاب شوند.)
5. روی OK کلیک کنید. اکسل تمام ثابت ها (سلول هایی که حاوی فرمول نیستند) را در کاربرگ انتخاب می کند.
6. کلید Del را فشار دهید .

اگر فقط لازم باشد هر چند وقت یکبار محتویات غیر فرمول یک کاربرگ را پاک کنید، این عالی کار می کند. اگر نیاز دارید این کار را بیشتر انجام دهید، می توانید به سادگی از ضبط کننده ماکرو برای ضبط مراحل بالا استفاده کنید. یا، اگر ترجیح می دهید، می توانید ماکرو خود را از ابتدا ایجاد کنید، مانند مورد زیر:

Sub ClearAllButFormulas()
    Dim wks As Worksheet

    ignore errors in case there is only formulas
    On Error Resume Next
    For Each wks In Worksheets
        wks.Cells.SpecialCells(xlCellTypeConstants).ClearContents
    Next
    On Error GoTo 0
    Set wks = Nothing
End Sub

این ماکرو مخصوصاً در صورتی مفید است که بخواهید تمام سلول‌های غیر فرمول را در کل کتاب کار پاک کنید. دلیل آن این است که پاک کردن هر کاربرگ در کل کتاب کار را بدون نیاز به پاکسازی به صورت دستی انجام می دهد.

هنگام استفاده از این ماکرو باید احتیاط کنید. قبل از اجرای این ماکرو مطمئن شوید که واقعاً می خواهید همه چیز را پاک کنید، به جز سلول هایی که حاوی فرمول هایی در کاربرگ یا کتاب کار هستند. شرم آور است که به طور تصادفی از محتویات سلول هایی خلاص شوید که واقعاً باید نگه دارید. اگر در مورد چنین امکانی کمی بداخلاق هستید، ممکن است بخواهید از نسخه زیر ماکرو استفاده کنید:

Sub ClearAllButFormulas2()
    Dim wks As Worksheet
    Dim sTemp As String
    Dim iCheck As Integer

    sTemp = "This macro deletes everything in the current "
    sTemp = sTemp & "workbook except formulas. Once done, "
    sTemp = sTemp & "it cannot be undone." & vbCrLf & vbCrLf
    sTemp = sTemp & "Are you sure you want to continue?"

    iCheck = MsgBox(sTemp, vbYesNo + vbExclamation, "Warning!")

    If iCheck = vbYes Then
        ignore errors in case there is only formulas
        On Error Resume Next
        For Each wks In Worksheets
            wks.Cells.SpecialCells(xlCellTypeConstants).ClearContents
        Next
        On Error GoTo 0
    Else
        MsgBox "Operation cancelled."
    End If
End Sub

این نسخه یک جعبه پیام نمایش می دهد که از شما می پرسد آیا مطمئن هستید که می خواهید پاکسازی را انجام دهید. نتیجه این است که شما شانس کمتری دارید که کتاب کار خود را تصادفی خراب کنید.