Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3367 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【62692】ワークボタンを押さずにデータを保存/閉じようとするとメッセージを表示さ... matsusuke 09/8/24(月) 21:44 質問[未読]
【62693】Re:ワークボタンを押さずにデータを保存/閉... neptune 09/8/24(月) 22:44 回答[未読]
【62696】Re:ワークボタンを押さずにデータを保存/閉... 脱　初心者 09/8/25(火) 10:53 発言[未読]
【62692】ワークボタンを押さずにデータを保存/閉...
質問  matsusuke  - 09/8/24(月) 21:44 -
引用なし
パスワード
   「リスト作成」という名前のワークボタンを押すと、データが別シートのリストに転記されるマクロを作成しました。
下記マクロになります。

　 Dim endRow As Long
　 With Sheets("申請書原紙(A5版切り離し)")
　 endRow = Sheets("履歴リスト").Cells(.Rows.Count, "g").End(xlUp).Row + 1
　　　.Range("A14:I21").Copy Sheets("履歴リスト").Range("C" & endRow)
　 End With
End Sub

このマクロを実行せずに（ワークボタンを押さずに）データ保存、エクセルを閉じようとした場合に「この内容でよければ、リスト作成ボタンを押してください」というエラーメッセージを発生させるようにしたいです。

おわかりの方がいましたら教えてください。
【62693】Re:ワークボタンを押さずにデータを保存...
回答  neptune  - 09/8/24(月) 22:44 -
引用なし
パスワード
   ▼matsusuke さん：

与えられた情報だけで書きます。

>このマクロを実行せずに（ワークボタンを押さずに）データ保存、エクセルを閉じようとした場合に
これについては、単純な方法ですが、グローバル変数を利用し、
public saveflg as boolean

>データが別シートのリストに転記されるマクロを作成しました。
のマクロを実行した際に
saveflg=true
とでもしておき、Workbook_BeforeCloseイベントを利用し、saveflgがtrueか
否かを判断マクロを実行してない時

>「この内容でよければ、リスト作成ボタンを押してください」という
>エラーメッセージを発生させるようにしたいです。
エラーメッセージではないです。ダイアログは同じものでしょうが、
まったく性質の違うものです。
メッセージボックスというものを利用します。
これについては簡単ですから、msgbox をHelpでご覧下さい。

>おわかりの方がいましたら教えてください。
これは余計なような。。。
【62696】Re:ワークボタンを押さずにデータを保存...
発言  脱　初心者  - 09/8/25(火) 10:53 -
引用なし
パスワード
   >このマクロを実行せずに（ワークボタンを押さずに）データ保存、エクセルを閉じようとした場合に「この内容でよければ、リスト作成ボタンを押してください」というエラーメッセージを発生させるようにしたいです。

エラーメッセージを出さずに、
このマクロを実行しちゃえば　楽になりませんか？

人間の操作時間が削減されるし、デメリットはないのでは？

ヒントは、出ているのであえて　マクロは書きません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3367 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free