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

質問

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

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

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

回答No.2

noname#29107 · ベストアンサー

マクロを使用してユーザー定義関数を作成すれば出来ます。
例えば以下のようなものです。
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です。

お礼

こんばんは。

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

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

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

回答No.3

imogasi

関数はないようですね。
ユーザー関数を作って
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さん、こんばんは。
いつもお世話になっております。

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

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

回答No.1

kisuke_5

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

お礼

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

補足

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