ユーザーフォームからコメントを入力

ユーザーフォームを作成し、フォームからシートのセルへコメント入力しようと考えております。

もともとシートにあるコメントの情報をユーザーフォームに表示させるまで至りましたが、ユーザーフォームからシートへ転記が出来ません。

ちなみにユーザーフォームからシートへの転記方法は、
ActiveCell.Offset(1,0)で一列ずつずらしながら転記しています。

自分で試した方法ですが、
コードを一部抜粋
ActiveCell.Offset(1,0)
ActiveCell.value = NyukinForm.Kingaku.value
ActiveCell.Offset(1,0)
ActiveCell.value = NyukinForm.Seikyugaku.value
ActiveCell.Comment = NyukinForm.SeikyugakuComment.value
上記コードだとまったく反映されません。

ActiveCell.Offset(1,0)
ActiveCell.value = NyukinForm.Kingaku.value
ActiveCell.Offset(1,0)
ActiveCell.value = NyukinForm.Seikyugaku.value
ActiveCell.AddComment = NyukinForm.SeikyugakuComment.value
この方法だとコメントの赤マークは出ますが、内容がまったく表示されません。

どなたかフォームから入力したコメントをうまくシートへ反映させる方法をご存知でないでしょうか？
よろしくお願い致します。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2008/03/17 17:20

AddCommentメソッド に =で代入はおかしいと思いますよ

# Excel2003では エラーになりますけど …

ActiveCell.AddComment NyukinForm.SeikyugakuComment.value
といった具合にして見ましょう

この回答へのお礼

言われてみれば・・・確かにおかしいですね。
よく考えれば簡単なことだったとお恥ずかしいです。

お蔭様で無事解決しました。
ありがとうございました。

お礼日時：2008/03/17 17:43