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

こんばんは。

モードレスなUserFormから下記のようにするのはどうでしょうか？

(試していないので上手くいくかどうか分かりませんが・・・)

ActiveSheet.Range("C5").Select

AppActivate Application.Caption

きぬあさ 様、こんばんは。

早速試してみました、希望の動きになりました！！

Public Sub Tmp_2()

　　Sheets("Tmp_2").Activate

　　～～～～ 処理 ～～～～

　　Cells( Yp_s , Xp_s ).Activate

　　AppActivate Application.Caption

End Sub

これで、メニューを表示しながらのデータ入力が出来るので、能率がアップします。

今後の作成時には、必ず使いたいと思います。

アドバイス、有り難うございました。

ああ、なるほど、AppActivateって手がありましたね。

考えなかったです。

y sakuda 様、早速の回答、ありがとうございます。

＞できないと思います。

＞Hide してしまう方法がないではありません

との事、了解いたしました、Hide する事にしました。

Public Sub Tmp_2()

　　Sheets("Tmp_2").Activate

　　～～～～ 処理 ～～～～

　　Cells( Yp_s , Xp_s ).Activate

　　Tmp2_Menu.Hide

End Sub

フォームは、指定の場所をダブルクリックすると表示する様にしています。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　　If  セルの判定 Then

         Tmp2_Menu.Show (vbModeless)

    End If

End Sub

Access だと フォーム から 別のフォーム へのフォーカスの移動が出来るので、

Excel でも出来るかな～と思ったのですが・・・

これで運用する事にします。

アドバイス、有り難うございました。

ユーザーフォームをモードレスで使っているという前提の話だとおもいます。

100%の自信があるわけではありませんが、できないと思います。

代替案としては、モーダルで呼び出し、Hideしてしまう方法がないではありません。

Private Sub CommandButton1_Click()

UserForm1.Hide

With Worksheets("sheet1")

   .Activate

   .Range("C2").Select

End With

End Sub

これで、C2を変更したときに再度フォームを表示すれば、希望のような形になることはなります。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$2" Then

  UserForm1.Show

End If

End Sub

ただし、この例は入力対象を１セルにしてますが、シート入力の最後のセルでイベントをキックしますので、非常に制約が大きくなります。

また、実際にこのセルが変更されなければイベントは発生しません。

ですから、入力値を変更しない場合、F2⇒エンター　ということになります。

個人的な意見ですが、現状のままで妥協するか、入力はすべてユーザーフォームからきちんとやる方が良いように思えます。

参考まで。