[[20080229112818]]　『コメントを抽出するマクロ』（doi）　ページの最後に飛ぶ

『コメントを抽出するマクロ』（doi）

コメント内のテキストを、セルにはきだしたいのですが、
どういったマクロを書けばいいのでしょうか？
教えていただけると幸いです。

 こちらが参考になりますか？（ぷーのすけ）
　　　↓　
[[20041109104856]]『コメントの一覧』（ワン）

 参照先はちょっと目的が違うような・・・
 (ROUGE)
'----
Sub test()
Dim c As Range
If TypeName(Selection) <> "Range" Then Exit Sub
For Each c In Selection
    If TypeName(c.Comment) <> "Nothing" Then
        c.Offset(, 1).Value = c.Comment.Text
    End If
Next
End Sub

解決しました。ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20080229112818]] 『コメントを抽出するマクロ』（doi） ページの最後に飛ぶ

[[20080229112818]]　『コメントを抽出するマクロ』（doi）　ページの最後に飛ぶ