1

Excel 2007 を使用しており、セルのコメント (書式設定を含む) をコピーする VBA サブルーチンを作成しようとしています。セルのコメントには、基本的なテキストの書式設定 (太字などのスタイル) を含めることができ、テキストを正常にコピーできますが、書式設定を一緒に行う方法が見つかりません。

私は単にコメントオブジェクトを定義して設定できることを望んでいましたが、うまくいきませんでした:

Sub TestCommentCopy()

Dim r As Range
Dim c As Comment
Set r = Selection

If (Not r.Areas(1).Comment Is Nothing) Then
    Set c = r.Areas(1).Comment
End If

'Set r(1, 2).Comment = c ' Object error
'   r(1, 2).Comment = c  'Object error
'   Set r(1,2).Comment = c ' Object error
r(1, 2).ClearComments ' Works
'   r(1, 2).AddComment c 'Does not work - requires text only

r(1, 2).AddComment c.Text 'Works, but only get plain text, no formatting

End Sub

テキストだけでなく、書式設定も含めて、あるセルのコメントを別のセルにコピーする方法は Excel にありますか?

4

1 に答える 1

3

フォーマットされたコメントをコピーするには:

Sub Macro1()
    Range("E9").Copy
    Range("L3").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub
于 2013-10-01T12:23:28.183 に答える