Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3486 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【61906】Commentの有無を確認する方法を教えて！ たかお 09/6/11(木) 19:42 質問[未読]
【61907】Re:Commentの有無を確認する方法を教えて！ kanabun 09/6/11(木) 20:06 発言[未読]
【61908】Re:Commentの有無を確認する方法を教えて！ yoshi 09/6/11(木) 20:08 お礼[未読]
【61909】Re:Commentの有無を確認する方法を教えて！ kanabun 09/6/11(木) 20:44 発言[未読]
【61910】Re:Commentの有無を確認する方法を教えて！ たかお 09/6/11(木) 21:37 お礼[未読]
【61906】Commentの有無を確認する方法を教えて！
質問  たかお  - 09/6/11(木) 19:42 -
引用なし
パスワード
   いつもお世話になります。
あるセルにCommentをセット、又は削除したいのですが、
CommentがセットされているセルにCommentセット(AddComment)を
又は、
CommentがセットされていないセルにCommentの削除(Comment.Delete)を
行うとエラーが発生します。(当然？ですよね)
そこで、先にそのセルにCommentがセットされているかどうかを
確認したいのですが、あちこち探しても方法が見つかりません。
ご存知の方、宜しくご教示下さい。
取あえずは、On Error・・・　で逃げています。
【61907】Re:Commentの有無を確認する方法を教えて...
発言  kanabun  - 09/6/11(木) 20:06 -
引用なし
パスワード
   ▼たかお さん：
こんにちは。

>そこで、先にそのセルにCommentがセットされているかどうかを
>確認したいのですが、
>取あえずは、On Error・・・　で逃げています。

それでいいのでは？

あるいは、こんな方法もあります。

　ActiveCell.NoteText "コメントです"

NoteTextメソッドはセルにコメントがあっても無くても、
あらたにコメントを挿入できます。
【61908】Re:Commentの有無を確認する方法を教えて...
お礼  yoshi  - 09/6/11(木) 20:08 -
引用なし
パスワード
   >そこで、先にそのセルにCommentがセットされているかどうかを
>確認したいのですが、
Commentプロパティで調べられます。

　'If ActiveCell.Comment Is Nothing Then
　If Range("a1").Comment Is Nothing Then
　　Debug.Print "無い"
　Else
　　Debug.Print "有り"
　End If
【61909】Re:Commentの有無を確認する方法を教えて...
発言  kanabun  - 09/6/11(木) 20:44 -
引用なし
パスワード
   ついでに、
コメントの有無を確認して、無ければ コメントを追加したいというときにも
NoteTextで判定できますね？

'コメントがまだなかったらコメントの挿入をする
If Cells(i, j).NoteText = "" Then
　'処理
End If
【61910】Re:Commentの有無を確認する方法を教えて...
お礼  たかお  - 09/6/11(木) 21:37 -
引用なし
パスワード
   kanabunさん、yoshiさん
ありがとうございました。
一応、エラー処理で対応してはいますが、
エレガントなプログラムとは言え無かったのが、
すっきりしました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3486 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free