|
>この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
などというイベントを、そのシートのシートモジュールに入れておきます。
|
|