回答編集履歴

結果画像追加

2022/08/04 15:27

投稿

スコア34343

test CHANGED Viewed

@@ -17,3 +17,6 @@
 ```
 TextBox1 の MultiLineプロパティは True にしておく。
+実行結果
+![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-08-05/c8ace423-46aa-454c-83d0-094ae1d0554a.png)

コード修正

2022/08/04 07:05

投稿

スコア34343

test CHANGED Viewed

@@ -13,6 +13,7 @@
         .GetFromClipboard    'クリップボードのデータをDataObjectに格納する
         Me.TextBox1.Value = .GetText 'DataObjectからテキストを取り出してテキストボックスに代入
     End With
+    Application.CutCopyMode = False
 ```
 TextBox1 の MultiLineプロパティは True にしておく。

コード修正

2022/08/04 07:03

投稿

スコア34343

test CHANGED Viewed

@@ -8,13 +8,11 @@
 SheetBのA1からC10の範囲を、ユーザーフォーム上の Textbox1 にテキストとして貼り付けるなら、
 ```vba
-    Worksheets("SheetB").Range("A1:C10").Select
+    Worksheets("SheetB").Range("A1:C10").Copy
-    Application.Selection.Copy
     With New MSForms.DataObject
         .GetFromClipboard    'クリップボードのデータをDataObjectに格納する
         Me.TextBox1.Value = .GetText 'DataObjectからテキストを取り出してテキストボックスに代入
     End With
-    Application.CutCopyMode = False
 ```
 TextBox1 の MultiLineプロパティは True にしておく。

説明追記

2022/08/04 06:50

投稿

スコア34343

test CHANGED Viewed

@@ -16,3 +16,5 @@
     End With
     Application.CutCopyMode = False
 ```
+TextBox1 の MultiLineプロパティは True にしておく。

コード追記

2022/08/04 06:48

投稿

スコア34343

test CHANGED Viewed

@@ -3,3 +3,16 @@
 ```vba
 Me.Textbox1.Value = WorkSheets("Sheet1").Range("A1").Value
 ```
+---
+SheetBのA1からC10の範囲を、ユーザーフォーム上の Textbox1 にテキストとして貼り付けるなら、
+```vba
+    Worksheets("SheetB").Range("A1:C10").Select
+    Application.Selection.Copy
+    With New MSForms.DataObject
+        .GetFromClipboard    'クリップボードのデータをDataObjectに格納する
+        Me.TextBox1.Value = .GetText 'DataObjectからテキストを取り出してテキストボックスに代入
+    End With
+    Application.CutCopyMode = False
+```