VBA セルをダブルクリックしたら数式をコメントする

1 セルをダブルクリックしたら数式をコメントする
- 1.1 セルの数式をコメント化するのコード
- 1.2 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

セルをダブルクリックしたら数式をコメントする

という訳で「セルをダブルクリックしたら数式をコメントする」って？

と思われるかと思いますのでちょっとご紹介(^^♪

「Excel入門　セルの参照「相対参照・絶対参照について」」で紹介している記事の中でこのような画像があります

はい、最近VBA記事で良く取り上げていた「コメント」です(^^)

このコメントをExcelの解説に使うことで、私のブログ作業効率を挙げようという魂胆です(笑)

ですが、普通にコメントを使用しているのでは、、かなりの手間で正直しんどいです(;´∀｀)

なので今回はVBAで「セルをダブルクリックしたらそのセルの数式をコメント化」するコードを作成してみました(^^)/

セルの数式をコメント化するのコード

さて、では早速セルの数式をコメント化するコードをご紹介していきます。

いつものごとく解説はコードにコメントアウトしてありますので参考にしてください。

今回は「Worksheetのイベントプロシージャー」の「BeforeDoubleClick(要はダブルクリック)」で使用することを目的にしています。

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

このコードを使うことによって、こんな感じ↓のシートが簡単に作成することが出来ます(^^)