[[20041109104856]]　『コメントの一覧』（ワン）　ページの最後に飛ぶ

『コメントの一覧』（ワン）

コメントに名前、場所、日付、枚数が入力されています
それを一覧にしてみたいのです。コメントの表示ではなく、表として作りたいのです。どうすればいいですか？

 説明は回答者が分かるように具体的にお願い致します。

 コメントというのは、
 挿入→コメント
 のことですか？

 どのようなコメントのデータを、どのような表として作りたいのですか？
  (INA)

 色んな方法があると思いますが、一案として良かったら参考にしてみてください。
範囲を選択してから、実行です。
後は、適当に応用してください。
ではではv(=∩_∩=)v
（SoulMan）
Option Explicit
Sub てすと()
Dim MyStr As Variant, MyAry() As String
Dim i As Long, k As Long, n As Long
Dim C As Range
    For Each C In Selection
        If Not TypeName(C.Comment) = "Nothing" Then
            MyStr = Split(C.Comment.Text, Chr(10))
            k = k + 1
            n = 0
            For i = LBound(MyStr) To UBound(MyStr)
                If i > 4 Then Exit For
                n = n + 1
                ReDim Preserve MyAry(1 To 5, 1 To k)
                MyAry(n, k) = _
                Trim(Replace(Replace(Replace(Replace(MyStr(i), "名前", ""), "場所", ""), "日時", ""), "枚数", ""))
            Next
        End If
    Next
    If k > 0 Then
        With Worksheets("Sheet2")
            .Cells.ClearContents
            .Range("A1").Value = "名前"
            .Range("B1").Value = "場所"
            .Range("C1").Value = "日時"
            .Range("D1").Value = "枚数"
            .Range("A2:D2").Resize(k).Value = Application.WorksheetFunction.Transpose(MyAry)
            .Range("A:D").EntireColumn.AutoFit
        End With
    Erase MyAry, MyStr
    End If
End Sub
http://ryusendo.no-ip.com/cgi-bin/upload/src/up0150.xls
何度も、すみません。花形スター・‥…・・・★が抜けておりました。m(__)m

ありがとうございます。とりあえずがんばります。
コメントが定型になってないと無理なのですか？っていうのが、数人がコメントを入力をしており、書式がバラバラです。逆にコメントの挿入を押すと名前、場所、日時等コメントが最初っからはいっている方法を教えてください（ワン）

 今日は、忙しくて遅くなってしまたぁ(¨;)
 >逆にコメントの挿入を押すと・・・・
 コメントの挿入を感知するイベントはないので、
ダブルクリックで勘弁してください。
↓このコードをシートの見出しを右くりっくしてコードを表示させてそこに貼り付けます。
ダブルクリックでセルにコメントがなかったら作成。
あったら削除します。
ではでは、v(=∩_∩=)v
（SoulMan）
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If TypeName(Target.Comment) = "Nothing" Then
        Target.AddComment
        Target.Comment.Text _
        Text:="名前" & Chr(10) & _
                "場所" & Chr(10) & _
                "日時" & Chr(10) & _
                "枚数"
    Else
        Target.ClearComments
    End If
End Sub

素人ですみません.....
シートの見出しってどこですか？（ワン）

 これのことです。

 （川野鮎太郎）

お久しぶりです
コメント一覧を使用していましたがより見やすくするために追加したいと思います

  　　1 　　　   2 　　　   3　　　    4  　　　  5（日付）
A 　　　　　　コメント
B
C

＜コメントシート＞　　　
日付　名前　　場所　　日時　　枚数　　　　　　

と、コメントがある日付を入れたいのです。
説明が下手ですみません
よろしくお願いします（ワン）

コメント返信：

[ 一覧(最新更新順) ]

[[20041109104856]] 『コメントの一覧』（ワン） ページの最後に飛ぶ

[[20041109104856]]　『コメントの一覧』（ワン）　ページの最後に飛ぶ