请教各位一个VBA判断单元格是否为空的问题

hellodream

如附件，我用VBA判断某个区域里面是否有单元格为空，如果有则打印的时候给出提示并无法打印出来，测试的发现如果内容只有一行的时候不管单元格是否为空都无法打印，请各位帮我看一下问题出在哪里了，谢谢。


test.zip (12.06 KB, 下载次数: 26)

2018-6-25 14:22 上传

点击文件名下载附件

liulang0808

代码建议参考截图调整看看

hellodream

liulang0808 发表于 2018-6-25 14:40
代码建议参考截图调整看看

谢谢版主的解答，这样功能可以了，但有个小问题就是提示错误行的时候就会提前一行了，因为它从标题那一行开始了。

liulang0808

hellodream 发表于 2018-6-25 14:51
谢谢版主的解答，这样功能可以了，但有个小问题就是提示错误行的时候就会提前一行了，因为它从标题那一行 ...

如果提示提前了，那么对应数字+1呢？

lsdongjh

1. Sub 按钮1_Click()
   
2.     hs = Range("d" & Rows.Count).End(xlUp).Row
   
3.    
   
4.     If hs < 11 Then
   
5.         MsgBox "无数据"
   
6.         Exit Sub
   
7.     ElseIf hs = 11 Then
   
8.         hs = 10 '防止单行数据时，arr为非数组
   
9.     End If
   
10.    
    
11.     arr = Range("i11:i" & hs).Value
    
12.     For i = 1 To UBound(arr)
    
13.         If arr(i, 1) = "" Then
    
14.              m = m + 1
    
15.              n = n & "," & i
    
16.         End If
    
17.     Next
    
18.     If m >= 1 Then
    
19.     MsgBox "共有" & m & "行不正确请检查不正确的序号,错误行号为：" & n, 16, "☆☆☆☆☆☆包装检查☆☆☆☆☆☆"
    
20.     Else
    
21.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="pdfFactory Pro"
    
22.     ThisWorkbook.Close False
    
23.     End If
    
24. End Sub

复制代码

hellodream

liulang0808 发表于 2018-6-25 14:58
如果提示提前了，那么对应数字+1呢？

已经修改好了，我开始想反了，想成减1了 ，多谢版主。

hellodream

lsdongjh 发表于 2018-6-25 15:04

谢谢，你这个比的我的代码明了一些，我水平有限。微笑 微笑