Excel VBA質問箱 IV

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

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


62591 / 76732 ←次へ | 前へ→

【18747】Re:印刷前の必須処理をしたかの判断
回答  Kein  - 04/10/8(金) 10:39 -

引用なし
パスワード
   >このIV1とは適当なセルでいいのですね
原則としてどこでも構いませんが、シート全体のセルを選択してクリアされる
可能性があるなら、絶対クリアすることの無いシートに入力するべきでしょう。
>この意味(コード)が判りません
ThisWorkbookモジュールにあるイベントです。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  If Sheets("SheetX").Range("IV1").Value <> 1 Then
   MsgBox "ソート・集計処理が済んでいません", 48
   Cancel = True
  End If
End Sub

てな感じです。Cancel = True にすると、印刷実行をストップ出来ます。
>ソート、集計した結果がクリアされたという事実をどうやってキャッチ
表の中の一つのセルを監視するのが、一番簡単かと思います。つまり

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
   If .Address <> "$C$10" Then Exit Sub
   If IsEmpty(.Value) Then
     Sheets("SheetX").Range("IV1").ClearContents
   End If
  End With
End Sub

などというイベントを、そのシートのシートモジュールに入れておきます。
0 hits

【18703】印刷前の必須処理をしたかの判断 ackkn 04/10/6(水) 13:49 質問
【18704】Re:印刷前の必須処理をしたかの判断 Asaki 04/10/6(水) 13:54 回答
【18709】Re:印刷前の必須処理をしたかの判断 ackkn 04/10/6(水) 17:57 回答
【18713】Re:印刷前の必須処理をしたかの判断 Kein 04/10/6(水) 20:37 回答
【18726】Re:印刷前の必須処理をしたかの判断 ackkn 04/10/7(木) 15:55 発言
【18747】Re:印刷前の必須処理をしたかの判断 Kein 04/10/8(金) 10:39 回答

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