求一判断语句如何编写

redzy

当打印模版中编号有空值时，语句就会出错，请大神指教如何判定为空值时值运行有值数据。
Sub 打印111()
    Application.EnableEvents = False
    With Sheets("付款明细表")
    'If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect Password:="1"
        If .Cells(Range("L3"), "M") > 0 Then '检查是否打印过
            MsgBox "编码" & Range("L3").Text & "和" & Range("L19").Text & Range("L35").Text & "打印过", , "提示"
        Else
            .Cells(Range("L3"), "M").Offset(1, 0) = 1 'M列记录打印
            .Cells(Range("L19"), "M").Offset(1, 0) = 1 'M列记录打印
             .Cells(Range("L35"), "M").Offset(1, 0) = 1 'M列记录打印
            'ActiveWindow.SelectedSheets.PrintOut From:=1
            'ActiveWindow.SelectedSheets.PrintPreview
        End If
    End With
    Application.EnableEvents = True
End Sub

ftgli

那你直接判断一下是否空值不就行了吗？
if Range("L35") <> "" then

张道贤

If .Cells(Range("L3"), "M") > 0 Then '检查是否打印过

张道贤

If .Cells(Range("L3"), "M") > 0 Then '检查是否打印过

这里也错了  位置不对

redzy

张道贤 发表于 2018-12-15 00:10
If .Cells(Range("L3"), "M") > 0 Then '检查是否打印过

这里也错了  位置不对

请问如何更改，谢谢

张道贤

redzy 发表于 2018-12-15 19:55
请问如何更改，谢谢

同样也要偏移，不然找到的行是错误的
.Cells(Range("L3"), "M").Offset(1, 0)>0

redzy

张道贤 发表于 2018-12-15 19:59
同样也要偏移，不然找到的行是错误的
.Cells(Range("L3"), "M").Offset(1, 0)>0

请问怎么“If .Cells(Range("L3"), "M").Offset(1, 0) > 0 Then '检查是否打印过 ”这句变成了黄色

redzy

redzy 发表于 2018-12-15 20:12
请问怎么“If .Cells(Range("L3"), "M").Offset(1, 0) > 0 Then '检查是否打印过 ”这句变成了黄色

OK,我已经解决了，谢谢