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 

您可以編輯單元格（A1在兩個工作表Sheet1和sheet2在我的例子）是任何你需要的。確保保存工作簿並使用啓用的宏打開它，以使其處於活動狀態。