判断区域内每行数据是否完整，完整执行代码，不完整提示一次

aecn

	D	E	F	G	H	I
7
8
9
10
11
12
13
14
15
16

Sub 检查()
If Application.CountIf(Range("D7:I16"), "<>") > 0 Then
For i = 7 To 16
IF Range("D" & i & ":I" & i) 里有一个单元格<>"" And 该行所有单元格 <> "" Then
MsgBox "OK！"
Else If Range("D" & I & ":I" & i) 里至少有一个单元格 = "" Then
MsgBox "数据不全，有空单元格！"
End If
Next i
Else
MsgBox "没有数据"
End If
End Sub



如果该行全部为空就不作提示
自已折腾了很久了没写出来，特求助各位老师，谢谢


下面用例子我模拟一下

liulang0808

楼主可以考虑counta对区域单元进行判断

唐朝123

sub check()
    dim i%,a$
    for i=7 to 16
    a=application.counta(cells(i,4),cells(i,9))
    select case a
          case 0
      msgbox i & "行没有数据"
          case 6
      msgbox "OK！"
          case else
      msgbox i&"行数据不齐，有空单元格！"
    end select
    next i
end sub

aecn

唐朝123 发表于 2019-6-11 22:11
sub check()
    dim i%,a$
    for i=7 to 16

感谢唐朝123老师的回复，可能是我没说清楚
我的意思是：
1、如果该行单元格全部不为空 执行代码
2、如果该行有数据，但有有空单元格 提示：“数据不全，有空单元格！”
3、如果该行全部单元格均为空不作提示

aecn

liulang0808 发表于 2019-6-11 22:00
楼主可以考虑counta对区域单元进行判断

还不会用这个函数 ，求liulang0808老师指点

microyip

1. Join(Range("D7:I16").Value) <> ""

复制代码

可以判断该区域是否不为空

aecn

microyip 发表于 2019-6-12 07:56
可以判断该区域是否不为空

谢谢microyip老师，我现在是要判断有有数据，但又不全

microyip

aecn 发表于 2019-6-12 13:13
谢谢microyip老师，我现在是要判断有有数据，但又不全

可以用这个思路变通处理啊

aecn

microyip 发表于 2019-6-12 15:23
可以用这个思路变通处理啊

火候还不行，我想达到的效果是有不完整就提示一次，但我写的是有多少行就提示多少次

microyip

aecn 发表于 2019-6-12 16:07
火候还不行，我想达到的效果是有不完整就提示一次，但我写的是有多少行就提示多少次

什么叫该行不为空就提示？你又没有要求显示哪行不为空，只要判断到条件就提示就完了，何必搞那么复杂