ユーザーフォームまたはテキストボックスに別シートのデータを貼りつける

前提

別シートに入っているデータをマクロフォームまたはフォームのテキストボックスに自動入力または貼りつけしたいのですがうまく行きません。
データはマクロフォームで集計したものではありません。

実現したいこと

マクロフォームまたはテキストボックスに自動入力または貼りつける方法を教えてください。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

ソースコード

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

hatena19

2022/08/04 05:10

ExcelのVBAの質問でしょうか。だとしたら、Excel と VBA をタグに追加してください。

hatena19

2022/08/04 05:37

質問が大雑把すぎて、回答が難しいです。現状のコードを提示して、どこがどのようにうまく行かないのか説明してください。

Sue

2022/08/04 05:37

はい、追加しました。よろしくお願いいたします。

Sue

2022/08/04 05:55

タブレットから見ているのでコード全てを書けないのですが、同じworkbook のsheetBのデータを範囲指定して.selection.copyし、 SheetAに作ったuserformに貼りつけしたいのですが、方法がわかりません。データーを図形としてコピーして貼りつけようともしましたできませんでした。

Sue

2022/08/04 10:31

ありがとうございます。フォームのコマンドボタンにコードを書き込みましたが.GetFormClipboardで止まってしまいます…

hatena19

2022/08/04 15:23

エラーになるのですか。エラーメッセージはなんですか。当方のサンプルでは問題なく動いてます。

Sue

2022/08/05 01:09

私が間違っているのは確かなんですが、どこが間違っているのかわかりません。「実行時エラー438 オブジェクトはこのプロパティーまたはメソッドをサポートしていません」が出ます。 sheetBは範囲指定したところをコピーしていますがそれをテキストボックスに持って来れないようです。 workbookを立ち上げるとユーザーフォームが現れるようにしています。これが問題なのでしょうか？

hatena19

2022/08/05 01:49

あっ！たぶんタイプミスですね。 .GetFormClipboard ではなく、 .GetFromClipboard です。

Sue

2022/08/05 08:19

貼り付きました!! タイプミスとは…見つけてくださりありがとうございました! とても助かりました。

hatena19

2022/08/05 08:25

Form と From、タイプミスのあるあるですね。

行動規範の内容に同意します

回答1件

ベストアンサー

Sheet1 の A1セルの値を、ユーザーフォーム上の Textbox1 に貼り付けるコードは、

vba
1Me.Textbox1.Value = WorkSheets("Sheet1").Range("A1").Value

SheetBのA1からC10の範囲を、ユーザーフォーム上の Textbox1 にテキストとして貼り付けるなら、

vba
1    Worksheets("SheetB").Range("A1:C10").Copy
2    With New MSForms.DataObject
3        .GetFromClipboard    'クリップボードのデータをDataObjectに格納する
4        Me.TextBox1.Value = .GetText 'DataObjectからテキストを取り出してテキストボックスに代入
5    End With
6    Application.CutCopyMode = False