Excel のVBAのForm上からExcelの指定セルへのフォーカスの移動

Excel 2007 を使用しています。

以下の動作を作っているのですが、うまく動きません。

Excel のシート上にVBAのフォームを表示し、フォーム内のコマンドボタンを押すと、指定の処理を実行後にExcelの指定セルへ飛び、データを入力する。

以下がコードの抜粋です。

Public Sub Tmp_2()

  Sheets("Tmp_2").Activate

  ~~~~ 処理 ~~~~

  Cells( Yp_s , Xp_s ).Activate

End Sub

現在の動作は、Cells( Yp_s , Xp_s ) が アクティブ になるが、フォーカスがフォーム上に有り、データ入力が出来ない。

マウスで Cells( Yp_s , Xp_s ) をクリックすれば、もちろん通常通りにデータ入力は出来ます。

フォーカスがフォーム上から Cells( Yp_s , Xp_s ) に自動で動けば、マウス動作をしないで、データ入力が出来るので能率が上がります。

  Cells( Yp_s , Xp_s ).Select や Range(Cells( Yp_s , Xp_s )).Select にしても動きは変わりません。

フォーム上からの自動移動は、出来ないでしょうか?

宜しくお願い致します。

回答
回答
こんばんは。

モードレスなUserFormから下記のようにするのはどうでしょうか?
(試していないので上手くいくかどうか分かりませんが・・・)

ActiveSheet.Range("C5").Select
AppActivate Application.Caption

13 ユーザーがこの回答を役に立ったと思いました。

·

この回答が役に立ちましたか?

お役に立てず、申し訳ございません。

素晴らしい! フィードバックをありがとうございました。

この回答にどの程度満足ですか?

フィードバックをありがとうございました。おかげで、サイトの改善に役立ちます。

この回答にどの程度満足ですか?

フィードバックをありがとうございました。

 
 

質問情報


最終更新日: 2025年5月01日 表示数 11,295 適用先: