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

The following two tabs change content below.

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

taka

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

最新記事 by taka (全て見る)

• 『雑記』最近の私の話～ - 2019年9月26日
• 【動画】自作パソコン構成変更！ケースをNZXT　H500に交換しました！ - 2019年6月5日
• VBA 『Array関数』指定した要素で配列を作成する - 2019年5月23日
• 「動画」初完全ワイヤレスイヤホン『Jabra Elite Active 65t』 - 2019年5月17日
• VBA　日付で令和を簡単に判定してみよう - 2019年5月7日

どうも、taka(@takabou63)です(^^♪

久しぶりに「なんだこれ？」というような記事になってしまっている気がします(笑)

ですが、今回私のようにExcelの記事を公開している方にとっては結構便利なんじゃないか？

と思うようなものを作成しましたのでご紹介しようと思います(*’▽’)

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

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

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

「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

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

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link