VBA Excel禁用打印

时间:2016-07-04 11:23:50

标签: vba excel-vba excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Sheets("Recibo Km A2IT").Range("F20").Value = "Inválido" Or Sheets("Recibo Km A2IT").Range("F31").Value = "Inválido" Or Sheets("Recibo Km A2IT").Range("F42").Value = "Inválido" Or Sheets("Recibo Km A2IT").Range("F53").Value = "Inválido" Then
        Cancel = True
        MsgBox ("Por favor verifique se os campos estão válidos")
    End If
End Sub

我正在尝试在Excel工作表上实现它,但无法找到如何使其工作。它只是没有做任何事情。我想让它一直保持工作,因为细胞可以是“Inválido”或“”,但这取决于其他条件。

你能说出我做错了吗?

1 个答案:

答案 0 :(得分:0)

尝试这样做:

If (Sheets("Recibo Km A2IT").Range("F20").Value = "Inválido") Or _
    (Sheets("Recibo Km A2IT").Range("F31").Value = "Inválido") Or _
    (Sheets("Recibo Km A2IT").Range("F42").Value = "Inválido") Or _
    (Sheets("Recibo Km A2IT").Range("F53").Value = "Inválido") Then