تغییر رنگ نظر برای یک کاربر تک

Question

Mikki به دنبال راهی برای تغییر رنگ پیش فرض در نظرات کاربرگ است تا بتواند نظرات خود را جدا از نظرات دیگران تشخیص دهد.

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

1. روی سلول کلیک راست کرده و از منوی Context Edit Comment را انتخاب کنید. این نقطه درج را در نظر قرار می دهد که در صورت تمایل می توانید اطلاعات بیشتری را تایپ کنید.
2. بر روی حاشیه نظرات کلیک راست کرده و از منوی Context، گزینه Format Comment را انتخاب کنید. اکسل کادر محاوره ای Format Comment را نمایش می دهد.
3. از کنترل های موجود در کادر محاوره ای برای تغییر نحوه نمایش نظر استفاده کنید.
4. روی OK کلیک کنید.

این مراحل همه خوب و خوب هستند، اما فقط روی نظر فعلی تأثیر می گذارند. اگر می خواهید برای هر نظری که در آینده اضافه می کنید یک پیش فرض تنظیم کنید، اکسل قالب بندی شما را به خاطر نمی آورد و راهی برای ایجاد تغییر در پیش فرض ها فراهم نمی کند. در عوض، اکسل قالب بندی پیش فرض نظرات خود را از خود ویندوز می گیرد. می توانید با تغییر ویژگی های نمایشگر ویندوز، به ویژه تنظیمات نمایش ToolTip، این مورد را تغییر دهید. اگر این را تغییر دهید، پس نحوه فرمت اکسل نظرات خود را تغییر داده اید. (شما همچنین نحوه نمایش ToolTips را در هر برنامه دیگری در سیستم خود تغییر داده اید.)

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

Sub AddMyComment()
    Dim sUserName As String
    Dim  addr As String

    sUserName = Application.UserName

    With ActiveCell
        addr = .Address

        If sUserName = "Mikki" Then
            ActiveSheet.Range(addr).AddComment
            Range(addr).Comment.Shape.Select True
            Selection.ShapeRange.Fill.ForeColor.SchemeColor = 41
        Else
            Range(addr).AddComment
        End If
    End With
End Sub

اگر از قبل یک کاربرگ دارید که حاوی نظرات زیادی است، ممکن است بخواهید به دنبال نظراتی بگردید که متن "Mikki" در آنها وجود دارد و سپس رنگ آن نظرات را تغییر دهید. این کلان متناسب با این لایحه است:

Sub ColorMyComments1()
    Dim myCom As Comment

    For Each myCom In ActiveSheet.Comments
    If InStr(myCom.Text, "Mikki") <> 0 Then
        myCom.Shape.Fill.ForeColor.SchemeColor = 41
    End If
    Next myCom
End Sub

درک کنید که اگر متن "Mikki" در هر جایی از متن نظر ظاهر شود، ماکرو رنگ را تغییر می دهد. یک تغییر جزئی از ماکرو ویژگی comments Author را بررسی می کند و اگر روی "Mikki" تنظیم شود، این تغییر را ایجاد می کند:

Sub ColorMyComments2()
    Dim myCom As Comment

    For Each myCom In ActiveSheet.Comments
    If myCom.Author = "Mikki" Then
        myCom.Shape.Fill.ForeColor.SchemeColor = 41
    End If
    Next myCom
End Sub