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 にしても動きは変わりません。
フォーム上からの自動移動は、出来ないでしょうか?
宜しくお願い致します。