1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. セルにコメントを付ける

セルにコメントを付ける:Excel VBA入門

コメントの追加・削除・変更　　　Topへ

コメントの追加

• セルにコメントを追加する。なお、コメントは常に表示する設定にします。
  • コメントの追加：.AddCommentメソッド
    表示：.Visibleプロパティ・・・Trueで常に表示。Falseでマウスポインタでセルをポイントしたときに表示、それ以外は非表示。
  • コード例：A3セルに「ここには1〜12を入力してください」とコメントを追加します。
    

    Sub Macro1_1() 　　Range("A3").AddComment 　　Range("A3").Comment.Visible = True 　　Range("A3").Comment.Text Text:="ここには1〜12を入力してください" End Sub

  • このように書くこともできます。
    

    Sub Macro1_2() 　　Range("A3").AddComment "ここには1〜12を入力してください" 　　Range("A3").Comment.Visible = True End Sub

  • 実行後の状況
    
• 計算値などをコメントに表示する
  セルの値に応じて表示を変更するには、Worksheet_Changeイベントを利用します。
  • コード例
    

    Private Sub Worksheet_Change(ByVal Target As Range) 　Dim myComment As String 　　If Target.Address(0, 0) <> "A1" Then Exit Sub 　　myComment = "消費税額は" & Int(Range("A1").Value * 0.05) & "です" 　　If Not Range("A3").Comment Is Nothing Then 　　　　Range("A3").Comment.Text myComment 　　Else 　　　　Range("A3").AddComment myComment 　　End If 　　　　Range("A3").Comment.Visible = True End Sub

  • 実行状況
    

コメントの削除

• セルに設定されたコメントを削除します。
  • コード例
    

    Sub Macro2() 　　Range("A3").ClearComments End Sub

• セルにコメントが設定されていた場合、コメントを追加するとエラーになりますので、追加する前にコメントの有無を判定します。
  • コード例
    

    Sub Macro3() 　　If Not Range("A3").Comment Is Nothing Then 　　　　Range("A3").ClearComments 　　End If 　　Range("A3").AddComment "ここには1〜12を入力してください" 　　Range("A3").Comment.Visible = True End Sub

コメントの変更

• コメントが既に設定されているとき、コメントを書き換える。
  • コード例
    

    Sub Macro4() 　　If Not Range("A3").Comment Is Nothing Then 　　　　Range("A3").Comment.Text Text:="コメントを変更しました" 　　Else 　　　　Range("A3").AddComment "ここには1〜12を入力してください" 　　End If 　　Range("A3").Comment.Visible = True End Sub

  • 実行後の状況
    

コメントのサイズを変更する　　　Topへ

• コメントの枠サイズを自動調整します。
  • コード例
    

    Sub Macro5_1() 　　If Not Range("A3").Comment Is Nothing Then 　　　　Range("A3").Comment.Text Text:="コメントを変更しました" 　　Else 　　　　Range("A3").AddComment "ここには1〜12を入力してください" 　　End If 　　Range("A3").Comment.Visible = True 　　Range("A3").Comment.Shape.TextFrame.AutoSize = True End Sub

  • 実行状況
    
    
    
• 高さと幅を指定します。
  • コード例
    

    Sub Macro5_2() 　　If Not Range("A3").Comment Is Nothing Then 　　　　Range("A3").Comment.Text Text:="コメントを変更しました" 　　Else 　　　　Range("A3").AddComment "ここには1〜12を入力してください" 　　End If 　　Range("A3").Comment.Visible = True 　　Range("A3").Comment.Shape.Width = 100 　　Range("A3").Comment.Shape.Height = 30 End Sub

  • 実行状況
    

スポンサードリンク

PageViewCounter
　
　Since2006/2/27