Ｐａｇｅ 687 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼シートのActiveについて １２３ 03/2/5(水) 13:05 ┗Re:シートのActiveについて ichinose 03/2/5(水) 13:12 ┣Re:シートのActiveについて １２３ 03/2/5(水) 14:46 ┗Re:シートのActiveについて １２３ 03/2/6(木) 10:44 ─────────────────────────────────────── ■題名 ： シートのActiveについて ■名前 ： １２３ ■日付 ： 03/2/5(水) 13:05 -------------------------------------------------------------------------
| またまた 質問させてください。 些細なことなのですが、 UserForm1を閉じて、 UserForm2を表示させ、 Sheet1をActive(フォーカスされている状態)に したいのですが、 どうしてもUserForm2がフォーカスされている状態に なってしまいます。 作業上のひと手間を無くしたいだけなのですが、 （フォーカスをシートに移す手間） 可能でしょうか？ 下記リストとは、ListBox です。 Private Sub リスト_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm2.Show Me.Hide Worksheets("出向簿").Activate End Sub |
| ▼１２３ さん： こんにちは。 >またまた 質問させてください。 > >些細なことなのですが、 >UserForm1を閉じて、 >UserForm2を表示させ、 >Sheet1をActive(フォーカスされている状態)に >したいのですが、 >どうしてもUserForm2がフォーカスされている状態に >なってしまいます。 >作業上のひと手間を無くしたいだけなのですが、 >（フォーカスをシートに移す手間） >可能でしょうか？ > >下記リストとは、ListBox です。 > >Private Sub リスト_DblClick(ByVal Cancel As MSForms.ReturnBoolean) > >UserForm2.Show >Me.Hide >Worksheets("出向簿").Activate Application.Visible = True >End Sub ふたつのフォームがモーダレスの場合ですよね。 |
| ▼ichinose さん： こんにちは。 ichinoseさん ごめんなさい。 （いつも 説明不足で） ２つのフォームのShowModalは False です。 >>Private Sub リスト_DblClick(ByVal Cancel As MSForms.ReturnBoolean) >> >>UserForm2.Show >>Me.Hide >>Worksheets("出向簿").Activate >Application.Visible = True >>End Sub >ふたつのフォームがモーダレスの場合ですよね。 |
| ▼ichinose さん： こんにちは。 ichinoseさん ごめんなさい。 Application.Visible = True で出来てました。 問題ありません。 ありがとうございました。 |