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

質問

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

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

ちなみにユーザーフォームからシートへの転記方法は、
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 · ベストアンサー

AddCommentメソッド に =で代入はおかしいと思いますよ
# Excel2003では エラーになりますけど …

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

お礼

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

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