《エクセル2000》「コメント」の内容を表示する、といった関数はありますか？

こんにちは。
セルに付箋のようにくっつける「コメント」についてお伺いします。

このコメントの内容を任意のセルに表示させる、といった関数はありますか？

「そんなものはない」という情報でも結構です。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： noname#29107 回答日時： 2004/06/17 15:48

マクロを使用してユーザー定義関数を作成すれば出来ます。

例えば以下のようなものです。
Function dspcmnt(inrg As Range)
If inrg.Comment Is Nothing Then
　　dspcmnt = ""
Else
　　dspcmnt = inrg.Comment.Text
End If
End Function

使用方法は、=dspcmnt(A1)のようにします。コメントだけを書き換えても、自動的には表示変更されません。A1セルの内容を変更すれば、コメントの表示もかわります。
動作確認したのはExcel2002です。

この回答へのお礼

こんばんは。

ううむ、やはり関数はないのですか…

マクロだと、主にそのファイルを扱う人には荷が重くなってしまいそうなので、残念ですが今回は見送ることにいたします。

どうもありがとうございました。

お礼日時：2004/06/17 21:35

No.3 回答者： imogasi 回答日時： 2004/06/17 19:00

関数はないようですね。

ユーザー関数を作って
Function comt(a)
Set comtt = a.Comment
If TypeName(comtt) = "Comment" Then
comt = comtt.Text
Else
comt = "コメントなし"
End If
End Function
セルに=comt(A1)のように入れる。
あるいは簡単に
Function comt1(a)
comt1 = a.Comment.Text
End Function
でも最小限は満たす。
ただし式の方で
=IF(ISERROR(comt1(A1)),"",comt1(A1))
とする。

この回答へのお礼

imogasiさん、こんばんは。
いつもお世話になっております。

実際にそのファイルを扱う人が、マクロの知識があまりないため、今回は見送らざるを得なくなりそうです。

折角ご回答頂きましたのに…すみません。
どうもありがとうございました。

お礼日時：2004/06/17 21:37

No.1 回答者： kisuke_5 回答日時： 2004/06/17 15:19

該当セルの位置で右クリックでコメントの挿入というのがありますが、そちらではダメでしょうか？

この回答への補足

すみません、既にセルに付与されているコメントを、新規にそことは別の任意のセルに表示させたい、という質問のつもりでした。

補足日時：2004/06/17 15:19

この回答へのお礼

どうやら、関数はないようですね…
でもご回答、ありがとうございました。

お礼日時：2004/06/17 21:33