どのようにして、セルの内容をクリップボードにコピーしますか

Question

セルの内容をクリップボードにコピーしようとしています。

Excel 2007のヘルプファイルで提供されている正確な例を読み、試しました。しかし何らかの理由でDataObjectオブジェクトが無効です。したがって、例：

Dim MyData As DataObject 

Private Sub CommandButton1_Click() 
    Set MyData = New DataObject 

    MyData.SetText TextBox1.Text 
    MyData.PutInClipboard 

    TextBox2.Paste 
End Sub 

Private Sub UserForm_Initialize() 
    TextBox1.Text = "Move this data to a " _ 
     & "DataObject, to the Clipboard, then to " _ 
     & "TextBox2!" 
End Sub 

私のケースでは機能しません。私は今のところ良いものを探してきましたが、なぜDataObjectオブジェクトが利用できないのかの答えを見つけることができません。コンパイルの

Dim MyData As DataObject 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If ActiveCell.Column = 3 Then 
     Set MyData = New DataObject 
     MyData.SetText ActiveCell.Offset(-1, -1).Text 
     MyData.PutInclipboard 
    End If  
End Sub 

エラーは次のとおりです：「ユーザー定義型は定義されていません」と、それは「MyDataというのDataObjectとして、」ラインを強調し

は、ここに私のコードです。

セル内のテキストを単にクリップボードにコピーする別の方法がありますか？

Answer 1

[OK]を、いくつかのこと：

まずあなたは、その後、通じ検索のように感じるだけのプロジェクトにユーザーフォームを追加していない場合は、「Microsoftは2.0オブジェクトライブラリフォーム」への参照を追加する必要がありますそれを直ちに削除すると、参照はそのまま残ります。あなたは...、私はオフセットを変更しますが、あなたが必要なものは何でもそれらを作る私が動作するようになったいくつかのコードを添付しますDataObjectの

を使用することが問題でした

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
Set MyData = New DataObject 
    If ActiveCell.Column = 3 Then 
     MyData.SetText ActiveCell.Offset(-1, 0).Text 
     MyData.PutInClipboard 
    End If 
End Sub