VBA做的宏部分指令不能实现

阿松1212 · 发表于 2018-9-22 09:05

有师傅帮忙看下吗？解决不了了

oscarwmf · 发表于 2018-9-22 10:00

上个附件吧，不然没法解决

朱荣兴 · 发表于 2018-9-22 10:06

提示: 作者被禁止或删除内容自动屏蔽

阿松1212 · 发表于 2018-9-22 10:24

附件包以上传

oscarwmf · 发表于 2018-9-24 12:15

请查收，在excel2007测试通过

阿松1212 · 发表于 2018-9-25 11:22

oscarwmf 发表于 2018-9-24 12:15
请查收，在excel2007测试通过

好的，我去试试看，谢谢

阿松1212 · 发表于 2018-9-25 12:41

oscarwmf 发表于 2018-9-24 12:15
请查收，在excel2007测试通过

If Application.CountA(Range("B6:B17")) >= Application.CountA(Range("C6:C17")) Then
a = Application.CountA(Range("B6:B17"))
Else
a = Application.CountA(Range("C6:C17"))
End If
For I = 6 To a + 5
If Cells(I, 2) = "" Or Cells(I, 3) = "" Then MsgBox "数据填写不完整！" & Chr(10) & "请填写完整！", 32, "提示": Exit Sub

复制代码

师傅请问下为什么要这这一步？标识不理解

oscarwmf · 发表于 2018-9-25 14:11

为的是如果下面几行填了数据而漏填，保证填写完速整，不然你去掉也可以的

阿松1212 · 发表于 2018-9-25 15:48

oscarwmf 发表于 2018-9-25 14:11
为的是如果下面几行填了数据而漏填，保证填写完速整，不然你去掉也可以的

出现我描述的问题，不是因为漏填数据的问题，每次数据都是完整的，就是无缘无故的不执行命令代码

oscarwmf · 发表于 2018-9-25 16:25

现在能运行，还会出现你说的问题吗

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-22 10:06 来自手机 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] VBA做的宏部分指令不能实现