代码可以运行无法达到预期效果

困顿的人 · 发表于 2022-12-31 14:48

小弟再次麻烦各位老师，在第一个表格中要求根据b13的姓名通过弹出msgbox提示框的身份证号码当提示框内容与d13内容不一致，则提示框选择否以后，继续弹出提示框直到弹出的内容和d13内容一致则选择是删除上面该身份证号的所在行，个人反复查看了代码不知道哪里逻辑没有对，无法达到预期效果，麻烦各位老师指点

困顿的人 · 发表于 2022-12-31 17:18

For i = 3 To n
100:
            If .Cells(i, 2) = cha Then
               sfz = .Range("d" & i)
               MsgBox sfz, vbYesNo

               If MsgBox(sfz, vbYesNo) = vbYes Then
               .Range("a" & i).EntireRow.Delete: shift = xlUp
               Exit Sub
               Else
               GoTo 100
               End If
            End If
         Next

麻烦大神看看代码错误点

清风客98 · 发表于 2022-12-31 18:16

本帖最后由清风客98 于 2022-12-31 18:30 编辑

删除行的命令，最好是倒着循环，因为删除了行，I 的值还是原来的。但行数实际变化了，进而导致错误
for i=n to 1 step-1

困顿的人 · 发表于 2023-1-1 08:52

清风客98 发表于 2022-12-31 18:16
删除行的命令，最好是倒着循环，因为删除了行，I 的值还是原来的。但行数实际变化了，进而导致错误
for i= ...

老师我主要是想解决msgbox为什么要点两次才能删除数据而不是一次

nicleyuan · 发表于 2023-1-1 09:38

这一句删除

困顿的人 · 发表于 2023-1-1 16:47

nicleyuan 发表于 2023-1-1 09:38
这一句删除

老师已经实现点一次是就能删除但是否还是需要点两次

nicleyuan · 发表于 2023-1-1 17:46

困顿的人发表于 2023-1-1 16:47
老师已经实现点一次是就能删除但是否还是需要点两次

不明白你说的啥。

但是否还是需要点两次

复制代码

困顿的人 · 发表于 2023-1-1 17:53

nicleyuan 发表于 2023-1-1 17:46
不明白你说的啥。

msgbox 消息框中的否按钮需要点两次

nicleyuan · 发表于 2023-1-1 18:37

nicleyuan · 发表于 2023-1-1 18:54

你是不是想点击按钮“否”的话，直接退出循环？

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

[分享] 代码可以运行 无法达到预期效果

[分享] 代码可以运行无法达到预期效果