Excelですべてのコメントの作成者名を変更するにはどうすればよいですか？

ワークシートにコメントを挿入すると、コメント作成者の名前が自動的にコロン付きでコメントに挿入されます。場合によっては、コメント作成者の名前を変更したいこともあるでしょう。そのような場合、どのようにすればよいでしょうか？以下の方法でExcelのコメント作成者の名前を変更できます。

Excel オプションを設定してすべての新しいコメントのデフォルトの作成者名を変更する

Kutools for Excelを使用して、アクティブなシートまたはすべてのシートにある既存のコメントの作成者名を迅速に変更する

VBAコードを使用してブック全体のすべての既存コメントの作成者名を変更する

Excel オプションを設定してすべての新しいコメントのデフォルトの作成者名を変更する

すべての新しいコメントの作成者名を変更するために、Excelのユーザー名を変更することができます。

1. Excel 2010/2013/2016では「ファイル」>「オプション」をクリックするか、Excel 2007では「Office ボタン」>「Excel オプション」>「全般」をクリックします。

2. 「Excel オプション」ダイアログボックスで左側のバーにある「全般」をクリックし、右ペインの「Microsoft Office のコピーをパーソナライズする」セクションまでスクロールし、古い「ユーザー名」を必要な新しい名前に置き換えます。最後に「OK」ボタンをクリックします。スクリーンショットをご覧ください：

これ以降、新しいコメントをワークシートに挿入する際には、上記で指定した新しい名前が作成者名として表示されます。ただし、古いコメントの作成者名は以前のまま保持されます。

Kutools for Excelを使用して、既存のすべてのコメントの作成者名を簡単に検索して置換する

上記の方法に加え、ここではKutools for Excelの「コメント内のユーザー名の削除/追加」機能をお勧めします。このツールを使用することで、アクティブなシートだけでなく、ブック全体のすべての既存コメントの作成者名を必要な新しい名前に簡単に変更できます。

1. すべてのコメントの作成者名を変更したいワークシートに切り替え、「Kutools」>「 その他」>「コメント内のユーザー名の削除/追加」をクリックします。スクリーンショットをご覧ください：

2. 「コメント内のユーザー名の削除/追加」ダイアログボックスで、以下のように設定する必要があります：

まず、指定された範囲内のすべてのコメントから作成者名を削除します。

• (1) 現在のシートの作成者名だけを変更したい場合は、「アクティブなシート」オプションを選択してください。ブック全体の作成者名を変更する場合は、「すべてのシート」オプションを選択してください。
• (2) 「コメントからユーザー名を削除する」オプションを選択します。
• (3) 「適用」ボタンをクリックします。
• (4) 表示されるダイアログボックスで「OK」ボタンをクリックします。

次に、指定された範囲内のすべてのコメントに新しい作成者名を追加します。

• (1) 「ユーザー名」ボックスに新しいコメントの作成者名を入力し、「 コメントにユーザー名を追加する」オプションを選択します。
• (2) 「適用」ボタンをクリックします。
• (3) 表示されるダイアログボックスで「OK」ボタンをクリックします。
• (4) ダイアログボックスを閉じるには「閉じる」ボタンをクリックします。

VBAコードを使用して範囲内のすべての負の数値を正の数値に変換する

ブック全体のすべての既存コメントの作成者名を変更したい場合、以下のVBAコードが役立ちます：

1. Alt + F11キーを同時に押して「Microsoft Visual Basic for Applications」を開きます。「Microsoft Visual Basic for Applications」ウィンドウで「挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウにコピー＆ペーストします。

VBAコード: ブック全体のすべての既存コメントの作成者名を変更する

Sub ChangeCommentName()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
xTitleId = "KutoolsforExcel"
oldName = InputBox("Old Name", xTitleId, Application.UserName)
newName = InputBox("New Name", xTitleId, "")
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        xComment.Text (Replace(xComment.Text, oldName, newName))
    Next
Next
End Sub

2. コードを実行するにはF5キーを押すと、古いコメント作成者名がテキストボックスに表示された「KutoolsforExcel 」ダイアログボックスがポップアップしますので、「OK」ボタンをクリックしてください。スクリーンショットをご覧ください：

3. 次に別の「KutoolsforExcel」ダイアログボックスがポップアップしますので、必要な新しいコメントの作成者名をテキストボックスに入力し、「OK」ボタンをクリックしてください。スクリーンショットをご覧ください：

これで、ブック全体のすべての既存コメントの作成者名が新しい名前に即座に変更されました。

注: この方法は新しく挿入するコメントには適用されません。

デモ: Kutools for Excelを使用してすべてのコメントの作成者名を変更する

関連記事