VBAでExcel 2010の印刷ワークシートを停止する

Question

Excel 2010でジャーナルバウチャーを作成しています。エラーを最小限に抑えたいです。したがって、私は、バウチャーを印刷するのを止めるのに役立つVBAコードが必要です。助けてください。

Answer 1

あなたがしたいのは、イベントを作成することです。 VBAエディタでは、二重のプロジェクトエクスプローラではThisWorkbook]タブをクリックし、このコードを入力します。

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
    If Sheets("Sheet1").Range("A1") <> _ 
     Sheets("Sheet2").Range("A1") Then 
    MsgBox "Cannot print. Values do not match" 
    Cancel = True 
    End If 
End Sub 

あなたは何が必要であることを、細胞（私の例では、シート1とSheet2の両方でA1）を編集することができます。ブックを保存し、アクティブにするために有効になっているマクロを使用してブックを開くことを確認します。