تغییر رنگ نشانگر نظر در اکسل

Question

فرانسوا از خود می‌پرسد که آیا می‌توان رنگ مثلثی را که در گوشه سمت راست بالای یک سلول ظاهر می‌شود، وقتی یک نظر مرتبط با سلول وجود دارد، تغییر داد. مثلث به طور پیش‌فرض قرمز است، اما فرانسوا دوست دارد رنگ دیگری داشته باشد که برایش راحت‌تر دیده شود.

مواردی وجود دارد که به نظر می رسد به سادگی در اکسل کدگذاری شده اند و نمی توان آنها را تغییر داد. رنگ نشانگر نظر یکی از این موارد است. حتی بازی با تنظیمات رنگ های مختلف در ویندوز هیچ تاثیری روی نشانگرها نداشت.

این موضوعی است که سال ها در انجمن اکسل در مورد آن سوال و بحث شده است. یک راه حل بالقوه توسط MVP Debra Dagliesh در این صفحه ارائه شده است:

http://www.contextures.com/xlcomments03.html#Indicator

راه حل ارائه شده در آنجا در واقع برای چاپ طراحی شده بود. (اکسل نشانگرهای نظر را هنگام چاپ یک کاربرگ چاپ نمی کند، اما ممکن است بخواهید نشانگرها چاپ شوند.) ماکرویی که دبرا ارائه می دهد را می توان به راحتی تغییر داد تا گرافیک مورد استفاده هر رنگ دلخواه باشد.

البته اشکالی که در چنین رویکردی وجود دارد این است که برای هر نظری که دارید یک گرافیک به کاربرگ شما اضافه می کند. اگر نظرات زیادی در کاربرگ داشته باشید، در نهایت تصاویر گرافیکی زیادی خواهید داشت. علاوه بر این، هنگام ویرایش کاربرگ، افزودن و حذف سلول‌ها، گرافیک‌ها ممکن است «در جای خود باقی نمانند». اگر کامنت‌ها را اضافه یا حذف کنید، باید گرافیک‌ها را نیز حذف کنید (دبرا یک ماکرو برای این کار ارائه می‌کند) و ماکرو را دوباره اجرا کنید تا گرافیک‌ها را دوباره اضافه کنید.

یکی دیگر از گزینه های بالقوه استفاده از ماکرو برای رنگ آمیزی پس زمینه هر سلولی است که حاوی نظر است. ماکرو زیر به سلول‌هایی که انتخاب کرده‌اید نگاه می‌کند و سپس رنگ سلول‌های حاوی نظر را تغییر می‌دهد.

Sub ColorComments()
    Dim commentCell As Range
    On Error GoTo ErrorHandler Deal with empty selection

    Selection.SpecialCells(xlCellTypeComments).Select
    On Error GoTo 0
    For Each commentCell In Selection.Cells
        commentCell.Interior.ColorIndex = 36
    Next
    Range("A1").Select
    Exit Sub
ErrorHandler:
    Error Handler is deliberately empty
End Sub

اشکالی که در این ماکرو وجود دارد این است که در صورت حذف نظرات، حذف علامت هیچ سلولی آسان نیست. همچنین باید با اضافه کردن نظرات جدید به کاربرگ، ماکرو را مجدداً اجرا کنید.