VBA ユーザーフォーム ボタンクリック後にセルにフォーカス

VBAのユーザーフォームについて質問です。

ユーザーフォーム上のコマンドボタンをクリックすると、セルに値が入力されるようにしました。このとき、コマンドボタンをクリックすると、フォーカスがユーザーフォームに残っています。これを、コマンドボタンをクリックした後、自動で対象のセルにフォーカスすることはできるでしょうか？何かよい方法はあるでしょうか？


イメージは、
１　コマンドボタンクリック　
２セルに値がセットされる　
３　マウスを手放す
４　キーボードからセルの操作ができる状態（キーボードの矢印キーでセル移動ができる状態など）
のような状態にしたいです。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/05/16 08:55

AppActivate Application.Captionを入れてみてはいかがでしょうか。

こちらで、以下のようにしたところ、期待通りに動いています。
対象セルをA1とします。

Private Sub CommandButton1_Click()
Range("A1").Value = TextBox1.Value
Range("A1").Select
AppActivate Application.Caption
End Sub


下記が参考URLになります。
https://answers.microsoft.com/ja-jp/msoffice/for …
https://qiita.com/ditflame/items/9ca1fb78de4dbba …

この回答へのお礼

回答ありがとうございます。
臨んだとおりの動きになりました！
AppActivate Application.Caption
がとても便利です！

お礼日時：2024/05/18 03:42

No.3 回答者： Qchan1962 回答日時： 2024/05/16 11:21

フォーカスについてはすでに回答されていますね

４　キーボードからセルの操作ができる状態（キーボードの矢印キーでセル移動ができる状態など）

これを実現するためには
UserForm オブジェクトを表示する時に
modal の設定をvbModelessにする
（VBEから実行ではなくUserForm オブジェクトを表示します）

UserForm1.Show vbModeless

参考
https://learn.microsoft.com/ja-jp/office/vba/lan …

この回答へのお礼

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

お礼日時：2024/05/18 03:43

No.2 回答者： little_experience000 回答日時： 2024/05/16 09:36

フォームのプロパティのShowModalをtrueに

Private Sub CommandButton1_Click()
Range("A1") = "asdf"

’エクセルのタイトルを指定
AppActivate "Book1"

Range("A1").Activate


End Sub

この回答へのお礼

AppActivate
の利用が肝心なんですね！
回答ありがとうございます！

お礼日時：2024/05/18 03:43