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



The following two tabs change content below.
アバター

taka

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

どうも、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以外についてのブログはこちら↓

https://yb-log.com/

■Twitterフォロー

■YouTubeチャンネル登録

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

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Sponsored Link

 

WordPressでブログを始めるなら

WordPress簡単インストール&安心の安定性

レンタルサーバー Xserver

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です