数据不能为空，求帮忙看看写得哪里不对？

760636412 · 发表于 2024-10-15 17:24

本帖最后由 760636412 于 2024-10-15 19:04 编辑

要求是：当D14:D23 其中单元格有数据时，对应的E/F/G/H/单元格不能为空
如附件是有代码，但存在问题，求大神帮忙看看附件的代码，求指点下，谢谢

不能为空.7z (24.57 KB, 下载次数: 6)

petergaod · 发表于 2024-10-15 17:39

For i = 14 To n
If Cells(i, 4) <> "" Then
      For j = 5 To 8
         If Cells(i, j) = "" Then
            MsgBox "..."
            Cells(i, j).Activate
            Cells(i, j).Interior.Color = vbYellow
            Exit For
         End If
      Next
End If
Next

z865593849 · 发表于 2024-10-15 17:40

看不出哪里有问题，最大行不能这么取（上下都有数据），一维数组下标从0开始

zxsea_7426 · 发表于 2024-10-15 17:41

本帖最后由 zxsea_7426 于 2024-10-15 17:46 编辑

显示没有问题，已经有提示了,加个条件更好，如果D列为空跳过循环

xjl565135022 · 发表于 2024-10-15 17:49

If Cells(i, ar(j)) = "" then 改成If Cells(i, ar(j)) = "" And Cells(i, 4) <> "" Then 这样？

zxsea_7426 · 发表于 2024-10-15 17:50

xjl565135022 发表于 2024-10-15 17:49
If Cells(i, ar(j)) = "" then 改成If Cells(i, ar(j)) = "" And Cells(i, 4) "" Then 这样？

二楼更好，D列空数据，跳过循环

autohotey · 发表于 2024-10-15 17:52

其实你可以换种思路，当文件保存或者关闭时去检测区域内是否满足你的条件，如果不满足就弹窗。不然按你的逻辑，每次当D输入值后就会弹窗（此时E/F/G/H不存在值），很烦人的

autohotey · 发表于 2024-10-15 18:20

哦我理解错了我还以为你要时刻监测D列的值呢。
代码供参考

Sub 检查()
Range("D14:H23").Interior.ColorIndex = xlColorIndexNone
Dim r1 As Range
Set r1 = Range("D14:D23")
Dim cell As Range
Dim c1 As Boolean
c1 = False
For Each cell In r1
If Not IsEmpty(cell) Then
Dim row As Long
row = cell.row
Dim c2(1 To 4) As Long
c2(1) = 5: c2(2) = 6: c2(3) = 7: c2(4) = 8
Dim c3 As Long
For c3 = 1 To 4
If IsEmpty(Cells(row, c2(c3))) Then
Cells(row, c2(c3)).Interior.Color = vbYellow
c1 = True
End If
Next c3
End If
Next cell
If c1 Then
MsgBox "必填项未填写"
Else
MsgBox "检查无误"
End If
End Sub

复制代码

760636412 · 发表于 2024-10-15 18:47

z865593849 发表于 2024-10-15 17:40
看不出哪里有问题，最大行不能这么取（上下都有数据），一维数组下标从0开始

好的，明白了，谢谢指导，

		自动登录	找回密码
密码			免费注册

[已解决] 数据不能为空，求帮忙看看写得哪里不对？

评分