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