－ちょっと使えるネタを紹介－
Excel VBAで、コメントを追加、削除、取得する方法について、ご紹介します。コメントの追加は、「AddComment」を使うとできます。削除は、「ClearComments」、取得は、「Comment.Text」を使います。コメントは便利な機能で、VBAで自動化できると、さらに使い勝手がよくなります。
この記事では、コメントを追加、削除、取得する方法について、ご紹介します。
コメントの追加は、「AddComment」を使うとできます。
追加したコメントを取得するには、「.Comment.Text」を使うとできます。
コメントを削除したい場合は、「ClearComments」です。
では、コメントの追加、削除、取得について、解説していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
VBAで、コメントを追加するには、「AddComment」を使います。
やってみます。
セルA3にコメントを追加してみます。
VBAコードは次のようになります。
Sub TEST1()
With Range("A3")
'コメントを追加
.AddComment
'コメントを入力
.Comment.Text "コメント"
End With
End Sub
実行する前のセルです。
では、実行してみます。
セルA3に、コメントを追加することができました。
コメントは、デフォルトで非表示なので、カーソルをセルA3に合わせると、コメントが表示されます。
セルの値をコメントに追加する、というのをやってみます。
コメントに入力する値は、自由に変更できるので、セルの値を入力することもできます。
VBAコードはこんな感じになります。
Sub TEST2()
With Range("A3")
'コメントを追加
.AddComment
'コメントを入力
.Comment.Text .Text
End With
End Sub
実行する前のセルです。
このセルの値を、コメントに入力します。
セルの値「abc」をコメントに入力できました。
コメントを追加するときに、既にコメントが入力されていると、エラーとなりますので、注意です。
ちょっとやってみます。
コメントを追加するVBAコードです。
Sub TEST3()
With Range("A3")
'コメントを追加
.AddComment
'コメントを入力
.Comment.Text "コメント"
End With
End Sub
既にコメントが追加されているセルを用意しました。
では、コメントを追加するVBAコードを実行してみます。
結果は、エラーとなりました。
既にコメントがあるセルに、コメントを追加しようとすると、エラーとなりますので、注意です。
コメントを追加する際には、コメントが入力されているかを、判定して、コメントを追加するとエラーを回避することができます。
コメントが入力されているかを判定するには、「TypeName」を使います。
コメントを判定するVBAコードは、こんな感じになります。
Sub TEST4()
With Range("A3")
'コメントが入力されている場合
If TypeName(.Comment) = "Comment" Then
MsgBox "コメントがあります"
'コメントが入力されていない場合
Else
MsgBox "コメントはありません"
End If
End With
End Sub
コメントを入力したセルを用意しました。
では、VBAコードを実行してみます。
結果は、「コメントがあります」となりました。
コメントが入力されているので、正しく判定できています。
コメントが入力されていない場合に、コメントを追加するVBAコードは、こんな感じになります。
Sub TEST5()
With Range("A3")
'コメントが入力されている場合
If TypeName(.Comment) = "Comment" Then
MsgBox "コメントがあります"
'コメントが入力されていない場合
Else
'コメントを追加
.AddComment
'コメントを入力
.Comment.Text "コメント"
End If
End With
End Sub
次は、コメントが入力されていないセルを用意しました。
では、実行してみます。
コメントを追加できました。
もう一度、VBAを実行してみます。
コメントが既に入力されているので、メッセージが表示されました。
こんな感じで、コメントの判定をした後に、コメントを追加すると、エラーを回避することができます。
VBAで、コメントを表示したり、非表示にしたりしてみます。
使うVBAコードは、「Visible」です。
コメントを表示するVBAコードは、こんな感じになります。
Sub TEST6()
'コメントを表示
Range("A3").Comment.Visible = True
End Sub
非表示のコメントを用意しました。
では、VBAコードを実行して、コメントを表示してみます。
コメントを、表示することができました。
次は、コメントを非表示にしてみます。
コメントを非表示にするVBAコードは、こんな感じになります。
Sub TEST7()
'コメントを非表示
Range("A3").Comment.Visible = False
End Sub
表示されているコメントを用意しました。
では、VBAコードを実行して、コメントを非表示にしてみます。
コメントを、非表示にすることができました。
VBAでコメントを取得してみます。
コメントの取得は、「.Comment.Text」を使うとできます。
こんな感じで取得できます。
Sub TEST8()
'コメントを取得
Debug.Print Range("A3").Comment.Text
End Sub
セルにコメントを入力しておきました。
では、コメントを取得してみます。
コメントを取得することができました。
次は、コメントを削除してみます。
コメントの削除は、「ClearComments」を使います。
コメントを削除する、VBAコードはこんな感じになります。
Sub TEST9()
'コメントを削除
Range("A3").ClearComments
End Sub
セルにコメントを入力しておきました。
では、VBAコードを実行して、コメントを削除してみます。
コメントを削除できました。
コメントの追加と削除をまとめてみます。
ちょっと実務的な内容です。
ダブルクリックで、コメントの追加と削除できるようにしてみます。
といった感じです。
VBAコードは、こんな感じになります。
'ダブルクリックで実行 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'アクティブを解除 Cancel = True With Target 'コメントが入力されている場合 If TypeName(.Comment) = "Comment" Then .ClearComments 'コメントが入力されていない場合 Else 'コメントを追加 .AddComment 'コメントを表示 .Comment.Visible = True 'コメントに、セルの数式を入力 .Comment.Text Target.Formula End If End With End Sub
Sheet1のコードに入力しています。
セルA3に数式「=1+2」を入力しておきました。
では、セルA3をダブルクリックしてみます。
セルA3に、コメントが追加されました。
コメントは、セルA3に入力されている数式が、入力されました。
では、もう一度、セルA3をダブルクリックしてみます。
セルA3のコメントが、削除されました。
という感じで、コメントの追加と削除が簡単にできます。
この記事では、コメントを追加、削除、取得する方法について、ご紹介しました。
コメントの追加は、「AddComment」を使うとできます。
追加したコメントを取得するには、「.Comment.Text」を使うとできます。
コメントを削除したい場合は、「ClearComments」です。
コメントは、Excelの便利な機能ですので、VBAで自動化して、さらに使い勝手をよくしていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する