ページコンテンツ
どうも、takaです(^^♪
久しぶりに「なんだこれ？」というような記事になってしまっている気がします(笑)
ですが、今回私のようにExcelの記事を公開している方にとっては結構便利なんじゃないか？
と思うようなものを作成しましたのでご紹介しようと思います(*’▽’)
こんなのいらねーよ、という声も聞こえてきそうですが、気にしません(笑)
セルをダブルクリックしたら数式をコメントする
という訳で「セルをダブルクリックしたら数式をコメントする」って？
と思われるかと思いますのでちょっとご紹介(^^♪
「Excel入門 セルの参照「相対参照・絶対参照について」」で紹介している記事の中でこのような画像があります
はい、最近VBA記事で良く取り上げていた「コメント」です(^^)
このコメントをExcelの解説に使うことで、私のブログ作業効率を挙げようという魂胆です(笑)
ですが、普通にコメントを使用しているのでは、、かなりの手間で正直しんどいです(;´∀｀)
なので今回はVBAで「セルをダブルクリックしたらそのセルの数式をコメント化」するコードを作成してみました(^^)/
セルの数式をコメント化するのコード
さて、では早速セルの数式をコメント化するコードをご紹介していきます。
いつものごとく解説はコードにコメントアウトしてありますので参考にしてください。
今回は「Worksheetのイベントプロシージャー」の「BeforeDoubleClick(要はダブルクリック)」で使用することを目的にしています。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 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 |
このコードを使うことによって、こんな感じ↓のシートが簡単に作成することが出来ます(^^)
ファイルやコードの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
国本温子,緑川吉行,できるシリーズ編集部 インプレス 2016-06-17
コメントを残す