Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5410 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【50989】ユーザーフォームの閉じるボタンを押下後エクセルブックを保存して閉じるに... J-golf 07/8/24(金) 14:12 質問[未読]
【50990】Re:ユーザーフォームの閉じるボタンを押下... ぱっせんじゃー 07/8/24(金) 14:25 発言[未読]
【50991】Re:ユーザーフォームの閉じるボタンを押下... ぱっせんじゃー 07/8/24(金) 14:28 発言[未読]
【50993】Re:ユーザーフォームの閉じるボタンを押下... J-golf 07/8/24(金) 14:35 質問[未読]
【50995】Re:ユーザーフォームの閉じるボタンを押下... ぱっせんじゃー 07/8/24(金) 15:00 発言[未読]
【50992】Re:ユーザーフォームの閉じるボタンを押下... ぱっせんじゃー 07/8/24(金) 14:33 発言[未読]
【50996】Re:ユーザーフォームの閉じるボタンを押下... J-golf 07/8/24(金) 15:03 お礼[未読]
【50997】Re:ユーザーフォームの閉じるボタンを押下... ぱっせんじゃー 07/8/24(金) 15:06 発言[未読]
【50998】Re:ユーザーフォームの閉じるボタンを押下... J-golf 07/8/24(金) 15:14 質問[未読]
【50999】Re:ユーザーフォームの閉じるボタンを押下... ぱっせんじゃー 07/8/24(金) 15:23 発言[未読]
【51003】Re:ユーザーフォームの閉じるボタンを押下... J-golf 07/8/24(金) 15:48 お礼[未読]
【50989】ユーザーフォームの閉じるボタンを押下後...
質問  J-golf  - 07/8/24(金) 14:12 -
引用なし
パスワード
   初めて質問させて頂きます。
さて上記の件ですが、どのようにすれば良いのか
さっぱり解りません。どなたか宜しくお願い致します。
【50990】Re:ユーザーフォームの閉じるボタンを押...
発言  ぱっせんじゃー  - 07/8/24(金) 14:25 -
引用なし
パスワード
   閉じるボタンとは？

右上の×マークのことですか？
それともコマンドボタンなどで自作したものですか？
【50991】Re:ユーザーフォームの閉じるボタンを押...
発言  ぱっせんじゃー  - 07/8/24(金) 14:28 -
引用なし
パスワード
   いずれにせよ、
ユーザーフォームを閉じるときのイベントで制御します。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
【50992】Re:ユーザーフォームの閉じるボタンを押...
発言  ぱっせんじゃー  - 07/8/24(金) 14:33 -
引用なし
パスワード
   自ブックを保存(上書き保存)するのは、

ThisWorkbook.Save

とします。
ただ、この後が問題です。

ThisWorkbook.Close

でブックが閉じますが、エクセルは残ったままです。

Application.Quit

でエクセルが閉じますが、ほかにブックが開いていたら
道連れにしようとします。

ですので、条件分岐が必要になります。
【50993】Re:ユーザーフォームの閉じるボタンを押...
質問  J-golf  - 07/8/24(金) 14:35 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
>いずれにせよ、
>ユーザーフォームを閉じるときのイベントで制御します。
>
>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

ぱっせんじゃー さん早速の回答ありがとうございます。
この度はお世話になります。

右上の×マークのことですか？
↑はい、そうです。

>ユーザーフォームを閉じるときのイベントで制御します。
>
>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
↑のサブルーティン内に保存の処理を記述すれば良い訳ですね？
【50995】Re:ユーザーフォームの閉じるボタンを押...
発言  ぱっせんじゃー  - 07/8/24(金) 15:00 -
引用なし
パスワード
   >>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
>↑のサブルーティン内に保存の処理を記述すれば良い訳ですね？

そうです。
【50996】Re:ユーザーフォームの閉じるボタンを押...
お礼  J-golf  - 07/8/24(金) 15:03 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
>自ブックを保存(上書き保存)するのは、
>
>ThisWorkbook.Save
>
>とします。
>ただ、この後が問題です。
>
>ThisWorkbook.Close
>
>でブックが閉じますが、エクセルは残ったままです。
>
>Application.Quit
>
>でエクセルが閉じますが、ほかにブックが開いていたら
>道連れにしようとします。
>
>ですので、条件分岐が必要になります。

保存の処理と、ブックを閉じる処理は無事成功しました。
ありがとうございました。
ところでこの条件分岐と言うのはどう言う処理のことなのでしょうか？
【50997】Re:ユーザーフォームの閉じるボタンを押...
発言  ぱっせんじゃー  - 07/8/24(金) 15:06 -
引用なし
パスワード
   私は、
もし、同じインスタンスで他のブックが開いていたら

ThisWorkbook.Close

開いていなかったら

Application.Quit

というのを使っています。

同じインスタンスで開いているブックの数は

Workbooks.Count

で取得できます。
これを
If
で条件分岐します。
【50998】Re:ユーザーフォームの閉じるボタンを押...
質問  J-golf  - 07/8/24(金) 15:14 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
>私は、
>もし、同じインスタンスで他のブックが開いていたら
>
>ThisWorkbook.Close
>
>開いていなかったら
>
>Application.Quit
>
>というのを使っています。
>
>同じインスタンスで開いているブックの数は
>
>Workbooks.Count
>
>で取得できます。
>これを
>If
>で条件分岐します。

では条件分岐のカウント数は０か否かになる訳ですか？
【50999】Re:ユーザーフォームの閉じるボタンを押...
発言  ぱっせんじゃー  - 07/8/24(金) 15:23 -
引用なし
パスワード
   >では条件分岐のカウント数は０か否かになる訳ですか？

そうです。
実際にやってみればすぐに分かると思いますよ。
【51003】Re:ユーザーフォームの閉じるボタンを押...
お礼  J-golf  - 07/8/24(金) 15:48 -
引用なし
パスワード
   ▼ぱっせんじゃー さん：
>>では条件分岐のカウント数は０か否かになる訳ですか？
>
>そうです。
>実際にやってみればすぐに分かると思いますよ。

ありがとうございました。
無事に作成出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5410 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free