2013
10
／
25
使ってみたら意外と便利だったのでまとめてみました。変数と改行組み合わせて文字列作成して、コメントとして入れてあげるとかなり実用性が増します。
工夫次第でかなり使える！
発注の数なんかをデータベースからExcelに取り込んだときに、「発注日：YY/MM/DD（改行）納入日：YY/MM/DD」みたいにコメントとして付加してあげたり、「備考」があったときだけ入れたりとか。列/行を増やしたくないとか、セルじゃなくてちょっと差別化したいってときなんかにも、結構有用です。
コメントの有無を調べて書く
|
1 2 3 4 5 6 7 8 9 10 |
Sub コメント書込() Dim str As String str = "サンプル" & vbCrLf & "テキスト" 'コメントに入れる文字列（vbCrLfは改行） If Range("A1").NoteText = "" Then 'コメントが存在しなかったとき Range("A1").AddComment Text:=str '新規書込 Else '既にコメントがあるとき Range("A1").Comment.Text str '上書き End If End Sub |
コメントを削除する
|
1 2 3 |
Sub コメント削除() Range("A1").ClearComments '削除 End Sub |
既に存在するコメント内容を取得する
|
1 2 3 4 5 |
Sub コメント内容取得() Dim str As String str = Range("A1").NoteText '取得 End Sub |
コメントが存在しなかった場合は空白が入ります。
コメント枠・フォントサイズの変更
|
1 2 3 4 5 6 7 8 9 10 |
Sub コメント枠フォント変更() Dim cmt As Comment If Range("A1").NoteText <> "" Then 'コメントが存在するときだけ Set cmt = Range("A1").Comment 'コメントオブジェクトをセット cmt.Shape.Height = 50 '高さ cmt.Shape.Width = 100 '幅 cmt.Shape.TextFrame.Characters.Font.Size = 12 'フォントサイズ End If End Sub |
存在しないコメントオブジェクトをセットしようとするとエラーになってしまうので、最初に存在有無の確認をします。
コメントの表示・非表示
|
1 2 3 4 5 6 |
Sub コメント表示() If Range("A1").NoteText <> "" Then 'コメントが存在するときだけ Range("A1").Comment.Visible = True '表示 Range("A1").Comment.Visible = False '非表示 End If End Sub |
これも存在しないコメントはエラーになるので、存在確認してから。
ざっと書き出して、だいたいこんなところでしょうか。自分用ではありますが、どなたかのお役に立てたら嬉しいです！
ExcelVBAに興味をお持ちの方は、こちらの記事もどうぞ！
- これからExcelのマクロを始めたいという方に！簡単な練習問題作りました。
- 私がExcelVBAでよく使う便利なコード・スニペットまとめ
- プログラム初心者さんへ贈る、エラーが起きたら試してみて欲しいこと
- ExcelVBAのクラスモジュールって何？という人向けの使い方まとめ
書籍を執筆しています。
- Tweet
-
-
641
公開日：2013/10/25
更新日：2014/11/11
関連記事
ExcelVBAでコントロールオブジェクト（TextBoxとか）を変数制御する
ExcelVBA入門第3回 変数の宣言![[VBA]PowerPointの指定したスライドへExcelグラフを最背面で貼り付ける](https://ateitexe.com/wp-content/uploads/2012/10/121004eye.jpg)
[VBA]PowerPointの指定したスライドへExcelグラフを最背面で貼り付ける
パスワードで任意の印鑑画像を挿入するExcelVBA「MS Office」の月間人気記事
ExcelVBAのクラスモジュールって何？という人向けの使い方まとめ
ExcelVBAとAccessの連携 第1回 Excelからデータベースへの接続
これからExcelのマクロを勉強したいという方に！簡単な練習問題作りました。
Excel2013で、折れ線グラフが原点から始まるパレート図の作り方
ExcelVBAでカレンダーコントロールを自作する他カテゴリの月間人気記事
初心者でも、“デキる奴”と思わせるプレゼンテーションの基本とコツ
私がIllustratorで絵を描けるようになるのに有効だった練習方法
産む前は知らなかったけど、出産後の入院生活が地味に結構キツかったよなーという思い出
日本の伝統色の組み合わせ、襲色目（かさねいろめ）の色コードまとめ
「大人」と「子供」の違いについて長年考えて行き着いた、私なりの答え2件のコメント
コメントを残す
*印は必須項目です。コメントは承認制ですので、反映までしばらくお待ち下さい。（稀にですがスパムの誤判定にて届かないこともあるようですので、必要な際はお問い合わせからお願い致します。）
先日メッセージさせていただいたものです！
*youさんのブログ、全てにおいて勉強させられてます。
ＶＢＡもまったくの未知の世界…(^_^;)私もデータ色々扱っていながらも効率は良くなく。ちょっとのやる気でどうにでもなるのに、と反省。
沢山吸収したいです。
これからも更新楽しみにしています！
すまこさん、こんにちは！
先日はメッセージありがとうございました、記事にまでコメント頂けて嬉しいです(*´∀｀*)
Web系の方にはVBAは響かず、VBAを求めている方にはWeb系の記事は必要ないという、ちょっと離れたジャンルを書いているという自覚があるので、どちらも読んで頂けるなんてこんなに光栄なことはありません！
VBA、そんなに極めなくても、ちょこっと覚えるだけでかなり使い勝手が良いので、ぜひぜひお勧めです！ルーチンワークが目に見えて時間短縮できるのはとっても楽しいですよー♡