別のブックのアクティブセルにTextboxの値を反映させたい

前回、ユーザーフォームでボタンを押すとTextBox1の値を、開いている別のブックのセルに反映する
質問させて頂き、セルに値を反映させることはできたのですが、セルの位置を指定ではなく
ActiveCellに値を反映させるにはどのようなコードのになるかご教示いただけますでしょうか。

https://oshiete.goo.ne.jp/qa/11828285.html

よろしくお願いします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/08/15 10:11

こんにちは、

ActiveCellは1つです。なので
＞別のブックのセルに反映する
のであれば、1つずつアクティブにしていく必要があります。
Workbooks("ブック名+拡張子").Activate
Worksheets("書き込みたいシート名").Activate
ActiveCell.Value = TextBox1.Text
こんな感じ、、

この回答へのお礼

回答ありがとうございます。
おかげさまで反映できました。
ありがとうございました！

お礼日時：2020/08/15 12:50

No.2 回答者： ママチャリ 回答日時： 2020/08/15 10:46

Windowオブジェクトで指定すれば、行けそうですが・・・。

こんな感じです。お試しください。

Windows("Book1.xlsx").ActiveCell.Value = TextBox1.Text

この回答へのお礼

Windowオブジェクトで指定するやり方もあるんですね。
勉強になります。

お礼日時：2020/08/15 12:51