VBA прекратит печатать листы в Excel 2010

Question

Я готовлю ваучер журнала в Excel 2010. Я хочу минимизировать ошибку. Следовательно, мне нужен код VBA, который помогает остановить печать ваучера, если ячейки не равны. Пожалуйста, помогите.

Answer 1

Что вы хотите сделать, это создать событие. В редакторе VBA дважды щелкните вкладку ThisWorkbook в Project Explorer и введите следующий код:

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 на листе 1 и листе 2 в моем примере), чтобы они были вам нужны. Обязательно сохраните книгу и откройте ее с включенными макросами, чтобы она была активной.