Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If TypeName(Target.Comment) = "Comment" Then 'セルにコメントがあるか判定
Target.ClearComments 'コメントがあった場合はコメントを削除
ElseIf Target.Value = "" Then
'セルに何も記述されていなければ何もしない
Else
'コメントがなく、セルに何か書き込まれていれば実行
.AddComment 'コメントを追加
.Comment.Visible = True 'コメントを常に表示
.Comment.Text Target.Formula 'コメントの内容「セルの数式」にする場合はFormulaを使用します。
.Comment.Shape.Select True 'コメントを選択/選択しないとエラーになるよ
With Selection
.AutoSize = True 'コメントのサイズを自動調節
End With
End If
End With
End Sub
コメントを残す