Ｐａｇｅ 345 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Eｘselのウィンドウの最小化 JUN 02/11/14(木) 19:23 ┗Re:Eｘselのウィンドウの最小化 ichinose 02/11/14(木) 21:29 ┗Re:Eｘselのウィンドウの最小化 JUN 02/11/15(金) 8:41 ─────────────────────────────────────── ■題名 ： Eｘselのウィンドウの最小化 ■名前 ： JUN ■日付 ： 02/11/14(木) 19:23 -------------------------------------------------------------------------
| 続けてで恐縮ですが…。 ユーザーフォームは表示させたままで、Exselのウィンドウを 最小化したいのですが。 Private Sub Workbook_Open() UserForm1.Show Application.WindowState = xlMinimized End Sub これだとうまくいきません。 どうしたらよいでしょうか。教えてください。 よろしくお願いいたします。 |
| ▼JUN さん： こんばんは。 >続けてで恐縮ですが…。 > >ユーザーフォームは表示させたままで、Exselのウィンドウを >最小化したいのですが。 > Private Sub Workbook_Open() > UserForm1.Show > Application.WindowState = xlMinimized > End Sub > >これだとうまくいきません。 >どうしたらよいでしょうか。教えてください。 >よろしくお願いいたします。 過去ログの「こうさん」の回答です。 '==================================================== Private Sub Workbook_Open() Application.WindowState = xlMinimized AppActivate Application.Caption UserForm1.Show Application.WindowState = xlNormal End Sub Ｖ２より。 |
| おはようございます。 早速、試してみました。 うまくいきました。ありがとうございました。 本当に、助かりました。またよろしくお願いします。 |