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

aecn

microyip 发表于 2019-6-13 07:12
什么叫该行不为空就提示？你又没有要求显示哪行不为空，只要判断到条件就提示就完了，何必搞那么复杂

更确切地说，是有某行数据不完整就提示，完整就执行保存代码

下图我模拟了6种数据不完整提示的例子，和3种数据完整不提示的例子

microyip

1. Sub 查数据()
   
2.     Dim nI As Integer
   
3.     With [D7:I7]
   
4.         For nI = 0 To 9
   
5.             With .Offset(nI)
   
6.                 If Application.WorksheetFunction.CountA(.Offset(0)) <> .Count Then
   
7.                     .Select
   
8.                     MsgBox "数据不完整！"
   
9.                     Exit Sub
   
10.                 End If
    
11.             End With
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码

aecn

microyip 发表于 2019-6-13 15:32

感谢 microyip老师回复

类似上图三种情况就代表数据完整，就提示完整
这一步没有达到

microyip

aecn 发表于 2019-6-13 16:07
感谢 microyip老师回复

类似上图三种情况就代表数据完整，就提示完整

在代码最后就直接加一句提示语句就完了，你的是什么逻辑啊？既然代码在检测到不完整就终止Exit Sub退出了，假如一直能完成全部，就说明完整了嘛，很简单的逻辑啊

aecn

microyip 发表于 2019-6-13 16:08
在代码最后就直接加一句提示语句就完了，你的是什么逻辑啊？既然代码在检测到不完整就终止Exit Sub退出了 ...

不好意思，是我的表达能力有问题
我的意思是类似上图三种的情况只提示“数据完整”，不需要“数据不完整”
上面的代码还是会提示数据不完整

microyip

后天不好好努力，只求伸手要代码的，一事无成！

1. Sub 查数据()
   
2.     Dim nI As Integer, nJ As Integer
   
3.     With [D7:I7]
   
4.         For nI = 0 To 9
   
5.             With .Offset(nI)
   
6.                 nJ = Application.WorksheetFunction.CountA(.Offset(0))
   
7.                 If nJ < 6 And nJ > 0 Then
   
8.                     .Select
   
9.                     MsgBox "数据不完整！"
   
10.                     Exit Sub
    
11.                 End If
    
12.             End With
    
13.         Next
    
14.     End With
    
15.     MsgBox "数据完整！"
    
16. End Sub

复制代码

lipton

一个大概的例子：

1. Public Function DetectRange(rng As Range) As Long
   
2.     '函数：检测Range数据是否完整
   
3.    
   
4.     Dim lngSize As Long
   
5.     Dim valCount As Long
   
6.     Dim result As Long
   
7.    
   
8.     lngSize = rng.Cells.Count '单元格数量
   
9.     valCount = Application.WorksheetFunction.Count(rng) '统计包含值的单元格
   
10.    
    
11.     result = lngSize - valCount '单元格数量-统计包含值的单元格
    
12.     If result = 0 Then
    
13.         result = 1 '数据完整
    
14.     ElseIf result = 10 Then
    
15.         result = 2 '数据空
    
16.     Else
    
17.         result = 3 '数据不全
    
18.     End If
    
19.    
    
20.     DetectRange = result
    
21.    
    
22. End Function
    
23. 
    
24. Sub test()
    
25.    
    
26.     Dim rng As Range
    
27.     Dim sh As Worksheet
    
28.     Dim n As Long
    
29.     Dim RowIndex As Long
    
30.    
    
31.     Set sh = Sheets("sheet1") '要检测的工作表
    
32.     Set rng = sh.Range("d7:i7") '起始检测行范围
    
33.     RowIndex = 7 '起始检测行索引
    
34.    
    
35.     Do
    
36.         n = DetectRange(rng)
    
37.         Select Case n
    
38.             Case 1
    
39.                 MsgBox ("数据全")
    
40.             Case 2
    
41.                 MsgBox ("数据空")
    
42.             Case 3
    
43.                 MsgBox ("数据不全")
    
44.         End Select
    
45.         Set rng = rng.Offset(1, 0) '设置下一行
    
46.         RowIndex = RowIndex + 1
    
47.     Loop Until RowIndex = 17 '检测的范围7行至16行
    
48.    
    
49. 
    
50. End Sub

复制代码

lipton

函数判断有点问题，测试时是按10个单元格计算，实际应该是判断Count(rng) 是否为0

1. Public Function DetectRange(rng As Range) As Long
   
2.     '函数：检测Range数据是否完整
   
3.    
   
4.     Dim lngSize As Long
   
5.     Dim valCount As Long
   
6.     Dim result As Long
   
7.    
   
8.     lngSize = rng.Cells.Count '单元格数量
   
9.     valCount = Application.WorksheetFunction.Count(rng) '统计包含值的单元格
   
10.    
    
11.     result = lngSize - valCount '单元格数量-统计包含值的单元格
    
12.     If result = 0 Then
    
13.         result = 1 '数据完整
    
14.     ElseIf valCount = 0 Then
    
15.         result = 2 '数据空
    
16.     Else
    
17.         result = 3 '数据不全
    
18.     End If
    
19.    
    
20.     DetectRange = result
    
21.    
    
22. End Function

复制代码

aecn

microyip 发表于 2019-6-13 16:45
后天不好好努力，只求伸手要代码的，一事无成！

这个确实自己弄了很久没有弄出来才求助的
microyip老师说的是，正在努力当中~
就是这个效果，感谢microyip老师这一路来的帮助
谢谢谢谢

aecn

lipton 发表于 2019-6-13 17:25
函数判断有点问题，测试时是按10个单元格计算，实际应该是判断Count(rng) 是否为0

没达到效果，还是感谢回复