フォームのテキストボックスの値をコピーしたい

excel-vba初心者です。教えてください。
フォームのテキストボックスで表示した値を
コマンドボタンでコピーするにはどうすればいいですか？

No.2 回答者： Wendy02 回答日時： 2008/12/26 15:27

こんにちは。

Excelのフォームには、テキストボックスはありません。EditBox だけです。
UserForm のことでしょうか。UserForm のTextBox のValue をコピーする場合は、
UserForm モジュールは以下のようになります。

ただし、ワークシートに貼り付ける場合は、UserForm のモーダルモード(ShowModal)は、Falseになっていないと、UserForm から外には出られません。

Dim myData As DataObject
Private Sub CommandButton1_Click()
Set myData = New DataObject
If TextBox1.Value <> "" Then
　myData.SetText TextBox1.Value
　myData.PutInClipboard
End If
End Sub

適当なセルを選択し、右クリック--貼り付け

もちろん、他のTextBox に貼り付ける場合には、

Private Sub CommandButton2_Click()
　TextBox2.Paste
End Sub

のようになります。

No.1 回答者： hallo-2007 回答日時： 2008/12/26 12:09

Private Sub CommandButton1_Click()

Cells(ActiveCell.Row, 4).Value = TextBox1.Value
End Sub
こんな感じでしょうか
Cells(ActiveCell.Row, 4).Value = TextBox1.Value
選択したセルの行の4列目に、テキストボックスで編集した文字を入れる。