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)です(^^♪
この前に引き続き「セルのコメント操作」についてです(^^)/
前回は「セルのコメントの追加と削除」についてご紹介しました、今回はもう少し踏み込んだ処理をしていきたいと思います(^^♪
セルのコメントの有無の確認Commentプロパティ
セルのコメントの有無を確認するにはRangeオブジェクトの「Commentプロパティ」を使用します!
Commentプロパティは、セルにコメントが記載されている場合セルのCommentオブジェクトを返してきます、この性質を使用してTypeName関数を使用して Comment が返された場合はコメントが記載されていると判断できます。
Sub sample() If TypeName(ActiveCell.Comment) = "Comment" Then MsgBox "コメント記載あり" Else MsgBox "コメント記載なし" End If End Sub


コメントを追加する方法
さて、コメントが記載されているかを取得できるようになったので、今までに記載されていたコメントに「追記」をする方法をご紹介します(^^♪
下記のコードではアクティブセルにコメントが記載されていたら、コメントをそのままにして改行し新たに追記分のコメントを記載し、コメントがなかった場合は新たにコメントを追加します(^^)/
処理の解説はコードにコメントアウトしてありますので参考までに(-ω-)/
Sub sample() Dim comt As String With ActiveCell If TypeName(.Comment) = "Comment" Then 'コメントがあった場合 comt = .Comment.Text '削除する前にコメントを変数に代入 .ClearComments .AddComment comt & vbCrLf & "こちらは追記分です!" '代入されたコメントに追記という形で追加 Else 'コメントがなかった場合 .AddComment "コメントを追加しました" 'コメントがないのでそのまま追加 End If End With End Sub
フォロー・チャンネル登録お願いします
VBA以外についてのブログはこちら↓
https://yb-log.com/■Twitterフォロー
Follow @taka_pc1027■YouTubeチャンネル登録
コメントを残す