[[20080422112602]]　『セルのコメントの内容をセル自体に表示させる方法』（kyＭ）　ページの最後に飛ぶ

『セルのコメントの内容をセル自体に表示させる方法』（kyＭ）

地道に各セルで「コメントの編集」から内容をセルにコピペするにも、コメントのBOXがかけ離れた場所に飛んでいったり、数十件あったりで作業に時間がかかります。
一括作業できる機能を探しています。
そういう需要があるかどうかも不明ですし、機能が存在するかどうかも謎なのですが、もしもご存知な方がいらっしゃいましたら教えてください。　地道路線しかなければ諦めます。
よろしくお願いいたします。

 ツール→オプション→表示→
 「コメントとコメントマーク」にチェック

 でいかがでしょう？

 特定のコメントのみでしたら、
 セルを右クリック
 ↓
 コメントの表示

 でいけます。
 (MARBIN)

 VBAでセルのコメントを隣のセルに書き出す
 サンプルです。
 アクティブセルのみに対応してますが、
 改造すれば特定のセル範囲に対応させること
 が出来ます。

 Option Explicit

 Sub test()
  Dim cmt As Comment
  Dim c As Range
    Set c = ActiveCell
    Set cmt = c.Comment
    On Error GoTo 0
     If cmt Is Nothing Then
     Else
         c.Offset(, 1).Value = cmt.Text
     End If
 End Sub
 (MARBIN)

VBA　できました
ありがとうございます。
感動しました。
（ｋｙM）

コメント返信：

[ 一覧(最新更新順) ]

[[20080422112602]] 『セルのコメントの内容をセル自体に表示させる方法』（kyＭ） ページの最後に飛ぶ

[[20080422112602]]　『セルのコメントの内容をセル自体に表示させる方法』（kyＭ）　ページの最後に飛ぶ