Mikkiは、ワークシートのコメントのデフォルトの色を変更して、他の人のコメントとは別に自分のコメントを伝える方法を探しています。

ワークシートのセルにコメントを追加すると、Excelでそのコメントに使用される書式を変更できます。コメントが作成されたら、次の手順に従います。

。セルを右クリックして、コンテキストメニューから[コメントの編集]を選択します。

これにより、コメント内に挿入ポイントが配置され、必要に応じて詳細情報を入力できます。

。コメントの境界線を右クリックし、表示されるコンテキストメニューから[コメントのフォーマット]を選択します。 Excelは、[コメントの書式設定]ダイアログボックスを表示します。

。ダイアログボックスのコントロールを使用して、コメントの表示方法を変更します。

。 [OK]をクリックします。

これらの手順はすべて問題なく機能しますが、現在のコメントにのみ影響します。将来追加するコメントのデフォルトを設定する場合、Excelはフォーマットを記憶せず、デフォルトに変更を加える方法を提供しません。代わりに、ExcelはWindows自体からデフォルトのコメント形式を取得します。これは、Windowsの表示プロパティ、特にツールチップの表示設定を変更することで変更できます。これを変更すると、Excelがコメントをフォーマットする方法が変更されます。 （システム上の他のすべてのプログラムでのツールチップの表示方法も変更しました。）

回避策は、マクロを使用してコメントを挿入することです。マクロはコメントを挿入するだけでなく、必要に応じてフォーマットすることもできます。

選択したセルにコメントを挿入し、ユーザー名が「Mikki」の場合は背景色をターコイズにする短いマクロの例を次に示します。 （ユーザーの名前はExcelのセットアップで定義されます。）

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」の場合、マクロの色が変わることを理解してください

コメントテキスト内の任意の場所に表示されます。マクロのわずかなバリエーションでコメントの作成者属性がチェックされ、「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

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（12567）は、Microsoft Excel 2007、2010、および2013に適用されます。