[[20050124171433]]　『コメントの一括削除』（123）　ページの最後に飛ぶ

『コメントの一括削除』（123）

印刷するときに、コメントを印刷させたり、
常に画面に表示させたりすることはできますが、
シートに表示されているいくつかのコメントを、
一括で削除することは可能なんでしょうか？

 「編集」＞「ジャンプ」で「セル選択」でコメントを選択するとコメントが
挿入されているセルが選択されます。それで削除したら如何ですか？
（ケン）

 コメントはコメントでも表示されているコメントだけ削除すると解釈しました。
標準モジュールに貼り付けて範囲を選択してから実行です。
Option Explicit
Sub Macro1()
Dim C As Range
For Each C In Selection
    If TypeName(C.Comment) <> "Nothing" Then
        If C.Comment.Visible Then
            C.ClearComments
        End If
    End If
Next
End Sub
（SoulMan）

コメント返信：

[ 一覧(最新更新順) ]

[[20050124171433]] 『コメントの一括削除』（123） ページの最後に飛ぶ

[[20050124171433]]　『コメントの一括削除』（123）　ページの最後に飛ぶ