NEW ARTICLE
Oracle Database ユーザーにロールを付与する
  1. HOME
  2. vba
  3. VBA コメントを設定する

VBA コメントを設定する

  • 作成日 2021.09.30
  • vba
VBA コメントを設定する

VBAで、コメントを設定するコードを記述してます。

目次

環境

  • OS windows10 64bit

サンプルコード

コメントを設定するには、「AddComment」を使用します。

Range("A1").AddComment Text:="コメントデータ"

適当なボタンを用意して、指定したセルにコメントを追加する
以下のソースコードを記述します。

ソースコード

Option Explicit

Private Sub CommandButton1_Click()

    Range("B3").AddComment Text:="コメントを追加します"

End Sub

ボタンをクリックすると、コメントが追加されていることが確認できます。

また、既にコメントがあるところに、コメントを追加しようとするとエラーとなってしまいます。

これを防ぐためには、既にコメントがあるかどうかを一度判定する「Comment」を使用します。

If TypeName(Range("B3").Comment) = "Nothing" Then
    Range("B3").AddComment Text:="コメントを追加します"
End If

これで、もしコメントがあれば、コメントを追加する処理が実行されないため、エラーになりません。

コメント削除

削除する場合は「ClearComments」で可能です。

Range("B3").ClearComments

実行結果

コメントを再追加

コメントを再追加するには、コメントがあれば一度削除して、その後に追加を行います。

Option Explicit

Private Sub CommandButton1_Click()

    If TypeName(Range("B3").Comment) = "Nothing" Then
        
        Range("B3").AddComment Text:="コメントを追加します"
        
    Else
    
        Range("B3").ClearComments
        Range("B3").AddComment Text:="コメントを再追加します"
        
    End If
    

End Sub

実行結果

コメントの形を指定する

コメントの形を指定するには「AutoShapeType」で値を指定します。

Option Explicit

Private Sub CommandButton1_Click()

    Dim cmt As Comment

    If TypeName(Range("B3").Comment) = "Nothing" Then
        
        Set cmt = Range("B3").AddComment(Text:="コメントを追加します")
        cmt.Shape.AutoShapeType = 12
        
    End If
    

End Sub

実行結果

コメントに指定できる形は、こちらのサイトで確認可能です。