Excel VBA質問箱 IV

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

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


43960 / 76735 ←次へ | 前へ→

【37801】Re:BeforeCloseイベント
回答  Kein  - 06/5/18(木) 22:06 -

引用なし
パスワード
   Book1にマクロを入れます。
まずVBEの画面で「挿入」「クラスモジュール」を選択します。
すると "Class1" という名前のモジュールが追加されますので、そこへ

Public WithEvents App As Application

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _
Cancel As Boolean)
  If Wb.Name = "Book2.xls" Then
   MsgBox "提出期限は3日後です", 48
   Set App = Nothing
  End If
End Sub

を、入れます。次に標準モジュールの先頭から

Dim X As New Class1

Sub Make_MyBook()
  Set X.App = Application

  Workbooks.Add
  With ActiveWorkbook

    '以下Book1のデータを基に、Book2に入力等の処理をするコードを書く

    .SaveAs X.App.DefaultFilePath & "\Book2.xls"
  End With
End Sub

を入れて、Make_MyBookを実行し、Book2を閉じてみて下さい。

0 hits

【37769】BeforeCloseイベント たくぴょん 06/5/18(木) 14:56 質問
【37777】Re:BeforeCloseイベント ぴかる 06/5/18(木) 16:22 回答
【37801】Re:BeforeCloseイベント Kein 06/5/18(木) 22:06 回答
【37806】Re:BeforeCloseイベント Nina 06/5/18(木) 23:04 質問
【37808】Re:BeforeCloseイベント Kein 06/5/19(金) 1:25 発言
【38397】Re:BeforeCloseイベント Nina 06/6/1(木) 21:44 質問
【38404】Re:BeforeCloseイベント Kein 06/6/1(木) 23:39 回答
【38405】Re:BeforeCloseイベント Nina 06/6/2(金) 7:59 お礼
【37814】Re:BeforeCloseイベント ハチ 06/5/19(金) 10:34 回答

43960 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free