حذف سبک های ناخواسته

Question

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

Sub StyleKill()
    Dim styT As Style
    Dim intRet As Integer

    For Each styT In ActiveWorkbook.Styles
        If Not styT.BuiltIn Then
            intRet = MsgBox("Delete style " & styT.Name & "?", vbYesNo)
            If intRet = vbYes Then styT.Delete
        End If
    Next styT
End Sub

ماکرو فقط به کمی ورودی کاربر نیاز دارد. هر زمان که ماکرو یک سبک تعریف شده توسط کاربر را تشخیص داد، از شما پرسیده می شود که آیا می خواهید آن را حذف کنید. با کلیک بر روی دکمه Yes، استایل از Workbook حذف می شود.

شما باید از محدودیت های یک رویکرد کلان مانند این آگاه باشید. بزرگترین محدودیت این است که اگر ورک بوک شما به هر نحوی خراب باشد (و بله، احتمال وجود فساد در سبک های یک ورک بوک بسیار زیاد است)، این ماکرو آن فساد را برطرف نمی کند. در عوض، ممکن است بخواهید به یک راه حل سودمند شخص ثالث (XLStylesTool) نگاه کنید که در صورت نیاز به تمیز کردن سبک های خود به شیوه ای جامع تر، می تواند معجزه کند. می توانید اطلاعات بیشتر در مورد XLStylesTool را در اینجا بیابید:

https://apps.microsoft.com/store/detail/xlstylestool/9WZDNCRFJPTG