もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAの静的変数について、静的変数使っていますか？ - 2018年9月21日
- Excel関数【LENB関数】文字列のバイト数を求める - 2018年9月20日
- Excel関数【Mod関数】割り算の余りを取得する - 2018年9月19日
- Excel関数【LEN関数】文字数をカウントする - 2018年9月18日
- VBA YahooAPIを使って２つの場所の経路を取得してみた - 2018年9月17日
どうも、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 |
このコードを使うことによって、こんな感じ↓のシートが簡単に作成することが出来ます(^^)
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪ Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Follow @takabou63
使用OS：
コメントを残す