Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6490 / 13644 ツリー ←次へ | 前へ→

【44926】ユーザーフォーム表示後にフォーカスをワークシートに移す方法 tap 06/12/6(水) 18:25 質問[未読]
【44927】Re:ユーザーフォーム表示後にフォーカスを... ponpon 06/12/6(水) 18:34 発言[未読]
【44928】Re:ユーザーフォーム表示後にフォーカスを... ichinose 06/12/6(水) 18:35 発言[未読]
【44929】Re:ユーザーフォーム表示後にフォーカスを... tap 06/12/6(水) 20:40 お礼[未読]

【44926】ユーザーフォーム表示後にフォーカスをワ...
質問  tap  - 06/12/6(水) 18:25 -

引用なし
パスワード
   お世話になっております。

Windows XP ProでExcel 2003 SP2を使用しています。

ユーザーフォームを.Show vbModelessで表示させると、フォーカスがワークシートからそのユーザーフォームに移ってしまいます。
このフォームのフォーカスをオフにして、背景にあるExcelのワークシートにフォーカスをVBAで移す方法はありますでしょうか。

フォームを表示させた直後から、キーボードを打てばすぐにセルに文字が入力されるようにしたいのです。
それではフォームを表示させた意味がないではないかと思われるかもしれませんが、表示させるフォームには「前へ」ボタン、「次へ」ボタンなどのボタンだけしかないので、フォームには文字を入力する必要はありません。
そのため、フォームは一応表示させておいて、基本的にはセルへの入力を優先したいのです。
現在は、フォームが表示された後、いったんセルまたはExcelのウィンドウをクリックしないとセルに入力ができない状態です。
そして、たとえば、
Worksheets("入力シート").Activate
してもフォーカスはフォームからシートに移ってくれないようです。

過去ログを検索しましたが解決法が見つかりませんでした。
よろしくお願いします。

【44927】Re:ユーザーフォーム表示後にフォーカス...
発言  ponpon  - 06/12/6(水) 18:34 -

引用なし
パスワード
   印字したいセルを選択したらいかがでしょう?

Sub test()
  UserForm1.Show vbModeless
  Sheets(1).Range("A1").Select
End Sub

【44928】Re:ユーザーフォーム表示後にフォーカス...
発言  ichinose  - 06/12/6(水) 18:35 -

引用なし
パスワード
   ▼tap さん:
こんばんは。

>お世話になっております。
>
>Windows XP ProでExcel 2003 SP2を使用しています。
>
>ユーザーフォームを.Show vbModelessで表示させると、フォーカスがワークシートからそのユーザーフォームに移ってしまいます。
>このフォームのフォーカスをオフにして、背景にあるExcelのワークシートにフォーカスをVBAで移す方法はありますでしょうか。


私は、

  Application.Visible = True


で対応していますが、

  AppActivate Application.Caption

これでも出来ましたよ!!
Excel2002で確認しました。

試してみてください

【44929】Re:ユーザーフォーム表示後にフォーカス...
お礼  tap  - 06/12/6(水) 20:40 -

引用なし
パスワード
   ▼ichinose さん:
>  Application.Visible = True
>
>
>で対応していますが、
>
>  AppActivate Application.Caption
>
>これでも出来ましたよ!!

ponponさん、ichinoseさん、ご回答ありがとうございます。
ponponさんの方法も試してみましたが、その方法では、残念ながらうまくいきませんでした。
ichinoseさんの方法で、希望通りフォーカスをユーザーフォームからアプリケーションのウィンドウのほうへ移すことができ、直ちにセルに入力できるようになりました。
ichinoseさんの方法2通りともにうまくいきました。
ありがとうございます。

6490 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free