任意で選択したセルをテキストボックスに表示

お世話になっております。
VBAで任意で選択したセルの値をテキストボックスに表示させたいのですが
うまくいきませんでした。どのようにすれば良いでしょうか？
よろしくお願いします。
textbox1.value=ActiveCell.value

No.3 ベストアンサー 回答者： Qchan1962 回答日時： 2020/04/03 13:36

ユーザーフォームオブジェクト.フォーム上のコントロール.値又はテキスト＝任意で選択したセル.Value '.Text

任意で選択したセルは、VBAからであれば、選択時のRangeオブジェクトで指定しますが、該当ブック、シートが表示され選択が確定していれば、Selection　可
しかし、Selectionは、前処理などでエラーになる可能性がある為、通常、Rangeオブジェクトを使います。

UserForm1.TextBox1.Value = 任意で選択したセル.Value '.Text
UserForm1.TextBox1.Value = Selection.Value　'.Text

例：UserForm1にTextBox1がある場合にUserForm1をクリックした時に表示シートA1セルの値がTextBox1に表示されます。

UserForm1　モジュールに
Private Sub UserForm_Click()
　Call Module1.Sample
End Sub

標準モジュールに
Sub Sample()
　Range("A1").Select
　　UserForm1.TextBox1.Value = Selection.Value
End Sub

標準モジュールは、選択する必要がない（値の抽出が目的）のであれば、
Sub Sample1()
　　UserForm1.TextBox1.Value = Range("A1").Value
End Sub
とするべきです。これは、
UserForm1　モジュール内でもUserForm1.は省略できますが、同様です。

＊シートオブジェクトは省略していますが、必要と考えてください。

この回答へのお礼

大変詳しく回答いただきありがとうございます。

Sub Sample()
　Range("A1").Select
　　UserForm1.TextBox1.Value = Selection.Value
End Sub

こちらの方法でやりたかったことができました。
ありがとうございました。

お礼日時：2020/04/22 08:52

No.2 回答者： iothes00 回答日時： 2020/03/31 16:08

アクションはどこでですか？

userform開くときですか?
ボタンを押したときですか？

この回答へのお礼

返信が遅れすみません。回答ありがとうございました。

お礼日時：2020/04/22 08:52

No.1 回答者： くんこば 回答日時： 2020/03/30 23:33

.textに変えてみたら？

この回答へのお礼

回答ありがとうございました。

お礼日時：2020/04/22 08:53