Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51933 / 76737

←次へ　｜　前へ→


	【29653】Re:保存時のメッセージ表示について

りん

- 05/10/10(月) 17:29 -


	引用なし

	パスワード

Hirok さん、こんにちわ。

>>>せめて「保存中です」の表示を大きめに出したいと思っているのですが何かいい方法がありますでしょうか？
>>ブックを保存して閉じるまではフォームは表示されているようなので、
>>フォームに、「保存中」と書いたテキストボックスまたはラベルを非表示で準備しておき、
>>閉じるボタンがクリックされたときに表示するというのもひとつの手です。

>Userform1のラベルに「保存中」と明示して
コマンドボタンを使うと簡単に文字がセンタリングされるので、ラベル代わりに使用しました。
新しくコマンドボタンを追加し、
　・サイズ、位置はお好みで
　・ForeColorを赤
　・BackColorを白
　・フォントを大きめにする
　・Visibleを最初からFalseに設定
（もしくは、FormのActivateやInitializeイベントで設定する）

追加されたボタンが、CommandButton2だとして、

>>>Private Sub 閉じる_Click()
　　　 CommandButton2.Visible = True
　　　 DoEvents
>>>　　ThisWorkbook.Save
>>>　　ThisWorkbook.Close
>>>　　Unload Me
>>>End Sub

↓動作確認
シート１の65536行×50列に１を入れて、いったん保存しておく

標準モジュールに
Sub test()
　　UserForm1.Show '表示
　　Unload UserForm1 '開放
End Sub

UserForm1に
Private Sub CommandButton1_Click()
　　CommandButton2.Visible = True
　　DoEvents
　　ThisWorkbook.Close SaveChanges:=True
　　Me.Hide '閉じてTESTに戻る
End Sub

TESTを実行。

UnloadをFormのモジュールにいれると、ブックは閉じているのにVBEには実行中と表示されたままになりました(XL2000)ので、分けてあります。

0 hits

▼

【29615】保存時のメッセージ表示について toki 05/10/9(日) 14:43