エクセルのマクロでコメントを作成

質問

よろしくお願いします。
あるセルに文字列が記入されています。
この文字列を別のセルのコメントとして入力（コピー）したいのですが、やり方がわかりません。
ご存知の方、教えてください。
よろしくお願いします。

回答No.4

neKo_deux · ベストアンサー

A1セルに入力された文字列をB1セルのコメントとして入力するには、

Range("B1").AddComment
Range("B1").Comment.Text Text:=Range("A1").Text

で良いハズですが。

マクロの問題の場合、「マクロの記録」で手順を記録すると、問題系決の手がかりになる場合が多いです。

回答No.7

Ryocchi

＃２です、おー、その通りです。思いっきり勘違いしてました(^^ゞ
himajin2003さんご指摘ありがとうございます。
失礼しました。

回答No.6

imogasi

A列とかにコメント文章があるとします。
A列B列C列に散らばっていても、どこでも、良いです。
Sheet1のWorksheet_SelectionChangeイベントに
下記を貼りつけます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static v
Static s
If v = 1 Then
Target.AddComment s
v = 0
Else
s = Target
v = 1
End If
End Sub
（使い方）
（１）まずコメントとして持ってくる文章の入っているセルをクリックする。
（２）その後コメントを入れるセルをクリックする。そのセルはどこにあってもOK。
使い方を極端まで省力化した結果、（指定）－（コメント貼りつけ）をペアー化しているので、このシーケンスが
崩れるとおかしくなるが、そう言う主旨なのでご理解願いたい。自分以外の人に使わせるにはもうちょっと考慮が必要かと思うが取り急ぎ。
右上隅に赤▼があるセルにセル指定の太線□がある時は
コメント貼りつけモード完了と思ってください。
複数セル範囲指定をするとエラーになります。

回答No.5

noname#6715

#1です。
あう、#4が正しいです。
僕のはA1のコメントをB1のコメントに移す場合だった。

回答No.3

noname#6715

#1です。

Ryocchi様のおっしゃる

>文字列をコメントにするには、その文字列の前に
>'(シングルクォーテーション)を入れればＯＫです。

は「セルのコメント」ではなく、
「VBAのソースのコメント」と勘違いしていると
考えられます。

回答No.2

Ryocchi

文字列をコメントにするには、その文字列の前に'(シングルクォーテーション)を入れればＯＫです。

回答No.1

noname#6715

これは参考になりますか？
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page13.htm