0

テキスト ドキュメントから任意の行数をコピーして Excel の連続する行に貼り付けることができるように、テキストの行をコピーして、Excel の連続する行のコメントに貼り付けられるようにしたいと考えています。少し簡単にするために、最初に .txt ファイルのコメント テキストの行を Excel の列に貼り付けます。これは私が今見ているものです：

Dim myClip As New DataObject
Dim myString As String

myClip.GetFromClipboard

myString = myClip.GetText
Sheet1.Range("A1").AddComment myString

しかし、このようにクリップボードから貼り付けても、望ましい効果が得られないようです。何か案は？

4

1 に答える 1

1 
Sub AddCommentsToSelection()

Dim myClip As New DataObject
Dim myString As String
Dim c As Range, arr, x As Integer

    myClip.GetFromClipboard
    myString = myClip.GetText
    If Len(myString) = 0 Then Exit Sub

    Set c = Selection.Cells(1)

    arr = Split(myString, vbCrLf)
    For x = LBound(arr) To UBound(arr)
        c.AddComment arr(x)
        Set c = c.Offset(1, 0)
    Next x

End Sub
于 2012-07-17T16:12:38.280 に答える